Code:

private sub Command1_Click()
    timer1.interval=10000
    timer1.enabled=true
    do until timer1.enabled
        mouse_event(MOUSEEVENTF_LEFTDOWN,50,50,0,0)
        mouse_event(MOUSEEVENTF_LEFTUP,50,50,0,0)
    loop
End sub

Private sub timer1_timer()
    timer1.enabled=false
end sub

Code:
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd _
    As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal _
    lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal _
    hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As Any, _
    ByVal lpszWindow As Any) As Long
    Private Const BM_CLICK = &HF5
    Dim petlja As Boolean

Private Sub Command1_Click()
If petlja = False Then petlja = True Else petlja = True
   Dim hwndDialog As Long
    Dim hwndButton As Long
    Dim retval As Long
Do Until petlja = False
DoEvents
    hwndDialog = FindWindow(CLng(0), "Clickometer v1.0")
    If hwndDialog = 0 Then Exit Sub
    hwndButton = FindWindowEx(hwndDialog, 0, CLng(0), "Click on me as fast as You can!")
    retval = SetActiveWindow(hwndDialog)
    retval = SendMessage(hwndButton, BM_CLICK, ByVal CLng(0), ByVal CLng(0))
Loop
End Sub