WindowUnhide Example

Option Explicit

Sub Main

Dim intReturn As Integer

Dim varWindowTitle As Variant

Dim intExactMatch As Integer

 varWindowTitle = "Untitled - Notepad"

 intExactMatch = 0

  intReturn = Action2.WindowUnhide(varWindowTitle, intExactMatch)

 If intReturn = 0 Then

  MsgBox "Failure"

  MsgBox( Action2.GetLastError )

 ElseIf intReturn = 1 Then

  MsgBox "Success"

 End If

End Sub