VB 获得鼠标滚轮的事件

'窗体代码
Private Sub Form_Load()
HookMouse Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer )
UnHookMouse Me.hwnd
End Sub

'模块代码
'***********************************************************
'mMouseWheel
'鼠标滚轮的事件检测
'***********************************************************
Option Explicit

Private Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" ( ByVal lpPrevWndFunc As Long , ByVal hwnd As Long ,