Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As Long' get a window's size in pixelSub 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.TopEnd Sub
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)