UnlockKeyboard Example

Option Explicit

Sub Main

Dim intReturn As Integer

 Action2.LockKeyboard

 Wait 1

 intReturn = Action2.UnlockKeyboard

 If intReturn = 0 Then

  MsgBox "Failure( use mouse to clear this message )"

  MsgBox( Action2.GetLastError )

 ElseIf intReturn = 1 Then

  MsgBox "Success( use keyboard to clear this message )"

 End If

End Sub