Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Get screen width and height

Private Declare Function GetSystemMetrics Lib "user32" (ByVal Index As Long) As Long Private Const SM_CXSCREEN As Long = 0 Private Const SM_CYSCREEN As Long = 1 Public Sub ShowScreenDimensions()    Dim X As Long    Dim Y As Long    X = GetSystemMetrics(SM_CXSCREEN)    Y = GetSystemMetrics(SM_CYSCREEN)    Call MsgBox("Screen resolution is " & X & "x" & Y) End Sub