添加如下代码：
Private Sub Check1_Click()
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Check3_Click()
Text1.FontBold = Not Text1.FontBold
End Sub
Private Sub Option1_Click()
Text1.FontName = "黑体"
End Sub
Private Sub Option2_Click()
Text1.FontName = "楷体_GB2312"
End Sub
Private Sub Option3_Click()
Text1.FontName = "隶书" '我的电脑没有隶书字体，所以调试时出错
End Sub
Private Sub Option4_Click()
Text1.FontSize = 12
End Sub
Private Sub Option5_Click()
Text1.FontSize = 16
End Sub
Private Sub Option6_Click()
Text1.FontSize = 20
End Sub
