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

'   Send a keyin that can be a command string
    MbeSendKeyin "powerselector all"

    MbeSendKeyin "change linestyle scale 50"

'   Coordinates are in master units
    startPoint.x = 8529.379053#
    startPoint.y = 9868.658906#
    startPoint.z = -0.110261#

'   Send a data point to the current command
    point.x = startPoint.x
    point.y = startPoint.y
    point.z = startPoint.z
    MbeSendDataPoint point, 1%

    MbeSendKeyin "powerselector deselect all"
End Sub
