Como Hacer Un Flooder Para Ares En Visual Basic 2008

En el button 1 :

Select Case button1.text
case "Empesar"
  With ProgressBar1
            .Minimum = 1
            .Maximum = 10000
            .Value = 1
            .Step = 1

            For i As Integer = .Minimum To .Maximum

                .PerformStep()
            Next i

        End With
Timer1.enabled=true
button1.text = "Terminar"
case "Terminar"
timer1.enabled = false
button1.text = "Empesar"

end select


En El Timer1:

my.computer.keyboard.sendkeys ("#addwordfilter 1, announce, " & textbox1.text)
my.computer.keyboard.sendkeys("{enter}")
my.computer.keyboard.sendkeys("1")
my.computer.keyboard.sendkeys("{enter}")

my.computer.keyboard.sendkeys("1")

my.computer.keyboard.sendkeys("{enter}")

my.computer.keyboard.sendkeys("1")

my.computer.keyboard.sendkeys("{enter}")

my.computer.keyboard.sendkeys("1")

my.computer.keyboard.sendkeys("{enter}")