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

'   Befehl starten
    MbeSendCommand "CHOOSE ALL "

    MbeSendCommand "CHANGE FILL "

'   Koordinaten sind in Haupteinheiten.
    startPoint.x = 0.0#
    startPoint.y = 0.0#
    startPoint.z = 0.000000#

'   Datenpunkt zu aktuellem Befehl senden.
    point.x = startPoint.x
    point.y = startPoint.y
    point.z = startPoint.z
    MbeSendDataPoint point, 1%
    
'   Befehl starten
    MbeSendCommand "CHOOSE ALL "
    
'   Befehl starten
    MbeSendCommand "CHOOSE ALL "

'   Eine mit einer Dialog verbundenen Variable einstellen
	MbeSetAppVariable "MGDSHOOK", "tcb->symbology.color", 0&

    MbeSendCommand "CHANGE COLOR "

    MbeSendCommand "ACTIVE WEIGHT 0"

    MbeSendCommand "CHANGE WEIGHT "
    
'   Befehl starten
    MbeSendCommand "CHOOSE ALL "

'   Eingabe senden, die eine Befehlszeichenfolge sein kann.
    MbeSendKeyin "change tags droptext"

'   Koordinaten sind in Haupteinheiten.
    startPoint.x = 0.0#
    startPoint.y = 0.0#
    startPoint.z = 0.000000#

'   Datenpunkt zu aktuellem Befehl senden.
    point.x = startPoint.x
    point.y = startPoint.y
    point.z = startPoint.z
    MbeSendDataPoint point, 1%
    
End Sub