SendKeystrokes Example

Option Explicit

Sub Main

Dim intReturn As Integer

Dim varKeystrokes As Variant

Dim intPauseFirst As Integer

Dim intPauseLength As Integer

 varKeystrokes = "Send these keystrokes"

 intPauseFirst = 1

 intPauseLength = 2000

 intReturn = Action2.SendKeystrokes (varKeystrokes, intPauseFirst, intPauseLength)

 If intReturn = 0 Then

  MsgBox "Failure"

  MsgBox( Action2.GetLastError )

 ElseIf intReturn = 1 Then

  MsgBox "Success"

 End If

End Sub