[e-coder]

سلام عليكم

عيد اضحي مبارك على الجميع

اريد كود جلب مستند نصي من 

Resources

الي

Listbox

 انا جرب الكود التالي ولكن دون جدوي

ظهرت فية بعض الاخطاء

الكود هو

كود :

Dim FileToLoad As String = Global.Freezer_Room_By_Admin_Room.My.Resources.Resources.Banned

       'Open filestream
       Dim fs As FileStream = New FileStream(FileToLoad, FileMode.Open)

       'Open streamreader
       Dim sr As StreamReader = New StreamReader(fs)

       'Display contents of txt file in list box
       Do Until sr.EndOfStream

           ListBox1.Items.Add(sr.ReadLine())
       Loop


       'Close streamreader
       sr.Close()

       'Close filestream
       fs.Close()

       Dim i As Int16 = 0
       Dim test As String
       Try
           Do While 1 = 1
               test = ListBox1.Items(i).ToString
               i = i + 1
           Loop
       Catch
           
       End Try