Option Explicit
Sub Main
Dim intReturn As Integer
Dim varWindowText As Variant
Dim intExactMatch As Integer
Dim intIncludeChildren As Integer
Dim intWaitTime As Integer
Dim intCheckInterval As Integer
Dim intNoWindowAction As Integer
Dim varTaskToStart As Variant
varWindowText = "Untitled - Notepad"
intExactMatch = 0
intIncludeChildren = 0
intWaitTime = 5
intCheckInterval = 1
intNoWindowAction = 0
varTaskToStart = "TaskNameToStart"
intReturn = Action2.WaitForWindow (varWindowText, intExactMatch, intIncludeChildren, intWaitTime, intCheckInterval, intNoWindowAction, 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