Новый класс на основе TreeView

[VSH]

Здравствуйте, господа форумчане!
Помогите, пожалуйста, новичку решить один вопрос:

Пытаюсь создать класс на основе TreeView, и хотелось бы включить в него обработку некоторых событий, например, DblClick. Насколько я понимаю, функция WindowProc используется для перехвата сообщений, адресуемых форме, например:
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
Case WM_LBUTTONDBLCLK
DoSmth...
Case Else
WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
End Select
End Function

А как перехватить сообщение, связанное с данным элементом управления на форме?

Заранее спасибо!

[Antonariy]

lPrevFunc = SetWindowLong(TreeView1.hwnd, GWL_WNDPROC, AddressOf WindowProc)