Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CYSCREEN As Long = 1
Const SM_CXSCREEN As Long = 0
Sub GetScreenDimensions()
   Dim lWidth As Long
   Dim lHeight As Long
   lWidth = GetSystemMetrics(SM_CXSCREEN)
   lHeight = GetSystemMetrics(SM_CYSCREEN)
   MsgBox "Screen Width = " & lWidth & vbCrLf & "Screen Height = " & lHeight
End Sub