颜色下拉COMBOBOX控件(vb.net)

前不久，有位朋友发帖，寻求颜色选择的COMBOBOX  的制作方法，经过试验，整理了出来，仅供参考。

（注：如有引用，请注明出处和作者）

                                                                                                                                 --闵峰（2005/08/06东莞）

 Private Sub filllistboxwithcolors()
        Me.ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        Me.ComboBox1.ItemHeight = 15
        '避免闪烁beginupdate
        Me.ComboBox1.BeginUpdate()
        ComboBox1.Items.Clear()
        Dim pi As Reflection.PropertyInfo
        For Each pi In GetType(Color).GetProperties(Reflection.BindingFlags.Public Or Reflection.BindingFlags.Static)
            Me.ComboBox1.Items.Add(pi.Name)
        Next
        ComboBox1.EndUpdate()

    End Sub

 Private Sub ComboBox1_DrawItem(ByVal sender As