[ahmadpal]

نقوم بانشاء تكست بوكس وليكن بحجم كبير حتى يتمكن لنا ادراج نص طويل بداخلة ثم نقوم بانشاء زر لجلب التكست الخارجي ونقوم باضافة الكود التالي داخل الحدث click

كود :

Dim ahmad As New OpenFileDialog
        ahmad.Filter = "Text file (*.txt)|*.txt"
        ahmad.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        If ahmad.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = ahmad.FileName
        Dim reader As New System.IO.StreamReader(myfile)
        TextBox1.Text = reader.ReadToEnd