Visual Basic 6 - semplice aiuto

ciao ragazzi sono manuel ed é la prima volta che vi scrivo.
Sono al terzo anno di superiori e da quest'anno abbiamo iniziato ad usare visual basic 6
per domani dovrei creare la simulazione di un semaforo utilizzando 3 timer.. ho provato a farlo ma il mio vb non da segni di vita quando lo avvio.. potreste provare ed elencarmi eventuali errori?
grazie in anticipo

nel form ci sono 3 shape 3 timer e 2 command.. uno di questi 2 fa lampeggiare lo shape in mezzo da nero a giallo gli altri si accendono cliccando sul secondo command


codice


Dim LAMPADA As Boolean
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub


Private Sub Timer1_Timer()
Shape1.FillColor = vbBlack
Shape3.FillColor = vbBlack
If LAMPADA = True Then
Shape2.FillColor = vbBlack
Else
LAMPADA = False
Shape2.FillColor = vbYellow
End If
End Sub



Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = True
Timer2.Interval = 10000
Shape1.FillColor = vbRed
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
End Sub

Private Sub Timer2_Timer()
Shape3.FillColor = vbBlack
Timer2.Enabled = False
Timer3.Enabled = True
Timer3.intervall = 5000
Shape3.FillColor = vbGreen
End Sub

Private Sub Timer3_Timer()
Timer3.Enabled = False
Timer1.Enabled = True
End Sub

Inizia a sostituire FillColor con BackColor, poi assicurati che la propietà BackStyle degli Shapes sia Opaque. Poi devi decidere se creare un semaforo automatico gestito dal timer o volerne uno manuale da gestire con i pulsanti.

 Private Sub Command1_Click() ' Per attivare la funzionalità automatico
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Timer()
Shape3.BackColor = vbBlack
Shape2.BackColor = vbYellow
Timer1.Enabled = False
Timer2.Enabled = True
Timer2.Interval = 2000
End Sub

Private Sub Timer2_Timer()
Shape2.BackColor = vbBlack
Shape1.BackColor = vbRed
Timer2.Enabled = False
Timer3.Enabled = True
Timer3.Interval = 2000
End Sub

Private Sub Timer3_Timer()
Shape1.BackColor = vbBlack
Shape3.BackColor = vbGreen
Timer3.Enabled = False
Timer1.Enabled = True
End Sub

Fammi sapere se va bene

ragazzi cambiando fillcolor con backcolor e correggendo qualche piccolo errore ho risolto.. grazie. sapete dirmi perchè non va con fillcolor? a scuola lo uso sempre

Prova a mettere giallo in fillcolor e "diagonal cross" in fillstyle e capirai!