OK, i've found this if it helps
Private Sub Form_Unload(ByVal Cancel As Integer)
hook.StopHook(WH_KEYBOARD_LL)
hook = Nothing
apiLink = Nothing
End Sub
Private Sub hook_KeyDown(ByVal VKey As Long, ByVal scanCode _
As Long, ByVal ExtendedKey As Boolean, ByVal...