Visual Basic > Code Snippets

Screen resolution

Screen resolution

Private Declare Function GetSystemMetrics Lib "User32" (ByVal index As Long) As Long
Dim X As Long, Y As Long 
Private Sub Form_Load()
Dim strDimensions

X = GetSystemMetrics(0)
Y = GetSystemMetrics(1)

strDimensions = CStr(X) & " X " & CStr(Y)

MsgBox (strDimensions)
End Sub