找VB高手！！！

在窗体上放置文本框、通用对话框控件。设置一个含有2个主菜单项的菜单系统，分别为“菜单1”和“菜单2”。其中“菜单2”包括“号字体”、“粗体”、“斜体”3个菜单命令。单击“菜单1”可打开字体对话框，要求字体对话框内出现删除线、下划线、颜色元素控制等，可设置文本框的字体属性。根据粗体、斜体的选择情况，在菜单项“粗体”、“斜体”左边加上或取消标记“√”同时使“字体”子菜单项标题显示为所选的具体字号，例如，“10.5”号字体。另外可通过鼠标右键 弹出“菜单2”，显示当前设置情况。
然后在上面实验的“菜单1”的子菜单“清除”前添加一个“查找”菜单命令，并与“清除”菜单命令之间有一条分隔线，单击“查找”菜单命令，显示查找对话框，当在文本框内输入内容时，可在主窗体的文本框内查找指定的内容。

一时性起,干脆编了个文本编辑器,除你说的功能外,还加了保存、打开等功能,好累~
代码如下:(注释:通用对话框的名称我改成了"cmdgl1")
Dim openFlag As Integer, newFlag As Integer, fz As String

Private Sub Form_Load()
openFlag = 0
newFlag = 1
End Sub

Private Sub mnuCopy_Click()
fz = Text1.SelText
End Sub

Private Sub mnuCut_Click()
fz = Text1.SelText
Text1.SelText = ""
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuFind_Click()
Dim a As String
a = InputBox("请输入要查找的字符串:", "")
If a <> "" Then
For i = 1 To Len(Text1.Text) - Len(a)
b = Mid(Text1.Text, i, Len(a))
If b = a Then
Text1.SelStart = i
Text1.SelText = i
Next i
End If
End Sub

Private Sub mnuFont_Click()
cmdgl1.Flags = cdlCFBoth
cmdgl1.ShowFont
Text1.FontBold = cmdgl1.FontBold
Text1.FontSize = cmdgl1.FontSize