솔루션에 fp5,fp13 포함

Epole.fp13/MsgForm.vb

@@ -0,0 +1,17 @@
+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
+End Class