[Arquan_Grave]

كود :

           Dim readedFile() As String = File.ReadAllLines(مسار الملف المطلوب)
           For Each line As String In readedFile
               ListBox1.Items.Add(line)
           Next

تفضل أخي