Con questo codice aggiunge tutte le righe finchè non ha finito:
codice:
Do While filetxt.EndOfStream
     ListBox1.AddItem (fileTxt.readline)
Loop