.
Si quieres obtener la posicion x, y del mouse como si fuera este codigo de la rana:
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "x -> " & X & " ; y -> " & Y
End Sub
DoEvents!
debes usar las apis
Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Entre otras cosillas como el API
IntersetRect o
WindowFromPoint, pero bueno.
Dulces Lunas!¡.
Autor
En línea
; a partir de esa hora leo solo la última linea.... 
