VB Snippet - Get Current Resolution

[James Stanich]

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
 
Private Sub Form_Load()
 
    MsgBox "Current Screen Resolution is " & GetSystemMetrics(SM_CXSCREEN) & " x " & GetSystemMetrics(SM_CYSCREEN)
 
End Sub

[Fox]

Here's the way without using API commands...

Dim ResX as Long
Dim ResY as Long
 
ResX = Clng(Screen.Width / Screen.TwipsPerPixelX)
ResY = Clng(Screen.Height / Screen.TwipsPerPixelY)
 
MsgBox "Resolution is: " & Cstr(ResX) & "x" & Cstr(ResY) & " Pixel."