Private Type KEYBDINPUT ' событие клавиатуры
  wVk As Integer
  wScan As Integer
  dwFlags As Long
  time As Long
  dwExtraInfo As Long
End Type

Private Type INPUT_TYPE ' событие ввода
  dwType As Long
  xi( 0  To  23 ) As Byte
End Type

Const INPUT_KEYBOARD =  1     ' константа определяет ввод с клавиатуры
Const VK_SHIFT = &H10       ' код клавиши SHIFT

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As INPUT_TYPE, ByVal cbSize As Long) As Long
   
Sub setShift(ShiftState As Boolean)
Dim Inp As INPUT_TYPE
Dim xxi As KEYBDINPUT
Inp.dwType = INPUT_KEYBOARD '   имитировать ввод с клавиатуры
xxi.wVk = VK_SHIFT      '   код клавиши SHIFT
xxi.wScan =  0            '   сканкод - не нужен
xxi.dwExtraInfo =  0      '   экстраинформация - не нужна
xxi.time =  0             '   время - не нужно
If (ShiftState) Then    '
    xxi.dwFlags =  0      ' Нажатие клавиши
Else
    xxi.dwFlags =  2      ' Отпускание клавиши
End If

CopyMemory Inp.xi( 0 ), xxi, Len(xxi) ' копировать структуру xxi в массив байт Inp.xi
SendInput  1 , Inp, Len(Inp) ' WinApi функция поссылки keystrokes, mouse motions, и button clicks
'Спасибо Paul Kuliniewicz
End Sub