Public Class Form1
    Dim spieler1 As Integer
    Dim spieler2 As Integer
    Dim spieler3 As Integer
    Dim SG As Integer
    Dim ButtonClick As Integer REM Zählt die Clicks 


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        spieler1 = spieler1 + SG
        Button1.Location = New Point(spieler1, Me.Button1.Location.Y)



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        spieler2 = spieler2 + SG
        Button3.Location = New Point(spieler2, Me.Button3.Location.Y)
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        spieler3 = spieler3 + SG
        Button4.Location = New Point(spieler3, Me.Button4.Location.Y)
    End Sub

    Private Sub Form1_load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label2.Text = HScrollBar1.Value
    End Sub

    Private Sub HScrollBar1_ValueChanged(sender As Object, e As EventArgs) Handles HScrollBar1.ValueChanged
        Label2.Text = HScrollBar1.Value
        SG = HScrollBar1.Value
    End Sub

    Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

    End Sub

    Private Sub Button2_KeyDown(sender As Object, e As KeyEventArgs) Handles Button2.KeyDown
        If e.KeyCode = Keys.F1 Then
            Button2.PerformClick()


        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        Button1.Visible = False

        If CheckBox1.CheckState Then
            Button1.Visible = True
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        Button3.Visible = False

        If CheckBox2.CheckState Then
            Button3.Visible = True
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        Button4.Visible = False

        If CheckBox3.CheckState Then
            Button4.Visible = True
        End If
    End Sub
End Class