[ابراهيم ايبو]

السلام عليكم أخي يوسف

لايوجد خطأ في البرنامج أصلا كله على بعضه خمسة أسطر ومكتبة .. 

قم انت بإنشاء البرنامج وانسخ الكود  وجربه وهذا الكود بدون البرنامج

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Sr As New StreamReader("Yousef.txt" )
       Dim StrAll As String = Sr.ReadToEnd()
       Sr.Close()
       ' TextBox1.Font = New Font("Consolas", 18, FontStyle.Regular) اوقف هذا السطر او اختر فونط أخر
       TextBox1.Text = StrAll

   End Sub

دمت بخير