Option Explicit
Sub Main
Dim intReturn As Integer
Dim varWindowTitle As Variant
Dim intExactMatch As Integer
varWindowTitle = "Untitled - Notepad"
intExactMatch = 0
intReturn = Action2.WindowMinimize(varWindowTitle, intExactMatch)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub