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