'*  Constanten voor Icons
'**  Icon			Naam		Waarde
'**--------------------------------------------------
'**  STOP 		vbCritical		16 
'**  VRAAGTEKEN 		vbQuestion	32 
'**  UITROEPTEKEN 	vbExclamation 	48 
'**  INFORMATIE		vbInformation 	64 
 
'* Constanten voor Buttons
'**  Button		      Naam		Waarde
'**-----------------------------------------------------------
'**  OK 			      vbOKOnly 		0 
'**  OK en CANCEL 	      vbOKCancel 		1 
'**  ABORT, RETRY en IGNORE    vbAbortRetryIgnore 	2 
'**  YES, NO en CANCEL 	      vbYesNoCancel	3 
'**  YES en NO 		      vbYesNo 		4 
'**  RETRY en CANCEL 	      vbRetryCancel		5 

'* Constanten voor Default Button Locaties
'**  Locatie 	Naam		Waarde
'**-----------------------------------------
'**  LINKS	vbDefaultButton1 	0 
'**  MIDDEN 	vbDefaultButton2	256 
'**  RECHTS 	vbDefaultButton3 	512 


'**Voorbeelden van messageboxen
'**Simpel
	WScript.Echo "Dit is mijn computer: "

'**Timed-out(5 sec. zichtbaar)
	Const TIMEOUT = 5
	Set objShell = WScript.CreateObject("WScript.Shell")
	objShell.Popup "Rapport compleet", TIMEOUT

'** Meer opties
	strPopupTitle = "Popup Voorbeeld"
	strPopupText = "Ja en Nee Buttons"
	objShell.Popup strPopupText, TIMEOUT, strPopupTitle, vbYesNo + vbDefaultButton3