Контроль нажатия клавиш: исправить код

' Импорт для "маршала"
Imports System.Runtime.InteropServices
 
' контроль нажатий клавиш в активном  пассивном режиме
Public Class Form1
    Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Const WH_KEYBOARD_LL As Integer = 13
    Private Const WM_KEYUP As Integer = &H101
    Private Shared _proc As LowLevelKeyboardProc = AddressOf HookCallback
    Private Shared _hookID As IntPtr = IntPtr.Zero
 
    Public Declare Auto Function SetWindowsHookEx Lib "user32.dll" ( _
         ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
 
    Public Declare Auto Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hhk As IntPtr) As IntPtr
 
    Public Declare Auto Function CallNextHookEx _
     Lib "user32.dll" (ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
 
    Public Declare Auto Function GetModuleHandle Lib "kernel32.dll" (ByVal lpModuleName As String) As IntPtr
 
    Private Shared Function SetHook(ByVal proc As LowLevelKeyboardProc) As IntPtr
        Dim curProcess As Process = Process.GetCurrentProcess()
        Dim curModule As ProcessModule = curProcess.MainModule
        Return SetWindowsHookEx(WH_KEYBOARD_LL, proc, GetModuleHandle(curModule.ModuleName), 0)
    End Function
    ' а это уже к эмулятору нажатий клавиш...
    Public Delegate Function LowLevelKeyboardProc( _
         ByVal nCode As Integer, ByVal wParam As IntPtr, _
         ByVal lParam As IntPtr) As IntPtr
    Private Declare Sub keybd_event Lib "user32.dll" _
                   (ByVal bVk As Byte, ByVal bScan As Byte, _
               ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    ' 
    Public Shared Function HookCallback(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        If nCode >= 0 And wParam = CType(WM_KEYUP, IntPtr) Then
            Dim vkCode As Keys = CType(Marshal.ReadInt32(lParam), Keys)
            ' клавиша, посе нажатия которой происходит событие
            If vkCode = Keys.Oemtilde Or vkCode = Keys.Oemtilde Then
                ' а здесь собственно происходит реакция после нажатия определенной клавиши
                Clipboard.SetText("test text, в дальнейшем скорее всего будет переменная типа String")
                ' эмулируется клавиша Back для стирания одного символа, поскольку реакция идет на "символьную" клавишу
                ' это событие проходит на ура: нажимаем "~", происходит перехват события
                ' keybd_event(8, 0, 0, 0) "стирает" тильду..., и вот дальше проблема... 
                keybd_event(8, 0, 0, 0)
                ' это должно по идеии эмулировать нажатие клавиш Ctrl + V, но вместо этого происходит "Зажим" клавиши Ctrl 
                ' тоесть происходит "нажатие" Ctrl а V почему-то нет....
                ' и вот эта Ctrl так и остаеться "нажатой", пока ее не отожмешь вручную....
                keybd_event(17, 86, 0, 0)
                ' эта строчка эмулирует нажатие V , текст вставляется в онкно но отжатие Ctrl не происходит..
                'SendKeys.SendWait("{V}")
                ' а вот если дописть 
                ' keybd_event(17, 86, 86, 86)
                ' то вставка данных происходит и отжатие тоже, но вместо текста получаеться всякая тарабаршина
 
            End If
        End If
        Return CallNextHookEx(_hookID, nCode, wParam, lParam)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _hookID = SetHook(_proc)
    End Sub
    Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean
End Class