Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As MouseEventFlags, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Enum MouseEventFlags
    MOUSEEVENTF_LEFTDOWN = &H2
    MOUSEEVENTF_LEFTUP = &H4
    MOUSEEVENTF_MIDDLEDOWN = &H20
    MOUSEEVENTF_MIDDLEUP = &H40
    MOUSEEVENTF_MOVE = &H1
    MOUSEEVENTF_ABSOLUTE = &H8000
    MOUSEEVENTF_RIGHTDOWN = &H8
    MOUSEEVENTF_RIGHTUP = &H10
End Enum
Public Sub Main()
    For Clickeeeee = 1 To 50
        Dim mouseButtons As Long ' Pointer to mouse button struct - unused
        Dim dwEI As Long ' Pointer to Extra Info struct - unused
        
        ' N.B. A mouse "click" is Down then Up
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, mouseButtons, dwEI
        NoFreezeSleep 1
    Next
End Sub
Private Sub NoFreezeSleep(ByVal NumSecs As Long)
    Dim EntryTime As Long
    EntryTime = Timer
    Do
        DoEvents
    Loop While (Timer - EntryTime) < NumSecs
End Sub