Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  Dim xPixel As Long
  Dim yPixel As Long
 
  ' x und y Koordinaten nach Pixel umrechnen
  xPixel = ScaleX(x, ScaleMode, vbPixels)
  yPixel = ScaleY(y, ScaleMode, vbPixels)
 
  Label1.Caption = "Klick-Koordinate: " & CStr(xPixel) & ", " & CStr(yPixel)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de