Prueba con esto:
Dim vlBan As Boolean
Private Sub Form_Click()
If Not vlBan Then
vlBan = True
Else
vlBan = False
End If
End Sub
Private Sub Form_Load()
vlBan = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If vlBan = True Then
Image1.Visible = True
Me.Image1.Move X, Y
vlBan = False
End If
End Sub
Nota:Si no te funciona me escribes a mi correo y te lo envio...saludos!!!