For Each lines As String In IO.File.ReadAllLines(ListBox1.SelectedItem)
            programm = CreateObject("wscript.shell")
            Do
                programm.sendkeys(lines & "{ENTER}")
                For t As Integer = 1 To (Val(sending.Text) * 10)
                    System.Threading.Thread.Sleep(100)
                    Application.DoEvents()
                    If abbruch Then Exit Do
                Next
            Loop
        Next
    End Sub