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