Semáforo

[jericosoft]

Espero te sirva


Dim mueve

Private Sub Command1_Click()

mueve = mueve + 1: If mueve > 3 Then mueve = 1

If mueve = 1 Then Shape_Verde.BackColor = vbGreen Else Shape_Verde.BackColor = vbWhite
If mueve = 2 Then Shape_amarillo.BackColor = vbYellow Else Shape_amarillo.BackColor = vbWhite
If mueve = 3 Then Shape_rojo.BackColor = vbRed Else Shape_rojo.BackColor = vbWhite

End Sub