' in form 1
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
 
'in modul maximalV.bas
 
Public Sub MaxV()
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