Private Sub Score11_Paint(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Score11.Paint
        Dim file_ini As String
        file_ini = Application.StartupPath & ".\Einstellung.ini"
 
        If IO.File.Exists(file_ini) Then
        End If
        Dim farbe, farbe1 As Integer
        farbe = INI_ReadValueFromFile("LastscoreFenster", "Hintergrundfarbe", _
          "", file_ini)
        farbe1 = INI_ReadValueFromFile("LastscoreFenster", "ScoreZahlenfarbe", _
        "", file_ini)
        Score11.BackColor = Color.FromArgb(farbe)
        Score11.ForeColor = Color.FromArgb(farbe1)
 
        Dim buffer As Integer
 
        ReadProcessMemory(CInt(processHandle), &H624BCC, buffer, 4, 0) ' 
        ' auslesen Rundenanzeige
        Lbround1.Text = CStr(buffer)
        Dim buffer1 As Integer
        ReadProcessMemory(CInt(processHandle), &H624BDC, buffer1, 4, 0) ' 
        ' auslesen Punkte Player 1
        Score11.Text = CStr(buffer1)
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
        Score11.Text = DateTime.Now.ToString
        second = second + 1
        If second >= 3 Then
            Timer1.Stop() 'Stoppt Timer
            End If
    End Sub

'Im Formular:
Dim lbround as new list(of Label)
Dim score as new list(of label)
Dim LabelIndex as integer = 0
 
'Die benötigten Label-Objekte der Listen jeweils in einer Schleife erstellen
'und anordnen 
'z.B. im Form_Load_Event
 
 
In der Display-Routine:
Score(LabelIndex).Text = ....
 
Im Timer:
LabelIndex += LabelIndex
If labelindex >= Score.Count-1 then LabelIndex = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
Dim lbround As New List(Of Label)
        Dim score As New List(Of Label)
        Dim LabelIndex As Integer = 0
 
        Timer1.Interval = 10000
        Timer1.Start() 'Timer starts functioning
 
For Each label As Label In Me.Controls.OfType(Of Label)()
            If label.Name.StartsWith("lbround") Then
                label.Visible = True
            End If
        Next
        For Each label As Label In Me.Controls.OfType(Of Label)()
            If label.Name.StartsWith("lbscore") Then
                label.Visible = True
            End If
        Next
 
        ' 10 Label neu erzeugen
        For i As Integer = 0 To 9
            Dim lbround As New List(Of Label)
            Dim score As New List(Of Label)
            Dim TabIndex As Integer = 0
 
            ' Erste Reihe Label erzeugen
            lbArray(i) = New Label
 
            ' Das erzeugte Label verwenden:
            With lbArray(i)
 
                ' Parent festlegen und Controls-Collection erweitern
                .Parent = Me
                .Parent.Controls.Add(lbArray(i))
 
                ' Verwaltungsinformationen zuweisen
                .Name = "Lbround" & CStr(i)
                .TabIndex = i
 
                ' Darstellung: Beschriften und positionieren
                .Text = ""
 
                .Size = New Size(54, 39)
                .Location = New Point(16, 66 + i * 1 * .Height)
                .Visible = True
                .BorderStyle = BorderStyle.FixedSingle
                .TextAlign = ContentAlignment.MiddleCenter
 
 
            End With
 
        Next i
 
        For i As Integer = 0 To 9
            ' Zweite Reihe Label erzeugen
            lbArray(i) = New Label
 
            ' Das erzeugte Label verwenden:
            With lbArray(i)
 
                ' Parent festlegen und Controls-Collection erweitern
                .Parent = Me
                .Parent.Controls.Add(lbArray(i))
 
                ' Verwaltungsinformationen zuweisen
                .Name = "Lbscore" & CStr(i)
                .TabIndex = i
 
                ' Darstellung: Beschriften und positionieren
                .Text = ""
                .ForeColor = Color.Black
                .Size = New Size(54, 39)
                .Location = New Point(182, 66 + i * 1 * .Height)
                .Visible = True
                .BorderStyle = BorderStyle.FixedSingle
                .TextAlign = ContentAlignment.MiddleCenter
 
 
            End With
 
        Next i
    End Sub
    Private Sub Lbround1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Me.Click
        Dim buffer As Integer
        ReadProcessMemory(CInt(processHandle), &H624BCC, buffer, 4, 0) ' 
        ' auslesen Rundenanzeige
        [u]lbArray(CInt(CStr("Lbround"))).Text = CStr(buffer)
 
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
TabIndex += TabIndex
[u]If TabIndex >= score.Count - 1 Then TabIndex = 0 
second = second + 1
        If second >= 10 Then
            Timer1.Stop() 'Stoppt Timer
        End If
 
    End Sub
 
        End Class

Zitat:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Timer1.Tick TabIndex += TabIndex If TabIndex >= score.Count - 1 Then TabIndex = 0

Zitat:

lbArray(CInt(CStr("Lbround"))).Text = CStr(buffer)

lbArray(LabelIndex).Text = CStr(buffer)

Public Class frmShowSomething
 
    Dim labelindex As Integer = 0
    Dim lblDisplay As New List(Of Label)
 
    Dim WithEvents timDisplay As New Timer With {.Interval = 5000}
    Dim WithEvents timShow As New Timer With {.Interval = 1000}
 
 
    Private Sub frmShowSomething_Load(sender As System.Object, _
       e As System.EventArgs) Handles MyBase.Load
 
       'Labels erstellen und positionieren
       For i As Integer = 0 To 3
         lblDisplay.Add(New Label With {.Parent = Me, _
                    .Top = i * 30, .Width = 300, _
                    .BackColor = Color.White, _
                    .BorderStyle = BorderStyle.FixedSingle})
       Next i
 
       timDisplay.Enabled = True
       timShow.Enabled = True
       lblDisplay(labelindex).BackColor = Color.Yellow
    End Sub
 
 
    Private Sub timDisplay_Tick(sender As Object, _
          e As System.EventArgs) Handles timDisplay.Tick
 
        'Auf nächstes Label umschalten
        lblDisplay(labelindex).BackColor = Color.White
        labelindex += 1
        If labelindex >= lblDisplay.Count Then labelindex = 0
        lblDisplay(labelindex).BackColor = Color.Yellow
    End Sub
 
 
    Private Sub timShow_Tick(sender As Object, _
         e As System.EventArgs) Handles timShow.Tick
 
        'Etwas im aktuellen Label anzeigen 
        lblDisplay(labelindex).Text = Now.ToString
    End Sub
End Class

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

Private Sub frmShowSomething_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
 
        'RundenLabel erstellen und positionieren
 
        For i As Integer = 0 To 10
            lbround.Add(New Label With {.Parent = Me, _
                            .Size = New Size(54, 39), .Location = New Point(16, _
                            66 + i * 1 * .Height), _
                            .BackColor = Color.White, _
                            .BorderStyle = BorderStyle.FixedSingle,
                            .TextAlign = ContentAlignment.MiddleCenter,
                            .Font = New Font("Microsoft San Serif", 14, _
                              FontStyle.Bold)})
 
        Next i
 
        timDisplay.Enabled = True
        timShow.Enabled = True
        lbround(labelindex).BackColor = Color.Yellow
 
        ' Label Name Player 1 erstellen und positionieren
 
        Dim name1 As String
        name1 = GedPrivateProfileString("Players", "1", "", ".\Einstellung.ini")
        For i As Integer = 0 To 0
            Playername1.Add(New Label With {.Parent = Me, _
                            .Size = New Size(164, 44), .Location = New Point( _
                            134, 9 + i * 1 * .Height), _
                             .Name = "Playername1", _
                            .BackColor = Color.Gold, _
                            .BorderStyle = BorderStyle.FixedSingle,
                            .TextAlign = ContentAlignment.MiddleCenter,
                            .Font = New Font("Microsoft San Serif", 14, _
                              FontStyle.Bold),
                            .Text = name1})
        Next i
 
        'Punkte Player1 erstellen und positionieren
 
        For i As Integer = 0 To 10
            lbscore.Add(New Label With {.Parent = Me, _
                       .Size = New Size(54, 39), .Location = New Point(182, 66 _
                       + i * 1 * .Height), _
                       .BackColor = Color.White, _
                       .BorderStyle = BorderStyle.FixedSingle,
                       .TextAlign = ContentAlignment.MiddleCenter,
                       .Font = New Font("Microsoft San Serif", 14, _
                         FontStyle.Bold)})
 
        Next i
 
        timDisplay.Enabled = True
        timShow.Enabled = True
        lbscore(labelindex).BackColor = Color.Yellow
 
        ' Label Name Player 2 erstellen und positionieren
 
        Dim name2 As String
        name2 = GedPrivateProfileString("Players", "2", "", ".\Einstellung.ini")
       [u] 'Dim c As Control = Me.Controls("Playername2") 'auf Eintrag prüfen _
         
       [u] 'If Me.Controls("Playername2").Text = Text Then 
 
        For i As Integer = 0 To 0
            Playername2.Add(New Label With {.Parent = Me, _
                            .Size = New Size(164, 44), .Location = New Point( _
                            320, 9 + i * 1 * .Height), _
                             .Name = "Playername2", _
                            .BackColor = Color.Gold, _
                            .BorderStyle = BorderStyle.FixedSingle,
                            .TextAlign = ContentAlignment.MiddleCenter,
                            .Font = New Font("Microsoft San Serif", 14, _
                              FontStyle.Bold),
                            .Text = name2})
        Next i
        'Else
        'End If
        'Punkte Player2 erstellen und positionieren
 
        For i As Integer = 0 To 10
            lbscore1.Add(New Label With {.Parent = Me, _
                       .Size = New Size(54, 39), .Location = New Point(372, 66 _
                       + i * 1 * .Height), _
                       .BackColor = Color.White, _
                       .BorderStyle = BorderStyle.FixedSingle,
                       .TextAlign = ContentAlignment.MiddleCenter,
                       .Font = New Font("Microsoft San Serif", 14, _
                         FontStyle.Bold)})
 
        Next i
 
        timDisplay.Enabled = True
        timShow.Enabled = True
        lbscore1(labelindex).BackColor = Color.Yellow