Visual Basic - boton

HOLA DE NUEVO TRATE DE MEHORAR MI BOTON ME DEMORE PORQ ES UN LIO ME CONFUNDO BASTANTE PERO ALFINAL AVANCE UN POQO
KIERO Q AL MOMENTO DE DARLE CLICK MI BOTON SE QUEDE ESTATIQO NO PUEDO LLEVO MAS D UNA HORA INTENTANDOLO UNA AYUDITA PORFAs....


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 Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
Image3.Visible = False
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
Image3.Visible = True
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
Image2.Visible = False
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image2.Visible = True
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

OTRO TIO DE LA GRAN PU_TA

DEJA DE ESCRIBIR CON MAYUSCULA CON_CHE_TU_MA_DRE. Y DEJA DE REPETIR LOS MENSAJES. QUE CHINGADOS TE CREES, ACASO PIENSAS QUE ESTAMOS DE VAGOS Y TENEMOS TODO EL PU_TO DIA PARA RESPONDES TUS PREGUNTAS.

VETE A QUE TE CA_CHE UN BURRO

espero te sirva esto Alonsito, si no te sirve mandame el codigo fuente a
[email protected]
para verlo

'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 Image2_Click()
If Image2.Visible = True Then Image3.Visible = True
Set correr = CreateObject("wscript.shell")
correr.run "calc"
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
Image3.Visible = False
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
Image3.Visible = True
End Sub

Private Sub Image3_Click()
If Image3.Visible = True Then Image2.Visible = True
Set correr = CreateObject("wscript.shell")
correr.run "charmap"
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
Image2.Visible = False
End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image2.Visible = True
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