by Raghu (22 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 17th August 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To Display the Resolution of the Monitor
API Declarations
Dim X As Long, Y As Long
x = GetSystemMetrics(0)
y = GetSystemMetrics(1)
Msgbox "Resolutions is : " & CStr(x) & " X " & CStr(y),vbExclamation,"Monitor"
End Sub