Finding the Location of a Control???

[stever2003]

I need a code to find the location (in PIXELS) of the top left corner of a control. The control is a picture box named picMControl and only the location of the top left corner is important to me. Thanks for your help!!!

[YoungBuck]

If you want the location of the PictureBox within a form just use the PicBox.Left and PicBox.Top properties.

If you want the location of the PictureBox on the screen use the GetWindowRect function....


Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private Sub Form_Load()
Dim rct As RECT

If Not GetWindowRect(Picture1.hwnd, rct) = 0 Then

MsgBox "The Left-Top corner of this Control/Window is located at x=" & rct.Left & " y=" & rct.Top

Else

MsgBox "Could Not retrieve the coordinates of the Control/Window"

End If


End Sub