DtctGlobMClick

Option Explicit
'

' Detecting Global Mouse Clicks

'

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_LBUTTON) Then
Caption = "Left Click"
ElseIf GetAsyncKeyState(VK_RBUTTON) Then
Caption = "Right Click"
Else
Caption = ""
End If
End Sub