Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _    LongPrivate Const KEYEVENTF_KEYUP = &H2' press and/or release any key, given its virtual code'' virtKeyCode can be any vbKey* constants, except mouse constants' Action can be 0 or omitted (press and then release the key)'                     >0  (only press the key)'                     <0  (only release the key)Sub PressVirtualKey(ByVal virtKeyCode As KeyCodeConstants, _    Optional ByVal Action As Integer)    ' press the key if the argument is 0 or greater    If Action >= 0 Then        keybd_event virtKeyCode, 0, 0, 0    End If    ' then release the key if the argument is 0 or lesser    If Action <= 0 Then        keybd_event virtKeyCode, 0, KEYEVENTF_KEYUP, 0    End IfEnd Sub