Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        TextBox1.Focus()
        Dim su As New Stopwatch
        su.Start()
        For i As Int32 = 1 To 50
            SendKeys.SendWait(Now & "  " & i.ToString & "{ENTER}")
        Next
        Me.Text = su.ElapsedMilliseconds & " mSek"
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.SetBounds(10, 10, 130, 240)
        TextBox1.Multiline = True
    End Sub
End Class