Windows XP in a Nutshell

Popup

The Popup method displays an interactive Windows popup message and returns a value depending on which button was selected (see Table 9-11):

intButton = object.Popup(strMessage, [numSecondsToWait], _
        [strTitle], [intType])

Table 9-11. Popup parameters

Parameter	Description
strMessage	Message to display.
numSecondsTo-Wait	Optional parameter. If specified, popup waits indicated number of seconds and then closes.
strTitle	Optional title for popup window.
intType	Optional numeric value that decides the number of buttons and icons to show. This is determined by combining a value from Table 9-12 and Table 9-13. For example, the value of 65 displays an OK button and the Information icon.

Popup returns an integer value depending on which button was selected. Tables Table 9-12, Table 9-13, and Table 9-14 list the button selection values, the icon types, and the return values.

'display a popup with yes/no buttons and question mark icon
Set objShell = CreateObject("Wscript.Shell")
intValue = objShell.Popup("Do you wish to continue?", , , 36)
'test if the Yes button was selected
If intValue = 6 Then
    'do something
End If

Table 9-12. Button selection values

Value	Buttons shown
0	OK
1	OK and Cancel
2	Abort, Retry, and Ignore
3	Yes, No, and Cancel
4	Yes and No
5	Retry and Cancel

Table 9-13. Icon types

Value	Icon to show
16	Stop Mark
32	Question Mark
48	Exclamation Mark
64	Information

Table 9-14. Popup return values

Value	Description
1	OK button ...