SHARE
TWEET

VB.net Code

a guest Sep 2nd, 2012 22 Never
  1. Public Class MyClass
  2.  
  3.     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  4.  
  5.     End Sub
  6.  
  7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.         forLoop()
  9.     End Sub
  10.  
  11.     Private Sub forLoop()
  12.         For i = 0 To 10 Step 1
  13.             SendKeys.Send(TextBox1.Text)
  14.             SendKeys.Send("{ENTER}")
  15.         Next i
  16.     End Sub
  17.  
  18. End Class
RAW Paste Data
Top