Отслеживание нажатий на клавиатуру

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

Option Explicit
 
Private Const WH_MOUSE = 7
Private Const WH_KEYBOARD = 2
 
Private Declare Function LoadLibrary Lib 'kernel32' Alias 'LoadLibraryA' (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib 'kernel32' (ByVal hLibModule As Long) As Long
Private Declare Function GetProcAddress Lib 'kernel32' (ByVal hModule As Long, ByVal lpProcName As String) As Long
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 UnhookWindowsHookEx Lib 'user32' (ByVal hHook As Long) As Long
 
Private hLib As Long, hProc As Long, hHook As Long
 
Private Sub Form_Load()
Dim lretval As Long
hLib = LoadLibrary('D:MyDll1.dll') 'Ну адресс ДЛЛ - ки
hProc = GetProcAddress(hLib, 'HookIn') 
lretval = SetWindowsHookEx(WH_MOUSE, hProc, hLib, 0)
End Sub