Код имитации нажатия клавиши - VB

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

Подскажите код программы на virtual basic которая бы в фоновом режиме осуществляла бы имитацию нажатия клавиши (только одной и той же клавиши), обжатие клавиши, и повтор циклы через 2 секунды, данное действие должно выполнятся бесконечно до закрытия программы. Программа должна работать в фоновом режиме и выполнять действие в полно экранных приложениях. В basic не селен, если можно поподробнее. Заранее большое спасибо

Решение задачи: «Код имитации нажатия клавиши»

textual
                            Листинг программы 
                        
 
                        
                          
                    
with createobject("wscript.shell")
  do
    .sendkeys "a" 'символ, который посылать 
    wscript.sleep 2000 'задержка в миллисекундах
  loop
end with