Private Sub Form_Load() Combo1.AddItem "一号" Combo1.AddItem "二号" Combo1.AddItem "小二" Combo1.AddItem "三号" Combo1.AddItem "小三" Combo1.AddItem "四号" Combo1.AddItem "小四" Combo1.AddItem "五号" Combo1.AddItem "小五" Combo1.AddItem "六号" Combo1.AddItem "小六" End Sub Private Sub HSblue_Change() Label4.BackColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value) End Sub Private Sub HSgreen_Change() Label4.BackColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value) End Sub Private Sub HSred_Change() Label4.BackColor = RGB(HSred.Value, HSgreen.Value, HSblue.Value) End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.FontItalic = True ElseIf Option2.Value = False Then Text1.FontItalic = False End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.FontBold = True ElseIf Option3.Value = False Then Text1.FontBold = False End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.FontItalic = True Text1.FontBold = True ElseIf Option4.Value = False Then Text1.FontItalic = False Text1.FontBold = False End If End Sub 本文来源：https://www.wddqw.com/doc/bf697982d4d8d15abe234e68.html