Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal _
  y As Long) As Long
 
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Dim MultWidth as String
Dim MultiHeight as String
 
MultiWidth =  Screen.Width / Image1.Width
MultiHeight = Screen.Height / Image1.Height
 
SetCursorPos X * MultiWidth, Y * MultiHeight
End Sub