Программное нажатие клавиши в VB6

Формулировка задачи:

Здравствуйте! Помогите написать программу (VB6), которая через каждые 5 мин. 10 сек (310 сек) будет нажимать клавишу F3 на клавиатуре. Программа резидентная/ Спасибо!

Решение задачи: «Программное нажатие клавиши в VB6»

textual
                            Листинг программы 
                        

                            Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
 
Public Sub wait(seconds)
Timer1.Enabled = True
Timer1.Interval = 1000 * seconds
While Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub
 
Private Sub btn_start_Click()
Do While True
SendKeys "{F3}"
wait (60)
Loop
End Sub
                        