SendKeys.Send("1")
SendKeys.Send("2")
SendKeys.Send("3")
SendKeys.Send("4")
SendKeys.Send("1")
Wait 100
SendKeys.Send("2")
Wait 100
SendKeys.Send("3")
Wait 100
SendKeys.Send("4")
Wait 100

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
SendKeys.Send("1")
sleep(100)
SendKeys.Send("2")
sleep(100)



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Private Sub farm_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles farm.Tick
SendKeys.Send("1")
Sleep(1000)
SendKeys.Send("2")
Sleep(1000)
SendKeys.Send("3")
Sleep(1000)
SendKeys.Send("4")
Sleep(1000)
End Sub

sendkeys.send w/e timer2.start
timer1.stop sendkeys.send w/e timer1.start timer2.stop