VB Code:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim cboSender As ComboBox
cboSender = CType(sender, ComboBox)
Select Case cboSender.SelectedIndex
Case Color.Black
cboSender.BackColor = System.Drawing.Color.Black
Case Color.Brown
cboSender.BackColor = System.Drawing.Color.Brown
Case Color.Red
cboSender.BackColor = System.Drawing.Color.Red
Case Color.Orange
cboSender.BackColor = System.Drawing.Color.Orange
Case Color.Yellow
cboSender.BackColor = System.Drawing.Color.Yellow
'rest of the cases
End Select
End Sub
Private Enum Color
Black
Brown
Red
Orange
Yellow
Green
Blue
Violet
Gray
White
End Enum