Incrocio Stradale con semaforo

[adish1f3]

Ciao a tutti,
sono nuovo di questo forum, e non so se questa è la sezione giusta dove parlare del mio problema. Comunque scusatemi se sono fuori sezione.
Io devo fare un incrocio stradale, con tanto di macchine (delle foto ho usato la picturebox) sono in tutto 4 strade con 4 auto con 4 semafori. ho già sistemato i vari semafori, quello che devo fare ora, è far muovere a tempo le auto e fermarle quando c'è semaforo rosse e poi quando ritorna verde ripartire per poi finire la strada, e naturalmente ricomparire dall'inizio.
Spero che mi sia spiegato bene
Sotto i codici

 Public Class Form1
    Dim x As Integer = 0

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        AutoSopra.Top = AutoSopra.Top + 10
        AutoDestra.Left = AutoDestra.Left - 10
        AutoSotto.Top = AutoSotto.Top - 10
        AutoSinistra.Left = AutoSinistra.Left + 10
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        x = x + 1
        If x < 6 Then
            Giallo4.Visible = Not Giallo4.Visible
            Giallo3.Visible = Not Giallo3.Visible
            Giallo.Visible = Not Giallo.Visible
            Giallo2.Visible = Not Giallo2.Visible
            Rosso.Visible = False
            Verde.Visible = False
            Rosso2.Visible = False
            Verde2.Visible = False
            Rosso4.Visible = False
            Rosso3.Visible = False
            Verde3.Visible = False
            Verde4.Visible = False

        End If
        If x = 6 Then
            Rosso.Visible = True
            Verde.Visible = False
            Giallo.Visible = False
            Rosso2.Visible = False
            Rosso3.Visible = True
            Rosso4.Visible = False
            Giallo2.Visible = False
            Giallo3.Visible = False
            Giallo4.Visible = False
            Verde2.Visible = True
            Verde3.Visible = False
            Verde4.Visible = True
        End If
        If x = 7 Then
            Rosso.Visible = True
            Verde.Visible = False
            Giallo.Visible = False
            Rosso2.Visible = False
            Rosso3.Visible = True
            Rosso4.Visible = False
            Giallo2.Visible = True
            Giallo3.Visible = False
            Giallo4.Visible = True
            Verde2.Visible = True
            Verde3.Visible = False
            Verde4.Visible = True
        End If
        If x = 8 Then
            Rosso.Visible = False
            Verde.Visible = True
            Giallo.Visible = False
            Rosso2.Visible = True
            Rosso3.Visible = False
            Rosso4.Visible = True
            Giallo2.Visible = False
            Giallo3.Visible = False
            Giallo4.Visible = False
            Verde2.Visible = False
            Verde3.Visible = True
            Verde4.Visible = False
        End If
        If x = 9 Then
            Rosso.Visible = False
            Verde.Visible = True
            Giallo.Visible = True
            Rosso2.Visible = True
            Rosso3.Visible = False
            Rosso4.Visible = True
            Giallo2.Visible = False
            Giallo3.Visible = True
            Giallo4.Visible = False
            Verde2.Visible = False
            Verde3.Visible = True
            Verde4.Visible = False
        End If
        If x = 9 Then
            x = 6
        End If
    End Sub
End Class