Устанавливает наш обработчик событий для формы
       lpPrevWndProc = SetWindowLong(hndForm, GWL_WNDPROC, AddressOf WindowProc)


    ' Возвращает обратно станд. обработчик
    SetWindowLong hndForm, GWL_WNDPROC, lpPrevWndProc
  

это пример для ловли сообщения о прокрутке колесика мыши в ListBox формы VBA Excel. Он ловит
это событие и посылает его ListBox  в виде нажатия клавиш PgDn или "Стрелок", потому
как станд. сообщение о прокрутке скрола ListBox  в Excel не обрабатывает (в отл. от Access)


Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
   ' Наш обработчик событий
   Dim hWndFocus As Long
   Dim hWndParent As Long
   Dim lpClassName As String
   Dim WHEEL_DELTA As Long
   Dim i As Integer, k As Integer

   ' обрабатываем событие - поворот колесика
   If uMsg = WM_MouseWheel Then
     ' проверям стоит ли фокус на каком-нибудь ListBox
     '------------------------------------------------
     hWndFocus = apiGetFocus
     ' буфер для имени класса окна
     lpClassName = Space( 256 )
     ' получаем имя класса активного элемента
     i = GetClassName(hWndFocus, lpClassName, 256)
     ' от пробелов освобождаемся
     lpClassName = Left(lpClassName, i)
     If lpClassName =  "F3 Server 60000000 " Then
       ' у родителя ListBox'a должен быть такой же класс,
       ' а если родителя нет, то это не ListBox, а клиент. часть формы
       ' ----------------------------------------------
 
       hWndParent = GetParent(hWndFocus)
       If hWndParent >  0  Then
         lpClassName = Space( 256 )
         i = GetClassName(hWndFocus, lpClassName,  256 )
         lpClassName = Left(lpClassName, i)
         If lpClassName =  "F3 Server 60000000 " Then
           ' все OK, это ListBox работаем с ним дальше
           ' ------------------------------------------
 
           ' параметр WHEEL_DELTA хранится в High-word wParam
           WHEEL_DELTA = wParam And cHighWord
           k = intScroll
           Do
            If WHEEL_DELTA > 0 Then
              If boolRowPage Then
                i = PostMessage(hWndFocus, WM_KEYDOWN, VK_UP, vbNull)
              Else
                i = PostMessage(hWndFocus, WM_KEYDOWN, VK_PRIOR, cExtKeyFlag)
              End If
            Else
              If boolRowPage Then
                i = PostMessage(hWndFocus, WM_KEYDOWN, VK_DOWN, vbNull)
              Else
                i = PostMessage(hWndFocus, WM_KEYDOWN, VK_NEXT, cExtKeyFlag)
              End If
            End If
            k = k - 1
          Loop While k > 0
         End If
       End If
     End If
   End If
 
 
   ' вызываем станд. функцию (которая была раньше)
   WindowProc = CallWindowProc(lpPrevWndProc, hWnd, uMsg, wParam, lParam)
End Function