'窗体代码
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 , ByVal