Public Class frmSimulation
 
 
    '===============================================================
    'Simulation
    '===============================================================
    Dim sim_round As Integer, sim_score As Integer
    Dim WithEvents timSimulation As New Timer With {.Interval = 1000}
 
    Private Sub timSimulation_Tick(sender As Object, _
        e As System.EventArgs) Handles timSimulation.Tick
 
        'Hier wird der Fortschritt des Rennens simuliert
        Dim rndm As New Random
        If rndm.NextDouble > 0.9 Then
            'neue Runde
            sim_round += 1 : sim_score = 0
        Else
            'aktuelle Runde fortsetzen (Score erhöhen)
            sim_score += rndm.Next(0, 6)
        End If
    End Sub
    '===============================================================
 
 
    Const LabelCount As Integer = 5
    Const LabelWidth As Integer = 200
 
    Dim lblRound As New List(Of Label)
    Dim lblScore As New List(Of Label)
    Dim Labelindex As Integer = 0
 
    Dim WithEvents timDisplay As New Timer With {.Interval = 500}
 
 
    Private Sub frmSimulation_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Height = LabelCount * 30 + 60
        Me.Width = LabelWidth * 2 + 20
 
        'Labels erstellen und positionieren
        For i As Integer = 0 To LabelCount - 1
            lblRound.Add(New Label With _
                     {.Parent = Me, .Top = i * 30, .Width = LabelWidth})
            lblScore.Add(New Label With _
                     {.Parent = Me, .Top = i * 30, .Width = LabelWidth, _
                      .Left = LabelWidth + 10})
        Next i
 
        'Simulation starten
        timSimulation.Enabled = True
 
        'Anzeige initialisieren
        lblRound(Labelindex).Text = sim_round.ToString
        lblScore(Labelindex).Text = sim_score.ToString
        lblRound(Labelindex).BackColor = Color.Yellow
        lblScore(Labelindex).BackColor = Color.Yellow
 
        'Anzeige starten
        timDisplay.Enabled = True
    End Sub
 
 
 
    Private Sub timDisplay_Tick(sender As Object, _
        e As System.EventArgs) Handles timDisplay.Tick
 
        If CInt(lblRound(Labelindex).Text) <> sim_round Then
            'Neue Runde -> aktuelles Labelpaar Farbe zurücksetzen
            lblRound(Labelindex).BackColor = Color.White
            lblScore(Labelindex).BackColor = Color.White
 
            Labelindex += 1
            If Labelindex = lblRound.Count Then Labelindex = 0
 
            'Nächstes Runden-Label füllen
            lblRound(Labelindex).BackColor = Color.Yellow
            lblScore(Labelindex).BackColor = Color.Yellow
 
            lblRound(Labelindex).Text = sim_round.ToString
        End If
        'Scorelabel stets füllen
        lblScore(Labelindex).Text = sim_score.ToString
    End Sub
 
End Class