LISTING 1: SimpleEventSink.vbs

Option Explicit
Dim objIE
Set objIE = WScript.CreateObject( _
	"InternetExplorer.Application", "IE_")
objIE.Visible = True

While True
	WScript.Sleep 5
Wend

' BEGIN CALLOUT A
Sub IE_onQuit
	WScript.Echo "Event trapped" 
End Sub
' END CALLOUT A