Private Sub Form_Load()Combo1.ClearCombo1.AddItem "红色"Combo1.AddItem "绿色"Combo1.AddItem "蓝色"End SubPrivate Sub Combo1_Click()Select Case Combo1.ListIndexCase 0 Text1.ForeColor = vbRedCase 1 Text1.ForeColor = vbGreenCase 2 Text1.ForeColor = vbBlueEnd SelectEnd Sub以上代码涉及的控件:Combo1、Text1