Вопросик для тех кто хорошо шарит в Hook-ах ( ловушках)!

Хочу сделать ActiveX Control для создания хуков. Что то типа MS Subclass.ocx он не подходит тем что его нельзя использовать для созда ния своих контролов. Дак вот пытаюсь сделать свой ActiveX Control но почемуто установленный хук не вызвает процедуру обработки сообшения.
Кто знат что тут не в порядке подскажите пожалуйста.

Вот код контрола:

'Default Property Values:
Const m_def_Hw = 0

Const m_def_Messages = 0
'Property Variables:
Dim m_Hw As Variant

Dim m_Messages As Variant
'Event Declarations:
Event RunHookProc()
Dim hAppHook


'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=14
Public Function SetHook() As Boolean
If hWnd <> 0 And Messages <> 0 And hAppHook = 0 Then
hAppHook = SetWindowsHookEx(Messages, AddressOf HookProc, Hw, 0)
SetHook = True

Debug.Print 'SETHOOKOK'
End If
End Function


'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=14,0,0,0
Public Property Get Messages() As Variant
Messages = m_Messages
End Property

Public Property Let Messages(ByVal New_Messages As Variant)
m_Messages = New_Messages
PropertyChanged 'Messages'
End Property

'Initialize Properties for User Control
Private Sub UserControl_InitProperties()

m_Messages = m_def_Messages
m_Hw = m_def_Hw
End Sub

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)


m_Messages = PropBag.ReadProperty('Messages', m_def_Messages)
m_Hw = PropBag.ReadProperty('Hw', m_def_Hw)
End Sub

Private Sub UserControl_Terminate()
If hAppHook Then
UnhookWindowsHookEx hAppHook
End If
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty('Messages', m_Messages, m_def_Messages)
Call PropBag.WriteProperty('Hw', m_Hw, m_def_Hw)
End Sub

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=14,0,0,0
Public Property Get Hw() As Variant
Hw = m_Hw
End Property

Public Property Let Hw(ByVal New_Hw As Variant)
m_Hw = New_Hw
PropertyChanged 'Hw'
End Property

Вот код модуля:

Public Declare Function SetWindowsHookEx Lib 'user32' Alias 'SetWindowsHookExA' (ByVal idHook As Long, ByVal lpfn As Any, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib 'user32' (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib 'user32' (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_MOUSEWHEEL = &H20A
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ' &iuml;&eth;&icirc;&ouml;&aring;&auml;&oa cute;&eth;&agrave; &icirc;&aacute;&eth;&agrave;&aacute;&ici rc;&ograve;&ecirc;&egrave; &ecirc;&icirc;&ograve;&icirc;&eth;&agrav e;&yuml; &acirc;&ucirc;&ccedil;&acirc;&agrave;&ar ing;&ograve;&ntilde;&yuml; &ntilde; &euml;&icirc;&acirc;&oacute;&oslash;&eci rc;&egrave;
Debug.Print 'ppp'
HookProc = CallNextHookEx(hAppHook, nCode, wParam, lParam)
HooKControl.RaiseEvent RunHookProc
End Function

0