Public Class MyClass
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
forLoop()
End Sub
Private Sub forLoop()
For i = 0 To 10 Step 1
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")
Next i
End Sub
End Class