Sub main
'   Start a command - do not use shared cells
    MbeSendCommand "SET SHARECELL OFF "

'   Send a keyin that can be a command string - display all tasks
    MbeSendKeyin "TASKTOOLBOX OPEN"

    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   Start a command
    MbeSendCommand "MDL SILENTLOAD USERPREF"

'   Opened modal dialog Preferences - toggle on task navigation tools

'   Set a variable associated with a dialog box
        MbeSetAppVariable "USERPREF", "savePrefs.addFlags.showNavToolsInTaskNavDialog", 1&

'   Closed modal dialog "Preferences [untitled]"

'   Following comment is the command to close a modal dialog
    MbeSendCommand "MBE1 CLOSEMODAL OK"

'   MbeSendCommand "MDL SILENTUNLOAD DCUSERPREF"

'   MbeSendCommand "MDL SILENTUNLOAD RASTPREF"
'   MbeSendCommand "MDL SILENTUNLOAD SPELLCHECK"
End Sub
