[mohamedahmed1]

اخي هل قصدك انك تريد عرض ما داخل ملف ال Text في الليست بوكس ؟

---

اذا كان هذا قصدك تفضل الكود

كود :

On Error Resume Next
       Dim openfile As New OpenFileDialog
       ListBox1.Items.Clear()
       openfile.Title = "Text |*.txt"
       openfile.ShowDialog()
       Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName)
       ListBox1.Items.AddRange(txtline)