Detectar click sobre icono cargado en el Form

[E N T E R]

Hola, tengo esta pequeña función en donde cargo una imagen dentro del form

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
    Call PintarIcono(500, 500, Me)
End Sub

Código: (VB) [Seleccionar]

Public Sub PintarIcono(ByVal xPos As Integer, ByVal yPos As Integer, xForm As Form)

    Dim pic1 As StdPicture
    Set pic1 = LoadPicture("e:\icono.ico")
    xForm.PaintPicture pic1, xPos, yPos
   
End Sub
Hasta ahi todo bien puedo mostrar sin problema el icono, lo que necesito es saber si se puede hacer click sobre el icono que cargue en el form y que haga una accion pero solo donde esta situado el icono que se cargo.

[Jeronimo]

A ver si se puede hacer esto.
Capturás las coordenadas donde se hace clic sobre el form.
Comparás si la coordenada x es mayor o igual que la posisión x del ícono sobre el form y menor o igual que la posición x del ícono más el ancho del ícono, y lo mismo para la coordenada y.
Para esto las unidades de medida del form y del ícono debieran ser las mismas (twips, pixels, etc.)
Algo así (en bruto)

Código: (VB) [Seleccionar]

'Este código iría en el evento MouseDown del formulario
'ClicX y ClicY representan el punto donde se hizo clic en el formulario
'PosX y PosY representan  las coordenadas donde se dibujó el ícono
'Ancho y Alto representan el ancho y el alto del ícono
If ClicX >= PosX and ClicX <= PosX + Ancho and ClicY >= PosY and ClicY <= PosY + Alto then
'Se hizo clic sobre el ícono
End If
Jerónimo