Private Sub mnuOpen_Click()
　　CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
　　CommonDialog1.ShowOpen
　　RichTextBox1.Text = "" '清空文本框
　　FileName = CommonDialog1.FileName
　　RichTextBox1.LoadFile FileName
　　Me.Caption = "超级记事本：" & FileName
　　End Sub

Private Sub mnuSave_Click()
　　CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
　　CommonDialog1.ShowSave
　　FileType = CommonDialog1.FileTitle
　　FiType = LCase(Right(FileType, 3))
　　FileName = CommonDialog1.FileName
　　Select Case FiType
　　Case "txt"
　　RichTextBox1.SaveFile FileName, rtfText
　　Case "rtf"
　　RichTextBox1.SaveFile FileName, rtfRTF
　　Case "*.*"
　　RichTextBox1.SaveFile FileName
　　End Select
　　Me.Caption = "超级记事本：" & FileName
　　End Sub

　　Private Sub mnuExit_Click()
　　End
　　End Sub

　　Private Sub mnuCopy_Click()
　　Clipboard.Clear
　　Clipboard.SetText RichTextBox1.SelText
　　End Sub

　　Private Sub mnuCut_Click()
　　Clipboard.Clear
　　Clipboard.SetText RichTextBox1.SelText
　　RichTextBox1.SelText = ""
　　End Sub

　Private Sub mnuSelectAll_Click()
　　RichTextBox1.SelStart = 0
　　RichTextBox1.SelLength = Len(RichTextBox1.Text)
　　End Sub

　　Private Sub mnuPaste_Click()
　　RichTextBox1.SelText = Clipboard.GetText
　　End Sub