Visual Basic

Public Class Summary<br />
    Dim path As String = Application.StartupPath & "\"<br />
    Dim fileName As String = "ChangeLog.txt"<br />
    Dim MyString As String<br />
<br />
    Private Sub Summary_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Dim Sr As New IO.StreamReader(path & fileName, True)<br />
<br />
        Sr.BaseStream.Seek(0, IO.SeekOrigin.Begin)<br />
<br />
        Do While Sr.Peek > -1<br />
            MyString = Sr.ReadToEnd<br />
        Loop<br />
        With rtSummary<br />
            .ReadOnly = True<br />
            .Text = MyString<br />
        End With<br />
        Sr.Close()<br />
<br />
    End Sub<br />
<br />
    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnSave.Click<br />
        Dim Sw As New IO.StreamWriter(path & fileName, False)<br />
<br />
        If IO.File.Exists(path & fileName) Then<br />
            IO.File.Delete(fileName)<br />
            IO.File.Create(fileName)<br />
            Sw.WriteLine(vbCrLf & MyString & vbCrLf & rtSummary.Text)<br />
            Sw.Flush()<br />
            Sw.Close()<br />
        Else<br />
            IO.File.Create(path & fileName)<br />
            Sw.WriteLine(vbCrLf & rtSummary.Text)<br />
            Sw.Flush()<br />
            Sw.Close()<br />
        End If<br />
        Me.Dispose()<br />
    End Sub<br />
<br />
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnEdit.Click<br />
        rtSummary.ReadOnly = False<br />
    End Sub<br />
<br />
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnClear.Click<br />
        rtSummary.Clear()<br />
    End Sub<br />
<br />
    Private Sub Summary_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing<br />
        If rtSummary.Text IsNot "" Then<br />
           <br />
        End If<br />
    End Sub<br />
End Class