GetWindowSize - Get a window's dimension in pixels

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, _
    lpRect As RECT) As Long

' get a window's size in pixel

Sub GetWindowSize(ByVal hWnd As Long, Width As Long, Height As Long)
    Dim rc As RECT
    GetWindowRect hWnd, rc
    Width = rc.Right - rc.Left
    Height = rc.Bottom - rc.Top
End Sub