[mudz]

جربه الان انسخه ولصق مثل ماهو
انت لم تضع system.IO
هذا الكود

كود :

Imports System.IO
Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Try
           Dim TextFile As String
           TextFile = My.Computer.FileSystem.ReadAllText("ãÓÇÑ ÇáãáÝtext.txt")

           For i = 1 To TextFile.Split(vbNewLine).Count
               Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)
           Next
       Catch MUDZ As Exception

    End Try
    End Sub
End Class

واذا كنت تريده دون وضع مسار فهذا الكود

كود :

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            '(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف
            Dim TextFile As String = My.Resources.f


            For i = 1 To TextFile.Split(vbNewLine).Count
                Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)
            Next
        Catch MUDZ As Exception

        End Try
    End Sub
End Class