Imports System.Runtime.InteropServices
 
Public Delegate Function HookCallback(ByVal nCode As Integer, ByVal wParam As _
  IntPtr, ByVal lParam As intptr) As Integer
 
Public Class Form1
 
    <MarshalAs(UnmanagedType.FunctionPtr)> _
    Private callbackKeyboard As HookCallback
    Private Shared hHookKeyboard As Integer = 0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If hHookKeyboard.Equals(0) Then
            callbackKeyboard = New HookCallback(AddressOf KeyboardHookProc)
            hHookKeyboard = WinApi.SetWindowsHookEx(WinApi.WH_KEYBOARD_LL, _
              callbackKeyboard, WinApi.GetModuleHandle(Nothing), 0)
            If hHookKeyboard.Equals(0) Then
                MessageBox.Show("Keyboard Hook Failed:" & vbCrLf & _
                  hHookKeyboard.ToString() & vbCrLf & Marshal.GetLastWin32Error( _
                  ), "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, _
                  MessageBoxDefaultButton.Button1)
            End If
        End If
    End Sub
 
End Class
 
'API Functions
 
Public Class WinApi
    Public Const WH_KEYBOARD_LL As Integer = 13
 
    Public Structure KBDLLHOOKSTRUCT
        Public vkCode As Integer
        Public scanCode As Integer
        Public flags As Integer
        Public time As Integer
        Public dwExtraInfo As Integer
    End Structure
 
    <DllImport("coredll.dll")> _
    Public Shared Function SetWindowsHookEx( _
        ByVal idHook As Integer, ByVal HookProc As HookCallback, _
        ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
    End Function
 
    <DllImport("coredll.dll")> _
    Public Shared Function GetModuleHandle(ByVal mod2 As String) As IntPtr
    End Function
 
    <DllImport("coredll.dll")> _
    Public Shared Function CallNextHookEx( _
        ByVal idHook As Integer, ByVal nCode As Integer, _
        ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    End Function
 
End Class