dll问题，高手帮忙看看

Question

我要做一个dll，在里面想调用  回调函数 ，我又在同一个工程下新建了一个模块放这个回调函数，结果dll中的参数传不到回调函数里，我的代码如下
类模块：
Option Explicit
Public hHook As LongPrivate Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) 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 GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
Public Sub UnHookKBD()
'If hnexthookproc <> 0 Then
    UnhookWindowsHookEx hHook
    hHook = 0
'End If
End SubPublic Function EnableKBDHook()
If hHook <> 0 Then
    Exit Function
End If
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf MyKBHFunc, GetModuleHandle("hook.dll"), 0)
Debug.Print Err.LastDllError
Debug.Print GetLastError()
End Function
模块：
Option ExplicitPrivate Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Dim hHook As LongPublic Function MyKBHFunc(ByVal iCode As Long, _
     ByVal wParam As Long, ByVal lParam As Long) As Long
   MyKBHFunc = 0 '表示要处理这个讯息   If wParam = vbKeySnapshot Then  '侦测 有没有按到PrintScreen键
     MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
   End If
   Call CallNextHookEx(hHook, iCode, wParam, lParam) '传给下一个Hook
End Function

Answer 1

hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf MyKBHFunc, GetModuleHandle("hook.dll"), 0)
不对.