Private Sub time_tastatur_Timer()
    time_tastatur.Interval = 50
    maximalgeschwindigkeit
    Position_Spieler1
    If BoolSpieler = True Then
        Position_Spieler2
    End If
End Sub
 
Private Sub maximalgeschwindigkeit()
If DblBeschlX1 >= 200 Then
    DblBeschlX1 = DblStayX1
    End If
If -200 >= DblBeschlX1 Then
    DblBeschlX1 = DblStayX1
    End If
If DblBeschlY1 >= 200 Then
    DblBeschlY1 = DblStayY1
    End If
If -200 >= DblBeschlY1 Then
    DblBeschlY1 = DblStayY1
    End If
If DblBeschlX2 >= 200 Then
    DblBeschlX2 = DblStayX2
    End If
If -200 >= DblBeschlX2 Then
    DblBeschlX2 = DblStayX2
    End If
If DblBeschlY2 >= 200 Then
    DblBeschlY2 = DblStayY2
    End If
If -200 >= DblBeschlY2 Then
    DblBeschlY2 = DblStayY2
    End If
End Sub