Message

The message object can be used to show a messagebox to the user.

Function QueryMsgBox(Title As String, MessageText As String, Buttons As enButtons, MsgType As enType)

Usage:

Sub Scense_Main()
    'Button Constants
    Const msgOk = 0
    Const msgYesNo = 2
    Const msgyes = 4
    Const msgNo = 5
    Const msgNoYes = 6
    Const msgYesNoAll = 8
    Const msgNoYesAll = 9
    Const msgYesAll = 10
    Const msgNoAll = 11

    'MessageType Constants
    Const mtpInformation = 0
    Const mtpQuestion = 1
    Const mtpExclamation = 2
    Const mtpCritical = 3

    'show the message box
    Select Case Message.QueryMsgBox("Title", "MessageText", msgYesNo, mtpExclamation)
        Case msgYes
            WriteScenseLog "Answer: Yes"
        Case msgNo
            WriteScenseLog "Answer: No"
    End Select
End Sub