'Подключение функции API Windows "mouse_event" из Виндосовской библиотеки "user32", которая позваляет управлять мышью
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)
'Значения параметра dwFlags, определяющие поведение функции mouse_event
Private Const MouseEvDown = &H2  'Нажать левую кнопку
Private Const MouseEvUp = &H4  'Отпустить левую кнопку
'Подключение функции API Windows "SetCursorPos", которая устанавливает позицию курсора мыши по координатам, соответствующим разрешению вашего монитора
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
'Подключение фукнции API Windows "GetCursorPos",которая позволяет отслеживать положение курсора мыши по координатам экрана монитора (для проверки координат)
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTTYPE) As Long
'Подключение функции API Windows "Sleep", её можно использовать вместо таймера, выставляя задержки в милисекундах
Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Sub MouseClick(x, y) 'Клик мыши по координатам (x,y)
Call SetCursorPos(x, y)
mouse_event MouseEvDown, 0, 0, 0, 0
mouse_event MouseEvUp, 0, 0, 0, 0
End Sub