Private Sub sh Click ext1 Fontsize 12 End sub Private Sub st Click( ext1 FontName="宋体 End sub Private Sub xhx Click Text1. FontUnderline not Text1. FontUnderline End sub 请单属标左键换页Private Sub sh_Click() Text1.FontSize = 12 End Sub Private Sub st_Click() Text1.FontName = "宋体" End Sub Private Sub xhx_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub