求个高手帮做VB 记事本

20分 我可以给你写个简单的,只有打开、保存两个个功能
如果你要加上打印、查找、替换、设置字体、复制、粘贴、删除等其他功能追加到200分我可以考虑帮你写一个...(实用的功能我可以加上 加密/解密)

现在在线吗?我已经帮你写完了 发到你的信箱了,. 以下是代码部分..
Private Bianhua As String

Private Sub Form_Load()
RchText.Text = "当前系统时间:" & vbCrLf & Date + Time
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Bianhua <> RchText.Text Then
If MsgBox("里面的内容还没有保存,需要现在保存吗?", vbYesNo, "有信息未保存") = vbYes Then
mnuBaocun_Click
End If
Else
Cancel = False
End If
End Sub

Private Sub Form_Resize()
RchText.Top = 0
RchText.Left = 0
RchText.Width = Me.Width
RchText.Height = Me.Height
End Sub

Private Sub mnuBaocun_Click()
With CmDlog
.Flags = &H2&
.DialogTitle = "保存文件"
.InitDir = App.Path
.Filter = "文本文件(*.txt)|*.TXT|bat批处理文