Public Class Form2
 
 
    Dim Farbe As Integer
    Private Sub Command1_Click()
        Select Case Timer1.Enabled
            Case False
                Timer1.Enabled = True
                Command1.Text = "Beenden"
            Case True
                Timer1.Enabled = False
                Command1.Text = "Starten"
        End Select
    End Sub
 
    Private Sub Form2_Load()
        Timer1.Enabled = False
        Timer1.Interval = 100 ' Hier die Leuchtdauer je Farbe in Millisekunden 
        ' angeben
        Command1.Text = "Starten"
        Command1.AcceptButton = True
 
 
    End Sub
 
    Private Sub Timer1_Timer()
        Select Case Farbe
            Case 0
                Panel1.BackColor = Color.Blue
            Case 1
                Panel1.BackColor = Color.Green
            Case 2
                Panel1.BackColor = Color.Red
            Case 3
                Panel1.BackColor = Color.Yellow
        End Select
        Farbe = Farbe + 1
        If Farbe = 4 Then Farbe = 0
    End Sub
 
 
End Class