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 UnhookWindowsHookEx Lib "user32" (ByVal hHook 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 Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any,ByVal lpvSource As Long,ByVal cbCopy As Long)

Public Type MOUSEMSGS
X As Long 'x座标
Y As Long 'y座标
a As Long
b As Long
time As Long 'Window运行时间
End Type

Public Const WH_MOUSE_LL = 14

'-----------------------------------------
'消息
Public Const HC_ACTION = 0

'鼠标消息
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MOUSEACTIVATE = &H21
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSELAST = &H209
Public Const WM_MOUSEWHEEL = &H20A

Public MouseMsg As MOUSEMSGS
Public lHook As Long '记录Hook的值，以便退出程序的时候销毁Hook
Public lClick As Long,mClick As Long,rClick As Long,tClick As Long '用来统计鼠标各个键的按下次数

'鼠标钩子
Public Function CallMouseHookProc(ByVal code As Long,ByVal lParam As Long) As Long

If code = HC_ACTION Then
CopyMemory MouseMsg,lParam,LenB(MouseMsg)

frmMain.Caption = "X=" + Str(MouseMsg.X) + " Y=" + Str(MouseMsg.Y)'在主窗口上显示鼠标的当前位置

Select Case wParam '根据不同鼠标动作进行处理，在这里只处理了鼠标按下的动作
Case WM_LBUTTONDOWN '左键按下
lClick = lClick + 1 '进行统计，并显示在住窗体的文本框上
tClick = tClick + 1
frmMain.txtMsg(0).Text = lClick
frmMain.txtMsg(3).Text = tClick
CallMouseHookProc = 0 '这里把返回值设定为0，保证鼠标动作正常完成
Case WM_MBUTTONDOWN '中键按下
mClick = mClick + 1
tClick = tClick + 1
frmMain.txtMsg(1).Text = mClick
frmMain.txtMsg(3).Text = tClick
CallMouseHookProc = 0
Case WM_RBUTTONDOWN '右键按下
rClick = rClick + 1
tClick = tClick + 1
frmMain.txtMsg(2).Text = rClick
frmMain.txtMsg(3).Text = tClick
CallMouseHookProc = 0
End Select

End If

If code <> 0 Then
CallMouseHookProc = CallNextHookEx(0,code,wParam,lParam) '使用CallNextHookEx，来保证鼠标钩子能够被其它程序使用
End If

End Function

'接下来，我们再给窗体里面添加代码

Private Sub AddHook() '安装鼠标钩子
lHook = SetWindowsHookEx(WH_MOUSE_LL,AddressOf CallMouseHookProc,App.hInstance,0)
End Sub
Private Sub DelHook()'卸除鼠标钩子

UnhookWindowsHookEx lHook
End Sub

Private Sub Form_Load() '窗体载入的时候，安装鼠标钩子
AddHook
End Sub

Private Sub Form_Unload(Cancel As Integer)'窗体卸载的时候，卸除鼠标钩子 DelHookEnd Sub