VB Snippet - Get Current Resolution

VB Code:

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

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

VB Code:

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."