Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "x -> " & X & "  ; y -> " & Y
End Sub

DoEvents!

Perdoname, no lei bien la pregunta...
Con un Hook se puede hacer, mi amigo Dessa estara orgulloso de mi...
Para ello debes sacar el Hwnd del control externo y lo metes en la variable lHwnd, te dejo un ejemplo:

Option Explicit
 
Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hMod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
 
Private Const WH_MOUSE_LL                           As Long = 14&
 
Private Const WM_LBUTTONDOWN                        As Long = &H201
 
Public lHwnd                                        As Long
Dim hMouseHook                                      As Long
 
 
Public Sub StartMouseHook()
    If hMouseHook = 0 Then
        hMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0&)
    End If
End Sub
 
Public Sub StopMouseHook()
    If hMouseHook <> 0 Then
        Call UnhookWindowsHookEx(hMouseHook)
        hMouseHook = 0
    End If
End Sub
 
Private Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
    If wParam = WM_LBUTTONDOWN And (lHwnd = WindowFromPoint(lParam.X, lParam.Y)) Then
        Debug.Print lParam.X; " <--> "; lParam.Y
    End If
End Function

DoEvents!

Necesitas estas APÏS:

 
Private Type POINTAPI  
    x As Long  
    y As Long  
End Type  
 
Private Type RECT  
    Left As Long  
    Top As Long  
    Right As Long  
    Bottom As Long  
End Type  
 
 
Declare Function GetClientRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
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
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
 
 

Lo demas es solo hacer un Hook al Mouse y posiblemente quieras usar esta api...

 
Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
 
 

Temibles Lunas!¡.

Funciono perfecto me detecta la posicion de donde hago click en la imagen, muchas gracias a los dos!!!

Ahora me surgio otra duda, en que se basan esas posiciones... Es decir, en la esquina superior izquierda por ejemplo me marca (571;244) aproximadamente...
Se puede relacionar con el width y height de la imagen?

Gracias nuevamente!

se basa en la pantalla del monitor
X= 571 Pixeles desde la izquierda
y= 244 Pixeles desde el tope de arriba



GetWindowRect te devuelve la infomacion de un control con el mismo criterio o sea en pixeles y en base a las coordenadas x e y de la pantalla en donde se encuentra dicho control al momento de pedir su informacion

El top y el left cambian al mover el contenedor del control (por ej al mover el formulario que lo contiene) porque repito que se basa en la posicion dentro de la pantalla, pero el HEIGHT y el  WIDTH son constantes o mejor dicho no cambian  por mover el Formulario o contenedor del control

Dim TR As RECT
Call GetWindowRect(ret, TR)

"LEFT" = TR.Left
"TOP" = TR.Top
"HEIGHT"= TR.Bottom  - TR.Top  
"WIDTH" = TR.Right  - TR.Left

Como notarás (a diferencia del otro hilo) esta vez no multiplique por 15 para que el retorno sea en pixeles.






@l "Mister"