Public Sub GetWindowsRECT(hWnd As Long, ProcID As Integer, Height As Integer, Top As Integer, Left As Integer, Witch As Integer)

Dim rctTemp As RECT

   GetWindowThreadProcessId hWnd, lngProcID
   GetWindowRect hWnd, rctTemp
   
   'Load the labels with the info retrieved.
ProcID = lngProcID
Top = rctTemp.Top
Left = rctTemp.Left

Height = rctTemp.Bottom - Top
Witch = rctTemp.Right - Left

End Sub

Private Sub Command1_Click()
Print Top
Print Left
End Sub