用vb编一段小程序，有追加分100分

让电脑反复执行：
空格键，间隔0.5秒，方向键下，间隔0.5，回车键，间隔，方向左，方向左键，回车，回车，空格，空格，空格，ESC
之间都有点间隔
就这些了
就是帮我编个代码， 模拟键盘操作
需要，循环。。。。。。我切到另一个窗口时，一直执行

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 10
Presskey i

Next
End Sub

Private Sub Presskey(Index As Integer)
Dim t As Single
t = Timer
Do Until Timer - t - 0.5 > 0
DoEvents
Loop
Select Case Index

Case 0
SendKeys " " '空格键

Case 1
SendKeys "{DOWN}" '方向键下

Case 2

SendKeys "{ENTER}" '回车键

Case 3
SendKeys "{LEFT}" '方向左

Case 4
SendKeys "{LEFT}" '方向左

Case 5
SendKeys "{ENTER}" '回车键
Case 6

SendKeys "{ENTER}" '回车键
Case 7

SendKeys " " '空格键
Case 8

SendKeys " " '空格键
Case 9

SendKeys " " '空格键
Case 10

SendKeys "{ESC}" 'ESC

End Select
End Sub

在窗体添加时钟 Timer1