[3asfa~mdmra]

اخي زبطت ولكن ظهرت اخري هي عند وضعك الاسماء العربية ظهرت كالتالي كما هوا موضح بصورة

كود :

 Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.Text)|*.txt"}
       If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
           For Each line As String In File.ReadAllLines(openfile.FileName)
               ListBox1.Items.Add(line)
           Next
           Dim i As Int16 = 0
           Dim test As String
           Try
               Do While 1 = 1
                   test = ListBox1.Items(i).ToString
                   i = i + 1
               Loop
           Catch
               Label4.Text = i.ToString

           End Try
       End If

مع العلم اني استخدمت هذا الكود