Private Sub mnuOpen_Click()
CommonDialog1.Filter = "TXT|*.txt"
CommonDialog1.ShowOpen
Form1.Caption = CommonDialog1.FileName
RichTextBox1.FileName = CommonDialog1.FileName
End Sub

Private Sub mnuSave_Click()
CommonDialog1.FileName = RichTextBox1.FileName
CommonDialog1.ShowSave
CommonDialog1.Filter = "TXT|*.txt"
Open CommonDialog1.FileName For Output As #1
 Print #1, RichTextBox1.Text
Close #1
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuPaint_Click()
Painter = Shell("Pbrush.exe", 1)
End Sub

Private Sub mnuNpd_Click()
Npd = Shell("Notepad.exe", 1)
End Sub

Private Sub mnuCal_Click()
Calc = Shell("Calc.exe", 1)
End Sub
Private Sub mnuHelp_Click()
MsgBox "*** 文字檔案 ***" + vbCrLf + "機2-3 王小明 2902001 製作"
End Sub

學習重點:
　。
程式說明:
　。