Private Sub Option1_Click()Text1.FontName = "宋体"End SubPrivate Sub Option2_Click()Text1.FontName = "黑体"End SubPrivate Sub Option3_Click()Text1.FontName = "楷体"End Sub