Как отловить скроллинг колесом мыши?

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   'Form1'
   ClientHeight    =   3900
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8220
   LinkTopic       =   'Form1'
   ScaleHeight     =   3900
   ScaleWidth      =   8220
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtLog 
      BackColor       =   &H00C0FFFF&
      Height          =   3375
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   3
      Top             =   420
      Width           =   2355
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   4620
      TabIndex        =   1
      Text            =   'Фокус - здесь, а прокрутка - у листбокса !'
      Top             =   180
      Width           =   3375
   End
   Begin VB.ListBox List1 
      Height          =   3570
      Left            =   2640
      TabIndex        =   0
      Top             =   180
      Width           =   1875
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   'Протокол:'
      Height          =   195
      Left            =   120
      TabIndex        =   4
      Top             =   240
      Width           =   780
   End
   Begin VB.Label Label1 
      Caption         =   'Крутите колесом над любым местом формы - например, ниже этой надписи:'
      Height          =   435
      Left            =   4620
      TabIndex        =   2
      Top             =   600
      Width           =   3510
   End
End
Attribute VB_Name = 'Form1'
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
 
Private Const WM_VSCROLL = &H115
Private Const SB_LINEDOWN = 1
Private Const SB_LINEUP = 0
 
Private Sub Form_Activate()
    Text1.SetFocus
End Sub
 
Private Sub Form_Load()
     Dim i As Integer
     ' Наполняем список двумя сотнями строк:
     For i = 10000 To 10200
        List1.AddItem CStr(i)
     Next i
     ' Ставим перехват:
     IMWheel_Hook
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    IMWheel_Unhook
End Sub
 
Public Sub WheelMoved(ByVal delta As Long, X As Long, Y As Long)
    sMsg = 'X=' + CStr(X) + ', Y=' + CStr(Y) + ', delta=' + CStr(delta)
    With txtLog
        .SelStart = Len(.Text)
        If .SelStart = 0 Then
            .Text = sMsg
        Else
            .SelText = vbNewLine + sMsg
        End If
    End With
    ' (просто имеем возможность знать координаты мыши в момент
    '  прокрутки её колеса)
    If delta > 0 Then
        SendMessage List1.hwnd, WM_VSCROLL, SB_LINEUP, 0
    Else
        SendMessage List1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0
    End If
End Sub