def var ch-shell as com-handle no-undo.
        def var lv-ans   as int        no-undo.
   
        create "Wscript.Shell" ch-shell.
   
        assign lv-ans = ch-shell:Popup("Do you use API calls?",
                               5, /* pause (seconds) doesn't work in v10 */
                               "My question is ...", /* title */
                               ( 3 ) + /* yes-no-cancel buttons */
                               ( 2 * 16 ) + /* question icon */
                               ( 1 * 256) ) /* default button = no */
                               .
   
        if lv-ans = -1
           then message "I'll take that as a maybe." view-as alert-box error.
        else message lv-ans view-as alert-box.
   
        release object ch-shell.

/*

For popup:

Button Types
Value  Description
0       Show OK button.
1       Show OK and Cancel buttons.
2       Show Abort, Retry, and Ignore buttons.
3       Show Yes, No, and Cancel buttons.
4       Show Yes and No buttons.
5       Show Retry and Cancel buttons.

Icon Types
Value  Description
16      Show "Stop Mark" icon.
32      Show "Question Mark" icon.
48      Show "Exclamation Mark" icon.
64      Show "Information Mark" icon.

The previous two tables do not cover all values for nType. For a 
complete list, see the Microsoft Win32 documentation.

The return value intButton denotes the number of the button that the 
user clicked. If the user does not click a button before 
nSecondsToWait seconds, intButton is set to -1.

Value  Description
1       OK button
2       Cancel button
3       Abort button
4       Retry button
5       Ignore button
6       Yes button
7       No button

*/