Private Sub Form_Load()tem "紅色"tem "綠色"tem "藍色"End SubPrivate Sub Combo1_Click()Select Case IndexCase 0 Color = vbRedCase 1 Color = vbGreenCase 2 Color = vbBlueEnd SelectEnd Sub以上代碼涉及的控件:Combo1、Text1