一个简单的VB模拟按键

我想请高手编写一个VBS的文件，
效果是这样的：按F10开始程序.弹出一个对话框来确认焦点，
然后自动按"A""V""V""A""V""V"......这样不停的循环,
大概0.5秒一下按键，
按F12退出程序。

请各位大哥帮帮忙啊！~~~~
~~~~想游戏挂机用...！最好能修改按键！

' 建立一个窗体，窗体中含有两个名称各为“GetKey1”和“Run1”的Timer控件，并写入以下：
'------------------------------------------------------
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function

Private Sub Form_Load()
GetKey1.Interval = 50
End Sub

Private Sub GetKey1_Timer()
If MyHotKey(vbKeyF10) Then Run1.Interval = 500 '重复延时500毫秒
If MyHotKey(vbKeyF12) Then Run1.Interval = 0
End Sub

Private Sub Run1_Timer()
keybd_event vbKey1, 0, 0, 0 '按键1
Sleep 500 '延时500毫秒
keybd_event vbKeyV, 0, 0, 0 '按键V
End Sub