Semáforo

[jericosoft]

P.D.

No olvides cambiar el atributo de BackStyle en los Shapes a 1 - Opaco
para que coloree

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