the image mousedown event looks like
Code:
Private Sub myImage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
the X and Y are the X Y coordinates of the mouse in relation to the top left of the image
So if you wanted an 'X marks the spot', create a label with X as the caption, text centred, control sized to suit with a transparent background and make it hidden. we'll call it lblX. Also ensure the image control has been 'sent to back' and/or lblX is 'brought to front'
then your image mousedown event becomes
Code:
Private Sub myImage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblX.top=Y+myImage.top-lblX.height/2
lblX.left=X+myImage.left-lblX.width/2
lblX.visible=true
End Sub
if you want to store the information for future reference, store the lblX top and left values in a table - clearly only relevant to the appropriate image and image control size.
I