Private Sub Exit_Click()
    End
End Sub

Private Sub Find_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub

Private Sub FindOn_Click()
    RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
    RichTextBox1.Find sFind, , Len(RichTextBox1)

End Sub

Private Sub Font_Click()
On Error Resume Next
    CommonDialog1.Flags = &H3 Or &H1 Or &H2 Or &H100
    CommonDialog1.Action = 4
    RichTextBox1.Font.Name = CommonDialog1.FontName                     '设置名称
    RichTextBox1.Font.Size = CommonDialog1.FontSize                     '设置字号
    RichTextBox1.Font.Bold = CommonDialog1.FontBold                     '设置粗体
    RichTextBox1.Font.Italic = CommonDialog1.FontItalic                 '设置斜体
    RichTextBox1.Font.Underline = CommonDialog1.FontUnderline           '设置下划线
    RichTextBox1.Font.setcolor = CommonDialog1.Color                    '设置颜色
End Sub

Private Sub Form_Load()                                              ' 窗体大小
    Me.Height = 6000
    Me.Width = 9000
    txtchange = False
    isave = False
End Sub

Private Sub Form_Resize()                                    '文本框随窗体大小改变
On Error Resume Next
    RichTextBox1.Top = 20
    RichTextBox1.Left = 20
    RichTextBox1.Height = ScaleHeight - 40