Private Sub Check1_ Click () if 【11】 then Text1. FontBold = True Else Text1. FontEold = 【12】 End if End Sub Private Sub check2_ click() if 【13】 then Text1. FontItalic = False Else Text1. FontItalic = True End if End sub Private Sub Command1_ Click() 【14】 Me End Sub