Private Sub ComboBox3_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ComboBox3.DrawItem
        If e.Index < 0 Then Return
        Dim c As Color = DirectCast(Me.ComboBox3.Items.Item(e.Index), Color)
        Dim p As New Pen(Color.Black)
        Dim rectFill As New Rectangle(e.Bounds.X + 2, e.Bounds.Y + 2, 20, _
          e.Bounds.Height - 4)
        Dim rectDraw As New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, 20, _
        e.Bounds.Height - 4)
        e.DrawBackground()
        e.Graphics.FillRectangle(New SolidBrush(c), rectFill)
        e.Graphics.DrawRectangle(p, rectDraw)
        e.Graphics.DrawString(c.Name, Me.ComboBox3.Font, New SolidBrush( _
          e.ForeColor), e.Bounds.X + 30, e.Bounds.Y)
    End Sub

        Me.ComboBox3.DrawMode = DrawMode.OwnerDrawFixed
        Me.ComboBox3.DropDownStyle = ComboBoxStyle.DropDownList
        Me.ComboBox3.Items.Add(Color.Red)
        Me.ComboBox3.Items.Add(Color.Green)
        Me.ComboBox3.Items.Add(Color.Blue)
        Me.ComboBox3.Items.Add(Color.Yellow)

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        Dim c As Color = DirectCast(Me.ComboBox3.SelectedItem, Color)
        MessageBox.Show(c.Name)
    End Sub