VB6简单的记事本程序,高手见笑了!

      最近自己写了一个简单的记事本程序,自己第一次完整写的程序.程序中有很多Bug,程序代码沉余很大.写了很多重复的代码. 但是基本的记事本功能实现了.准备重新更新代码,希望至少在代码结构上能有所提高.

Private Sub about_Click()
 mb = MsgBox("作者：城市灯火  E-Mail:[email protected]", vbOKOnly, "记事本")
End Sub

Private Sub all_Click()
If RichTextBox1.Visible = True Then
  With RichTextBox1
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
Else
  With RichTextBox2
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End If
End Sub

Private Sub copy_Click()
    Clipboard.Clear
  If RichTextBox1.Visible = True Then
    Clipboard.SetText RichTextBox1.SelText
  Else
    Clipboard.SetText RichTextBox2.SelText
  End If
End Sub

Private Sub datatime_Click()
  If RichTextBox1.Visible = True Then
    RichTextBox1.SelText = Now()
  Else
    RichTextBox2.SelText = Now()
  End If
End Sub

Private Sub del_Click()
    If RichTextBox1.Visible = True Then
    RichTextBox1.SelText = ""
  Else
    RichTextBox2.SelText = ""
  End If
End Sub

Private Sub font_Click()
  CommonDialog1.Flags = 1
  CommonDialog1.ShowFont
  With RichTextBox1
    .font.Name = CommonDialog1.FontName
    .font.Size = CommonDialog1.FontSize
    .font.Bold = CommonDialog1.FontBold
    .SelColor = CommonDialog1.Color
    .font.Italic = CommonDialog1.FontItalic
    .font.Underline = CommonDialog1.FontUnderline
    .font.Strikethrough = CommonDialog1.FontStrikethru
  End With
  With RichTextBox2
    .font.Name = CommonDialog1.FontName
    .font.Size = CommonDialog1.FontSize
    .SelColor = CommonDialog1.Color
    .font.Bold = CommonDialog1.FontBold
    .font.Italic = CommonDialog1.FontItalic
    .font.Underline = CommonDialog1.FontUnderline
    .font.Strikethrough = CommonDialog1.FontStrikethru
  End With
End Sub

Private Sub Form_Load()
  Tyuedu.Checked = False
  zhuangtai