Untitled

This code will allow you to get the position of a window.

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

Private Sub Form_Load()
Dim R As RECT
    Call GetWindowRect(Me.hwnd, R)
    MsgBox R.Left & " " & R.Top & " " & R.Right & " " & R.Bottom
End Sub