在64位的win7下，用vb6.0设置hook出提示找不到入口。

 Private hhook As Long
Private Declare Function SetWindowsHookEx Lib "user32" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Private Sub Form_Load()

    hhook = SetWindowsHookEx(2, AddressOf Module1.AddControlHookA, App.hInstance, App.ThreadID)
End Sub

这是源码，运行后提示

请问，是64位的win7不支持这个方法吗？64位win7要怎么操作呢？