[ابو روضة]

السلام عليكم اخوتى
اريد تعبئة الليست بوكس من ملف نصى موجود  داخل المشروع ليس من مسار بل داخل مجلد المشروع نفسه Debug
وجربت هذا ونفع  لكن انا اريده من مجلد المشروع

كود :

Dim r As IO.StreamReader
       r = New IO.StreamReader("c:\" & TextBox2.Text & ".txt")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()

وغيرته لهذا ولم يفلح 

كود :

 Dim r As IO.StreamReader
       r = New IO.StreamReader(Application.StartupPath & TextBox2.Text & ".txt")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()

وطبعا اريده بدون فتح الديالوج بأداه OpenFileDialog