寻求一个VB编程的朋友给我一个游戏自动喊话的代码

'建立2个text文本，text1,text2,2个按钮command1,commadn2,一个记时器timer1
'text1是喊话的内容.
'text2是每隔多少秒喊一次
'command1是开始喊话
'command2是停止.代码是在下面复制到窗体里就OK了.
'------------------------
Dim i As Integer
Private Sub Command1_Click()
Me.WindowState = 1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
i = 0
End Sub

Private Sub Timer1_Timer()
If i = Val(Text2) Then
SendKeys Text1.Text
i = 0
Else
i = i + 1
End If
End Sub

sendkeys "喊话内容"