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