Public Const GWL_WNDPROC = (- 4 )
Global lpPrevWndProc As Long

' Описание функции, которой надо передать управление после обработки 
'сообщения окна на которое поставили Хук


Declare Function CallWindowProc Lib  "user32"  Alias _
          "CallWindowProcA"  (ByVal lpPrevWndFunc As Long, ByVal Hwnd As _
         Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As _
         Long) As Long

' Функция устанавливает новую функцию- обработчик событий для окна

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
         (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As _
         Long) As Long


Public Sub Hook(hwnd as long)
  ' Устанавливает Hook не окно с дескриптором hwnd 
  lpPrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub Unhook(hwnd as long)
  ' Снимает Hook с окна с дескриптором hwnd
  Dim temp As Long
  temp = SetWindowLong(hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
  ' Функция принимающая сообщения от окна
  ' Здесь можно перехватывать все сообщения окна, на который постален хук
  ' передаем управление стандартному обработчику окна
  WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function