Auto typer from list ?

[ÜB3R]

Sorry about bringing up a older thread. I have compiled the following source however i am having problems . Source as follows.

Public Class Form1
Dim streamer As IO.StreamReader
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
streamer = IO.File.OpenText(TextBox1.Text)
Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)
ListBox1.Items.AddRange(mystring)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Threading.Thread.Sleep(2000)
For Each Obj As String In ListBox1.Items
Threading.Thread.Sleep(2000)
SendKeys.Send(Obj & "~")
Next
End Sub
End Class

The interval/pasting feature is working perfect however what i would like it to do is press enter after each object off listbox is posted. Also if possible clear the location in which it posted in before posting the next line off the listbox. So it will be something like this. Load text file>Click start>Post line off listbox>pause/enter>clear text previously posted> repeat process but post next line off listbox. Hopefully this is explained well. Much appreciated in advance regards UB3R.