[alma2]

كود :

Dim fromLine As Integer = 5
Dim toLine As Integer = 9
TextBox1.Lines = IO.File.ReadAllLines("file.txt").Where(Function(value As String, index As Integer) (index >= (fromLine) - 1) And (index <= (toLine) - 1)).ToArray

أو

كود :

Dim fromLine As Integer = 5
Dim toLine As Integer = 9
Dim lines() As String = IO.File.ReadAllLines("file.txt").Where(Function(value As String, index As Integer) (index >= (fromLine) - 1) And (index <= (toLine) - 1)).ToArray

TextBox1.Text = String.Join(vbNewLine, lines)