Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, ByRef lpRect As Rect) As Long
Public Sub TestRect()
Dim R As Rect
Call GetWindowRect(Application.hWnd, R)
Debug.Print R.Bottom
End Sub