Private Sub Command1_Click()Text1.Font.Size = 40Text1.ForeColor = &HFFFF&Text1.Font = "微软雅黑"Text1.RefreshEnd Sub
Private Sub Command1_Click() Text1.FontName = "黑体"End Sub