Option Explicit
Sub Main
Dim intReturn As Integer
Dim varWindowTitle As Variant
Dim intExactMatch As Integer
Dim intIncludeChildren As Integer
Dim intWaitInfinite As Integer
Dim intInterval As Integer
Dim intWaitTime As Integer
Dim intStillPresentAction As Integer
Dim varTaskToStart As Variant
varWindowTitle = "Untitled - Notepad"
intExactMatch = 0
intIncludeChildren = 0
intWaitInfinite = 1
intInterval = 1
intWaitTime = 5
intStillPresentAction = 0
varTaskToStart = "TaskNameToStart"
intReturn = Action2.WaitForWindowToDisappear (varWindowTitle, intExactMatch, intIncludeChildren, intWaitInfinite, intInterval, intWaitTime, intStillPresentAction, varTaskToStart)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
ElseIf intReturn = 2 Then
MsgBox "Task Was Stopped"
End If
End Sub