Option Explicit
 
Private Sub Form_Load()
    Hook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardProc, _
      App.hInstance, ByVal 0&)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    UnhookWindowsHookEx Hook
End Sub

Option Explicit
 
Public Const WH_KEYBOARD_LL = 13
Private Const HC_ACTION = 0&        ' Message received by our hook function
 
Private Type KBDLLHOOKSTRUCT
    vkCode As Long      ' virtual key code
    scanCode As Long    ' scan code
    flags As Long       ' flags
    time As Long  ' time stamp for this message
    dwExtraInfo As Long ' extra info from the driver or keybd_event
End Type
 
Public 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
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) _
As Long
 
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
  ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As _
Any, pSrc As Any, ByVal ByteLen As Long)
 
Private kbstruct As KBDLLHOOKSTRUCT
 
Public Hook As Long
 
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal _
  lParam As Long) As Long
    If nCode = HC_ACTION Then
        CopyMemory kbstruct, ByVal lParam, LenB(kbstruct)
        Debug.Print kbstruct.scanCode
    End If
    KeyboardProc = CallNextHookEx(Hook, nCode, wParam, lParam)
End Function