有谁能告诉我怎么用VB做记事本啊?

在工具箱中添加一个RichTextBox1控件
程序中的jishi是窗体名称

Private Sub copy_Click() '复制
Clipboard.Clear
Clipboard.SetText jishi.rtbox.SelText
End Sub

Private Sub cut_Click() '剪切
Clipboard.Clear
Clipboard.SetText jishi.rtbox.SelText
jishi.rtbox.SelText = ""
End Sub

Private Sub del_Click() '删除
jishi.rtbox.SelText = ""
End Sub

Private Sub exit_Click() '退出
Unload Me
End Sub

Private Sub new_Click() '新建
rtbox = ""
jishi.Caption = "未标题文件"
End Sub

Private Sub open_Click() '打开
On Error Resume Next

jishi.CommonDialog1.Filter = "文本文档(*.txt)|*.txt|"
jishi.CommonDialog1.ShowOpen

If Err Then Exit Sub

fname = jishi.CommonDialog1.FileName

jishi.rtbox.Enabled = True
jishi.rtbox.Text = ""
jishi.rtbox.LoadFile