Attribute VB_Name = "MouseCommands"
'Hacked by www.Nerdful.com
Private Type POINTAPI
    x As Long
    y As Long
End Type

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40

Public strMouseDir As String
Public MSFast As Boolean
Public MSSlow As Boolean
Public MSSpeed As Integer
Public MSButton As String 'www.FotoTrix.com
Dim cButt As Long
Dim dwEI As Long

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Sub MouseClick()
Select Case MSButton 'www.Nerdful.com
    Case "Left"
        mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
        mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
    Case "Right"
        mouse_event MOUSEEVENTF_RIGHTDOWN, 0&, 0&, cButt, dwEI
        mouse_event MOUSEEVENTF_RIGHTUP, 0&, 0&, cButt, dwEI
    Case "Middle"
        mouse_event MOUSEEVENTF_MIDDLEDOWN, 0&, 0&, cButt, dwEI
        mouse_event MOUSEEVENTF_MIDDLEUP, 0&, 0&, cButt, dwEI
    Case "Double Click"
        mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
        mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
        mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
        mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI

End Select
End Sub