Private Sub Position_Spieler1()
    MaxV
    IntMittex1 = IntMittex1 + CInt(DblBeschlX1)
    IntMittey1 = IntMittey1 + CInt(DblBeschlY1)
    wiedereintritt_spieler1
    If BoolSpieler = True Then
        Position_Spieler2
    Else
        pbx_spielfeld_paint
        End If
End Sub

Option Explicit
 
Public DblBeschlX1, DblBeschlY1, DblBeschlX2, DblBeschlY2 As Double
Public DblStayX1, DblStayY1, DblStayX2, DblStayY2 As Double
 
Public Sub MaxV()
If beschlx1 >= 200 Then
    DblBeschlX1 = DblStayX1
    End If
If -200 >= beschlx1 Then
    DblBeschlX1 = DblStayX1
    End If
If beschly1 >= 200 Then
    DblBeschlY1 = DblStayY1
    End If
If -200 >= beschly1 Then
    DblBeschlY1 = DblStayY1
    End If
If beschlx2 >= 200 Then
    DblBeschlX2 = DblStayX2
    End If
If -200 >= beschlx2 Then
    DblBeschlX2 = DblStayX2
    End If
If beschly2 >= 200 Then
    DblBeschlY2 = DblStayY2
    End If
If -200 >= DblBeschlY2 Then
    DblBeschlY2 = DblStayY2
    End If
End Sub