Public Class Form1
    Dim lines As New List(Of String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.Multiline = True
        Me.SetBounds(10, 10, 200, 300)
        ListBox1.SetBounds(10, 10, 165, 80)
        TextBox1.SetBounds(10, 100, 165, 100)
        ListBox1.Items.AddRange(New IO.DirectoryInfo( _
          Environment.CurrentDirectory).GetFiles("*txt"))
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Static i As Int32
        SendKeys.Send(lines(i) & "{ENTER}")
        i += 1
        If i = lines.Count Then i = 0
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Timer1.Stop()
        Timer1.Interval = 500            'Pause zwischen den Zeilen
        lines.Clear()
        TextBox1.Clear()
        lines.AddRange(IO.File.ReadAllLines(ListBox1.SelectedItem.ToString))
        TextBox1.Focus()
        If lines.Count > 0 Then Timer1.Start()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Timer1.Stop()
    End Sub
End Class