Auto typer from list ?

[AceInfinity]

Adding it to the list:

Code:

Using sr As New StreamReader(Environment.ExpandEnvironmentVariables("%UserProfile%\Desktop\file.txt"))
    While sr.Peek > -1
        Dim Ln As String = sr.ReadLine
        If Not String.IsNullOrWhiteSpace(Ln) Then _
        ListBox1.Items.Add(Ln)
    End While
End Using

And for sending them, perhaps you want to make a delay for a couple seconds or so:

Code:

Threading.Thread.Sleep(2000)
For Each Obj As String In ListBox1.Items
    SendKeys.Send(Obj & "~")
Next

Just the basics