Visual Basic - AYUDenmee

Hola q tal toy haciendo unos botones y mi problema es el siguiente ...
si alguien me puede ayudar ....porfavor se los agradeceria d antemano

Option Explicit
Dim Flag As Boolean

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag Then
Image1.Visible = False
Image2.Visible = True
Flag = False
End If
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag = False Then
Image1.Visible = True
Image2.Visible = False
Flag = True
End If
End Sub

MI BOTONO CUANDO SE PASA EL MOUSE POR ENCIAM CAMBIA D IMAGEN ESO STA OKEY PERO SI QUIERO PULSA UN CLICK Y QIERO Q M CAMBIE D IMAGEN COMO LO HARIA ADEMAS LO INTENTE CON EL MOUSEUP Y MOUSEDOWN LE DOY CLIC CAMBIA PERO CUANDO SAKO SE REGRESA AL PRIMERO COMO ERA AL PRINCIPIO COMO LO HAGO PARA PONERLO STATQO HASTA DARLE UN CLICK D NUEVO RECIEN REGRESEE AL PRINCIPIO COMO ERAA...

maneja variables.

ya que cuando le das clic cambia de imagen, y al perder el mouse tambien cambia, le hace caso a la accion del raton.

puede poner una variable que pase de true a false cuando das clic, y que cuando pasas el mouse pregunte, la variable es true, entonces cambia imagen.