Uygulama mouse_event - Mouse Click Yapılmış Gibi Komut Göndermek

#If VBA7 And Win64 Then
    Public Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As LongPtr)
#Else
    public 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)
#End If

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

Sub Tikla()
    'Sol Tıklama
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    'Sağ Tıklama
    mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
    'Mouse Tekerleği Tıklama
    mouse_event MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLETUP, 0, 0, 0, 0
End Sub