Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function GetDesktopWindow Lib "user32" _
Alias "GetDesktopWindow" () As Long
Declare Function GetClientRect Lib "user32" _
Alias "GetClientRect" (Byval hwnd As Long, _
lpRect As RECT) As Long
'________________________
Dim udtClientRect As RECT
GetClientRect GetDesktopWindow(), udtClientRect
Debug.Print "Width: " & udtClientRect.Bottom
Debug.Print "Height: " & udtClientRect.Right