Можете посмотреть отрывок программы) - VB

Public Sub MouseClick()
Dim cbuttons As Long, dwExtraInfo As Long, mevent As Long
mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP ' для другой кнопки мыши используйте нужные константы предоставленны выше
Call mouse_event(mevent, 0&, 0&, cbuttons, dwExtraInfo)
End Sub
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) 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)
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_LEFTDOWN = &H2
 
Private Sub Command1_Click()
Call SetCursorPos(325, 1009)
MouseClick
Call SetCursorPos(329, 333)
MouseClick
End Sub