semaforo

assegnazione con codice di colore a label: uso di BackColor

programma che simula alternanza colore semaforico cliccando 3 pulsanti
vedi ppt attiva

dalla immagine e dal codice si vede che vengono creati oggetti
3 pulsanti (nome automatico,inserire testo informativo)
3 etichette (nome automatico)
codificare per assegnazione colore alle label, diverso nei 3 pulsanti
rosso-bianco-bianco > pulsante 1
bianco-arancione-bianco > pulsante 2
bianco-bianco-verde > pulsante 3

codice da copiare e incollare

Private Sub CommandButton1_Click()
Label1.BackColor = &HFF&
Label2.BackColor = &HFFFFFF
Label3.BackColor = &HFFFFFF
End Sub

Private Sub CommandButton2_Click()
Label1.BackColor = &HFFFFFF
Label2.BackColor = &H80C0FF
Label3.BackColor = &HFFFFFF
End Sub

Private Sub CommandButton3_Click()
Label1.BackColor = &HFFFFFF
Label2.BackColor = &HFFFFFF
Label3.BackColor = &HFF00&
End Sub