Quote:
Originally Posted by macropod
The display resolution is equally irrelevant, but if you really want to find out:
Code:
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub GetMonitorInfo()
Dim h As Long, w As Long
h = GetSystemMetrics32(1) ' height in pixels
w = GetSystemMetrics32(0) ' width in pixels
MsgBox Format(w, "#,##0") & " wide * " & Format(h, "#,##0") & " high"
End Sub
|
I'll try this and let you know the result, but what is it that you think is relevant?