La verdad no se q hacer ya.. solo hice q funcionara para q suba y cuando llegue vuelva a iniciar.. tambn hice el de q vaya a la izquierda y derecha pero no logro.. para q vuelva a su posicion inicial.. el carro se me desaparece..
Este me va bn para q vaya al centro
If (Image2.Visible = True Or Image3.Visible = True) Then
Shape1.Top = Shape1.Top - 1800
ElseIf Image1.Visible = True Then
Shape1.Top = Shape1.Top - 0
Este es para cuando llegue cuente el carro y regrese a su posicion inicial:
Private Sub Label1_Change()
If Shape1.Top = -960 Then 'posicion de llegada del carro
Label2.Caption = Label2 + 1 'Contador
Shape1.Top = 6240 'Posicion inicial del carro
End If
me va bn hasta ahiii.. pero cuando pongo los q cruzan.. el carro no me vuelve a la posicion inicial.. quisiera mas ayuda porfavor