Public Class MsgForm

    Private Sub bt_clearStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_clear.Click
        Me.RichTextBox1.Clear()
    End Sub

    Private Sub bt_savelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savelist.Click
        Dim SD As New SaveFileDialog
        SD.FileName = "log" & Format(Now, "yyyyMMdd") & ".txt"
        If SD.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then
            MsgBox("Ãë¼ÒµÇ¾ú½À´Ï´Ù", MsgBoxStyle.Critical, "»ç¿ëÀÚÃë¼Ò")
        Else
            Me.RichTextBox1.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText)
            MsgBox("ÀúÀå¿Ï·á", MsgBoxStyle.Information, "È®ÀÎ")
        End If
    End Sub

    Public Sub ADdLog(ByVal msg As String, Optional ByVal Reset As Boolean = False)
        If Reset Then Me.RichTextBox1.Clear()
        Me.RichTextBox1.AppendText(msg & vbCrLf)
    End Sub
End Class