System.HorizontalResolution Property (Word)
Returns the horizontal display resolution, in pixels. Read-only Long.
Syntax
expression .HorizontalResolution
expression A variable that represents a System object.
Example
This example displays the current screen resolution (for example, "1024 x 768").
Dim lngHorizontal As Long
Dim lngVertical As Long
lngHorizontal = System.HorizontalResolution
lngVertical = System.VerticalResolution
MsgBox "Resolution = " & lngHorizontal & " x " & lngVertical