6: For i As Integer = 0 To _Color.Items.Count - 1
7: Dim item As New Telerik.WinControls.UI.RadComboBoxItem()
8: Dim fillElement As Telerik.WinControls.Primitives.FillPrimitive = DirectCast(item.Children(0), Telerik.WinControls.Primitives.FillPrimitive)
9: fillElement.BackColor = _Color.Item(i).CoverColor
10: fillElement.BackColor2 = _Color.Item(i).CoverColor
11: fillElement.BackColor3 = _Color.Item(i).CoverColor
12: fillElement.BackColor4 = _Color.Item(i).CoverColor
item.ForeColor = _Color.Item(i).FontColor
13: item.Text = _Color.Item(i).Name
14: item.Value = _Color.Item(i).Index
15: _cboCTRL.Items.Add(item)
16: Next