Программное нажатие клавиши - VB (60653)

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

Код по идеи должен программно жать F5 каждые 60 секунд

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 "{F5}"
wait (60)
Loop
End Sub

Но на этой строке выдает ошибку

SendKeys "{F5}"

Не пойму в чем дело... Подскажите пожалуйста.

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

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

                            ' Создаем новый объект клавиатуры
 Dim kb As New Devices.Keyboard
 ' Нажимаем
 kb.SendKeys("{F5}")
                        