Impostare il colore del testo di ogni elemento della lista del ComboBox

Per impostare il colore di ogni elemento della lista di un ComboBox, si può usare il seguente codice:

Private colori As Integer[] = [Color.Blue, Color.Cyan, Color.Yellow, Color.Green, Color.Red, Color.Black, Color.Orange]


Public Sub Form_Open()

 With ComboBox1
   .Foreground = colori[0]
   .List = ["Blu", "Ciano", "Giallo", "Verde", "Rosso", "Nero", "Arancione"]
   .Index = 0
 End With

End


Public Sub ComboBox1_Click()

 ComboBox1.Foreground = colori[ComboBox1.Index]

End