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
|