hãy làm 1 chuơng trình theo mẫu, post code và project.

Imports System.IO
Public Class frmtho
    Public i, tong As Integer
    Public s As String

    Private Sub frmtho_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'tạo các button.       
        Me.Text = "Thơ"
        Me.MaximizeBox = False
        cmdback.Text = "Back."
        cmdnext.Text = "Next"
        cmdchucnang.Text = "Chức Năng."
        cmdthoat.Text = "Thoát."
        tmrgio.Enabled = True
        tmrgio.Interval = 100
        lblxuat.AutoSize = True
        Me.AutoScroll = True
        'kết thúc.
        'bắt đầu tạo các file lưu dữ liệu.
     'có thể khai báo 1 biến dùng thay cho đoạn code Application.StartupPath để tránh phải viết lại nhiều lần.
  'vd: dim s as String
  's = Application.StartupPath
     'If File.Exists(Application.StartupPath & "../sofile.MLN") = False Then

        If File.Exists(Application.StartupPath & "../sofile.MLN") = False Then
            Dim f As StreamWriter
            f = File.CreateText(Application.StartupPath & "../sofile.MLN")
            f.Close()
            File.WriteAllText(Application.StartupPath & "../sofile.MLN", 4)
        End If
        If File.Exists(Application.StartupPath & "../" & 0 & ".MLN") = False Then
            Dim f As StreamWriter
            f = File.CreateText(Application.StartupPath & "../" & 0 & ".MLN")
            f.Close()
            File.WriteAllText(Application.StartupPath & "../" & 0 & ".MLN", "Tâm Tư Tàn Tạ Tình Tan Tác" + vbCrLf + "Mòn Mỏi Một Mình Mãi Mộng Mơ" + vbCrLf + "Đớn Đau Đưa Đẩy Đời Đơn Độc" + vbCrLf + "Thao Thức Thẹn Thùng Thấy Thảm Thương" + vbCrLf + "Vô Vọng Vẩn Vơ Vì Vương Vấn" + vbCrLf + "Man Mác Mênh Mông Mãi Một Mình.")
        End If
        If File.Exists(Application.StartupPath & "../" & ".MLN") = False Then
            Dim f As StreamWriter
            f = File.CreateText(Application.StartupPath & "../" & 1 & ".MLN")
            f.Close()
            File.WriteAllText(Application.StartupPath & "../" & 1 & ".MLN", " Đừng nói tôi khác biệt _khi_ tôi là chính tôi " + vbCrLf + " Đừng nói tôi màu mè _khi_ tôi riêng 1 sắc màu " + vbCrLf + " Đừng nói tôi chơi trội ....chỉ là hơi cá tính thôi" + vbCrLf + "Hãy nói tôi tự tin..... vì tôi tự tin là chính tôi ")
        End If
        If File.Exists(Application.StartupPath & "../" & 2 & ".MLN") = False Then
            Dim f As StreamWriter
            f = File.CreateText(Application.StartupPath & "../" & 2 & ".MLN")
            f.Close()
            File.WriteAllText(Application.StartupPath & "../" & 2 & ".MLN", "Biết lỡ rồi nhưng tôi vẫn yêu em" + vbCrLf + "Bóp nghẹt trái tim tôi mỉm cười chúc em hạnh phúc" + vbCrLf + "Tôi chúc em mà lòng tôi nhói buốt" + vbCrLf + "Đó là điều em không thể biết đâu" + vbCrLf + "Tôi nhận về tôi với tất cả nỗi đau" + vbCrLf + "Để được yêu em trong tình yêu cháy bỏng..." + vbCrLf + "Thời gian dần trôi tôi tự bảo hãy quên" + vbCrLf + "Nhưng không thể tình yêu thành ngọn lửa" + vbCrLf + "Bao nhọc nhằn khó khăn vất vả" + vbCrLf + "không xóa nổi em trong sâu thẳm hồn tôi" + vbCrLf + "Cầu cho em được người tình như tôi đã yêu em" + vbCrLf + "Câu thơ cũ đã trở thành mơ ước" + vbCrLf + "Nhưng tôi biết không bao giờ có được" + vbCrLf + "Một người nào như tôi đã yêu em! ")
        End If
        If File.Exists(Application.StartupPath & "../" & 3 & ".MLN") = False Then
            Dim f As StreamWriter
            f = File.CreateText(Application.StartupPath & "../" & 3 & ".MLN")
            f.Close()
            File.WriteAllText(Application.StartupPath & "../" & 3 & ".MLN", "Gió ơi! Gió ở nơi đâu" + vbCrLf + "Gió ơi! Gió có nỗi sầu gì không?" + vbCrLf + "Tại sao gió cứ lông bông" + vbCrLf + "Không đưa giúp bạn, nỗi lòng của ta" + vbCrLf + "Nếu đưa đừng có la cà" + vbCrLf + "Đánh rơi chút đỉnh tình ta giữa đường" + vbCrLf + "Bởi vì trên cuộc tình trường" + vbCrLf + "Ta đây chỉ có yêu dường đấy thôi!!!" + vbCrLf + "Ai nhớ thương ai, ai có biết?" + vbCrLf + "Ai thương ai nhớ, nhớ ai hoài?" + vbCrLf + "Ai hay ai hiểu, tình ai đó?" + vbCrLf + "Ai cứ vô tình, ai cô đơn?")
        End If
        If File.Exists(Application.StartupPath & "../" & 4 & ".MLN") = False Then
            Dim f As StreamWriter
            f = File.CreateText(Application.StartupPath & "../" & 4 & ".MLN")
            f.Close()
            File.WriteAllText(Application.StartupPath & "../" & 4 & ".MLN", "Quá nhiều & Một chút ... !" + vbCrLf + "Quá nhiều ghen tuông làm cho tình yêu chết trong nghi ngờ..." + vbCrLf + "Quá nhiều nước mắt làm cho tình yêu chết trong đau khổ..." + vbCrLf + "Quá nhiều lãng mạn làm cho tình yêu chết trong ảo ảnh..." + vbCrLf + "Quá nhiều đam mê làm cho tình yêu chết trong mộng mị..." + vbCrLf + ".....Chỉ một chút....." + vbCrLf + "....một chút thôi....." + vbCrLf + "Một chút giận dỗi để thấy mình được vỗ vể yêu thương..." + vbCrLf + "Một chút ích kỉ để biết mình thuộc về ai đó..." + vbCrLf + "Một chút hờn ghen để biết mình đang yêu thật nhiều...")
        End If
        'kết thúc.
    End Sub


    Private Sub tmrgio_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrgio.Tick
        tong = Val(File.ReadAllText(Application.StartupPath & "../sofile.MLN"))
        If i = 0 Then
            cmdback.Enabled = False
        Else
            cmdback.Enabled = True
        End If
        If i = tong Then
            cmdnext.Enabled = False
        Else
            cmdnext.Enabled = True
        End If
        s = File.ReadAllText(Application.StartupPath & "../" & i & ".MLN")
        lblxuat.Text = s
    End Sub

    Private Sub cmdback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdback.Click
        i = i - 1
    End Sub

    Private Sub cmdnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnext.Click
        i = i + 1
    End Sub

    Private Sub cmdthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdchucnang.Click
        frmchucnang.Show()
    End Sub

    Private Sub cmdthoat_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdthoat.Click
        If MessageBox.Show("Bạn có muốn thoát không?", "Thoát.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            End
        End If
    End Sub
End Class

Imports System.IO
Public Class frmchucnang
    Public i, tong As Integer
    Private Sub frmchucnang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AutoScroll = True
        Me.Text = "Chức Năng"
        cmdthoat.Text = "Đóng."
        cmddongysua.Text = "Đồng Ý Sửa."
        cmddongythem.Text = "Đồng Ý Thêm."
        cmdhuy.Text = "Hủy."
        Me.MaximizeBox = False
        txtsua.Text = frmtho.lblxuat.Text
        i = frmtho.i
        tong = frmtho.tong
    End Sub

    Private Sub cmdthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdthoat.Click
        If txtsua.Text <> "" And txtsua.Text <> frmtho.s Then
            If MessageBox.Show("Bạn có muốn lưu bản sửa không?", "Sửa.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                File.WriteAllText(Application.StartupPath & "../" & i & ".MLN", txtsua.Text)
                Me.Close()
            Else
                Me.Close()
            End If
        ElseIf txtthem.Text <> "" Then
            If MessageBox.Show("Bạn có muốn thêm mới không?", "Thêm.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                File.WriteAllText(Application.StartupPath & "../" & tong + 1 & ".MLN", txtthem.Text)
                File.WriteAllText(Application.StartupPath & "../sofile.MLN", tong + 1)
                txtthem.Text = ""
                Me.Close()
            Else
                Me.Close()
            End If
        Else
            Me.Close()
        End If
    End Sub

    Private Sub cmdhuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhuy.Click
        txtthem.Text = ""
    End Sub

    Private Sub cmddongythem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddongythem.Click
        If txtthem.Text = "" Then
            MsgBox("bạn phải nhập dữ liệu vào", vbCritical, "thông báo lỗi")
        Else
            File.WriteAllText(Application.StartupPath & "../" & tong + 1 & ".MLN", txtthem.Text)
            File.WriteAllText(Application.StartupPath & "../sofile.MLN", tong + 1)
            txtthem.Text = ""
        End If
    End Sub

    Private Sub cmddongysua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddongysua.Click
        If txtsua.Text = "" Then
            MsgBox("bạn phải nhập dữ liệu vào", vbCritical, "thông báo lỗi")
        Else
            File.WriteAllText(Application.StartupPath & "../" & i & ".MLN", txtsua.Text)
        End If
    End Sub
End Class