Popatrz na to - w nagłówku modułu:
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 Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, _
ByVal Y As Long) As Long
i wtedy gdzieś dalej:
Private Sub Klik(X As Long, Y As Long, Btn As Integer) ' Kliknij: 1 - lewym; 2 - środkowym; 3 - prawym
Dim Fl As Variant: Fl = Array(&H6, &H60, &H18)
SetCursorPos X, Y
mouse_event Fl(Btn - 1), 0, 0, 3, 3
End Sub