VB Code:
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
Public Delegate Function LowLevelKeyboardProcDel(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'yadda yadda yadda
End Function
Private m_hDllKbdHook As Long 'private variable holding
Public Sub Main
m_hDllKbdHook = SetWindowsHookEx(WH_KEYBOARD_LL, New LowLevelKeyboardProcDel(AddressOf LowLevelKeyboardProc), hIcon, 0&)
'error is here. Starting at New Low...
End Sub