Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   Befehl starten
    MbeSendCommand "Lock fence inside"

'   Eingabe senden, die eine Befehlszeichenfolge sein kann.
    MbeSendKeyin "AA=0"
    
'   Eingabe senden, die eine Befehlszeichenfolge sein kann.
    MbeSendKeyin "AS=1"
     
'   Eingabe senden, die eine Befehlszeichenfolge sein kann.
    MbeSendKeyin "KY=2"

End Sub