• Home
 · 
• Windows System Services
 · 
• gives the screen resolution of your system

gives the screen resolution of your system

gives the screen resolution of your system

Rate gives the screen resolution of your system

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function Get_System_Resolution()
       Dim ScrW%, ScrH%
       ScrW = Screen.Width / Screen.TwipsPerPixelX
       ScrH = Screen.Height / Screen.TwipsPerPixelY
       MsgBox "Screen Resolution = " & ScrW & " x " & ScrH & " pixels"
End Function

Private Sub Command1_Click()
Call Get_System_Resolution
End Sub