[3booody]

ضع زرين بوتون الاول اسمه التالي والثاني اسمه السابق ثم ضع هذا الكود

كود :

Dim str() As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        str = IO.File.ReadAllText("مسار النص").Split(vbNewLine)
        Me.TextBox1.Text = str(0)
    End Sub
    Dim i As Integer = 0
    Private Sub btn_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Next.Click
        Try
            i += 1
            TextBox1.Text = str(i)
        Catch ex As Exception
            i -= 1
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            i -= 1
            TextBox1.Text = str(i)
        Catch ex As Exception
            i += 1
        End Try
    End Sub