Private Sub Command1_Click() With Label1 .FontBold = True .FontItalic = True .FontSize = 15 .FontName = "隶书" End With With Text1 .FontBold = True .FontItalic = True .FontSize = 15 .FontName = "隶书" End With End Sub