Sorry for my english and thank you for reply
Quote:
dim count as integer = 0
Private Sub Tiktoc_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tiktoc.Tick
If count < 10 Then
SendKeys.Send("q")
count = count + 1
Else
Tiktoc.Stop()
Tiktoc.Dispose()
End If
End Sub