'0: stil, 1:naar beneden, 2: naar boven
        Dim nieuwepositie As Point

        If Speler1Richting = 1 Then
            If Label1.Location.Y < 425 Then
                nieuwepositie = New Point(Label1.Location.X, Label1.Location.Y + (1 * plankspeed))
                Label1.Location = nieuwepositie
            End If
        End If
        If Speler1Richting = 2 Then
            If Label1.Location.Y > 50 Then
                nieuwepositie = New Point(Label1.Location.X, Label1.Location.Y + (-1 * plankspeed))
                Label1.Location = nieuwepositie
            End If
        End If