[masaoud]

(14-08-20, 08:03 PM)saleh101 كتب :

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)

جرب باضافة نوع الترميز UTF8
Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName, System.Text.Encoding.UTF8) 'مع تحديد الترميز