VB6.0如何完全禁用或者屏蔽鼠标滚轮的任何输入

'==================窗体代码=================
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
    hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseHookProc, App.hInstance, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnhookWindowsHookEx hHook
End Sub
'=============模块代码==================
Public Const WH_MOUSE = 7 '本地钩子
Public Const WH_MOUSE_LL = 14 '全局钩子
Public Const GWL_WNDPROC = (-4)
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
 
'Public Const WM_LBUTTONDOWN = &H201 '窗口中按下鼠标左键
'Public Const WM_LBUTTONUP = &H202 '窗口中松开鼠标左键
'Public Const WM_MOUSEMOVE = &H200 '窗口中移动鼠标困历
'Public Const WM_RBUTTONDOWN = &H204 '窗口中按下鼠标右键
'Public Const WM_RBUTTONUP = &H205 '窗口中松开鼠标右键
Public Const WM_MOUSEWHEEL = &H20A '鼠标滚轮
'Public Const WM_NCLBUTTONDOWN = &烂散HA1 '窗口标题栏中按下鼠标左键
'Public Const WM_NCLBUTTONUP = &HA2 '窗口标题栏中左开鼠标左键
'Public Const WM_NCMOUSEMOVE = &HA0  '汪历搜窗口标题栏中移动鼠标
'Public Const WM_NCRBUTTONDOWN = &HA4 '窗口标题栏中按下鼠标右键
'Public Const WM_NCRBUTTONUP = &HA5 '窗口标题栏中松开鼠标右键
 
Public hHook As Long
Public Function MouseHookProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case wParam
'        Case WM_LBUTTONDOWN, WM_NCLBUTTONDOWN
'            Debug.Print "左键按下"
'        Case WM_LBUTTONUP, WM_NCLBUTTONUP
'            Debug.Print "左键弹起"
'        Case WM_RBUTTONDOWN, WM_NCRBUTTONDOWN
'            Debug.Print "右键按下"
'        Case WM_RBUTTONUP, WM_NCRBUTTONUP
'            Debug.Print "右键弹起"
'        Case WM_MOUSEMOVE, WM_NCMOUSEMOVE
'            Debug.Print "鼠标移动"
        Case WM_MOUSEWHEEL
            Debug.Print "鼠标滚轮"
            MouseHookProc = 1
            Exit Function
    End Select
    MouseHookProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function