semaforo manuale con immagini

creare 4 immagini ( con Paint) es,grigio,rosso5,giallo5,verde5
da inserire nelle image

attivare ppt

da immagine e codice si vede che servono oggetti
2 pulsanti (nome automatico, inserire testo informativo:prepara,attivare)
1 etichetta (nome automatico, inserire testo:cliccare,prepara)
4 cornici per immagini(image1,2,3,4 automatico)

inserire nelle cornici le immagini e assegnare posizione
con pulsante2 si rendono invisibili le tre immagini su sfondo grigio

con ciclo for e select case si assegna visibilità a singole immagini
con MsgBox e scritta si gestisce manualmente alternanza delle figure

codice da copiare e incollare


Private Sub CommandButton1_Click()
Dim x As Integer
Dim q As Integer
For q = 1 To 4
For x = 1 To 3
Select Case x
Case 1
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
MsgBox ("stop")
Case 2
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
MsgBox ("avanti")
Case 3
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
MsgBox ("attesa")
End Select
Next x
Next q
End Sub

Private Sub CommandButton2_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
MsgBox ("attivare")
End Sub