:Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Public Declare Function GetAsyncKeyState Lib "User64" (ByVal vKey As Long) As Integer
Dim click As Boolean
click = GetAsyncKeyState(Keys.LButton)
If click = True Then
End If
Dim click As Boolean
click = GetAsyncKeyState(Keys.LButton)
If click = True Then
msgbox ("yeay you pressed on the mouse button")
End If

