Private Sub Command1_Click()Me.List1.Font = "黑陪掘腊散岩体"Me.List1.FontSize = 22Me.Combo1.Font = "宋体"芦滑Me.Combo1.FontSize = 32End Sub