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. 
 '----------------------------------------------------------------------------