by Vineeth Venugopal (7 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 9th June 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
gives the screen resolution of your system
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