"Проглатываются" нажатия клавиш или клики мыши

Public Enum HookFlags
   HFMouseDown = 1
   HFMouseUp = 2
   HFKeyDown = 8
   HFKeyUp = 16
End Enum
 
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hMod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Private Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long)
Private Declare Function GetForegroundWindow& Lib "user32" ()
Private Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
Private Declare Function GetKeyboardLayout& Lib "user32" (ByVal dwLayout As Long)
Private Declare Function MapVirtualKeyEx Lib "user32" Alias "MapVirtualKeyExA" (ByVal uCode As Long, ByVal uMapType As Long, ByVal dwhkl As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOREDRAW = &H8
 
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
 
Private Const WH_JOURNALRECORD = 0
 
Type EVENTMSG
     wMsg As Long
     lParamLow As Long
     lParamHigh As Long
End Type
 
Dim EMSG As EVENTMSG
Dim hHook As Long, frmHooked As Form, hFlags As Long
 
 
Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  If nCode < 0 Then
     HookProc = CallNextHookEx(hHook, nCode, wParam, lParam)
     Exit Function
  End If
  Dim i%, j%
  CopyMemory EMSG, ByVal lParam, Len(EMSG)
  Select Case EMSG.wMsg
    Case WM_LBUTTONDOWN, WM_RBUTTONDOWN
       If (hFlags And HFMouseDown) = HFMouseDown Then
         If GetAsyncKeyState(vbKeyShift) Then i = 1
         If GetAsyncKeyState(vbKeyControl) Then i = 2
         If GetAsyncKeyState(vbKeyMenu) Then i = 4
         frmHooked.System_MouseDown 2 ^ ((EMSG.wMsg - 513) / 3), i, CSng(EMSG.lParamLow), CSng(EMSG.lParamHigh)
       End If
    Case WM_LBUTTONUP
       If (hFlags And HFMouseUp) = HFMouseUp Then
         If GetAsyncKeyState(vbKeyShift) Then i = 1
         If GetAsyncKeyState(vbKeyControl) Then i = 2
         If GetAsyncKeyState(vbKeyMenu) Then i = 4
         frmHooked.System_MouseUp 2 ^ ((EMSG.wMsg - 514) / 3), i, CSng(EMSG.lParamLow), CSng(EMSG.lParamHigh)
       End If
  End Select
  Call CallNextHookEx(hHook, nCode, wParam, lParam)
End Function
 
Public Sub SetHook(fOwner As Form, flags As HookFlags)
   hHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf HookProc, App.hInstance, 0)
   Set frmHooked = fOwner
   hFlags = flags
   Window_SetAlwaysOnTop frmHooked.hwnd, True
End Sub
 
Public Sub RemoveHook(isFrm As Form)
   UnhookWindowsHookEx hHook
   Window_SetAlwaysOnTop isFrm.hwnd, False
   Set isFrm = Nothing
End Sub
 
Private Function Window_SetAlwaysOnTop(hwnd As Long, bAlwaysOnTop As Boolean) As Boolean
   Window_SetAlwaysOnTop = SetWindowPos(hwnd, -2 - bAlwaysOnTop, 0, 0, 0, 0, SWP_NOREDRAW Or SWP_NOSIZE Or SWP_NOMOVE)
End Function

Dim isMouseState As Boolean
 
 
Public Sub System_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
   If Button = vbLeftButton Then isMouseState = True
   
   If Button = vbRightButton And isMouseState Then
      Call RemoveHook(Me)
      Me.Show
   End If
End Sub
 
Public Sub System_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
   If Button = vbLeftButton Then isMouseState = False
End Sub
 
Private Sub Form_Load()
   Call SetHook(Me, HFMouseDown + HFMouseUp)
End Sub