Visual Basic

    <br />
Private Sub ComboBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Main.DrawItem<br />
        Dim cmb As ComboBox = CType(sender, ComboBox)<br />
        If e.Index = -1 Then<br />
            Return<br />
        End If<br />
        If sender Is Nothing Then<br />
            Return<br />
        End If<br />
        Dim Color1 As Color = Color.Black<br />
        Dim g As Graphics = e.Graphics<br />
        'string brushName = (string)cmb.Items[die.Index];<br />
        'SolidBrush selectedBrush = (SolidBrush)brushMap[brushName];<br />
        Dim selectedbrush As New SolidBrush(Color1)<br />
        selectedbrush.Color = Color1<br />
        ' If the item is selected, this draws the correct background color<br />
        e.DrawBackground()<br />
        e.DrawFocusRectangle()<br />
        Dim rectPreviewBox As Rectangle = e.Bounds<br />
<br />
        Dim item As String = CType(cmb.Items.Item(e.Index), String)<br />
        ' Draw the name of the color selected<br />
        Dim font As New Font("Times New Roman", 12, FontStyle.Regular, GraphicsUnit.Pixel)<br />
        g.DrawString(item, font, New SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y + 1)<br />
    End Sub<br />
<br />