BCX Console Demonstration Program S18.bas

 DIM i
 
 DO
   i = MSGBOX("This is a message", "BCX Demo", 3 + 64) ' 3 = YNC, 64 = Info Icon
   SELECT CASE i
    CASE 2
     MSGBOX "You Pressed CANCEL !", "BCX Demo", 1 : END
    CASE 6
     MSGBOX "You Pressed YES !", "BCX Demo", 1
    CASE 7
     MSGBOX "You Pressed NO !", "BCX Demo", 1
   END SELECT
 LOOP
 
 '----------------------------------------------------------------------------
 '     OK                   0     Display OK button only.
 '     OKCancel             1     Display OK and Cancel buttons.
 '     AbortRetryIgnore     2     Display Abort, Retry, and Ignore buttons.
 '     YesNoCancel          3     Display Yes, No, and Cancel buttons.
 '     YesNo                4     Display Yes and No buttons.
 '     RetryCancel          5     Display Retry and Cancel buttons.
 '     Critical            16     Display Critical Message icon.
 '     Question            32     Display Warning Query icon.
 '     Exclamation         48     Display Warning Message icon.
 '     Information         64     Display Information Message icon.
 '     DefaultButton1       0     First button is default.
 '     DefaultButton2     256     Second button is default.
 '     DefaultButton3     512     Third button is default.
 '----------------------------------------------------------------------------