Dim Farbe As Integer
 
Private Sub Command1_Click()
    Select Case Timer1.Enabled
    Case False
        Timer1.Enabled = True
        Command1.Caption = "Beenden"
    Case True
        Timer1.Enabled = False
        Command1.Caption = "Starten"
    End Select
End Sub
 
Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 100 ' Hier die Leuchtdauer je Farbe in Millisekunden 
    ' angeben
    Command1.Caption = "Starten"
    Command1.Default = True
End Sub
 
Private Sub Timer1_Timer()
    Select Case Farbe
    Case 0
        Panel1.BackColor = RGB(0, 0, 255)
    Case 1
        Panel1.BackColor = RGB(0, 255, 0)
    Case 2
        Panel1.BackColor = RGB(255, 255, 0)
    Case 3
        Panel1.BackColor = RGB(255, 255, 255)
    End Select
    Farbe = Farbe + 1
    If Farbe = 4 Then Farbe = 0
End Sub