Public Class CustomCombo

    Inherits ComboBox

    Public Sub New()

        ' Llamada necesaria para el Diseñador de Windows Forms.

        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

        'Indicamos que usaremos un pintado personalizado

        DrawMode = DrawMode.OwnerDrawFixed

    End Sub

    Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)

        'Nosotros pintaremos las filas alternativamente

        'e.index Indica la posicion en la que vamos a pintar

        'Obtenemos los bordes de la zona a pintar

        Dim bounds As New Rectangle

        bounds = e.Bounds

        'pintamos los fondos alternativamente

        If e.Index Mod 2 = 0 Then

            e.Graphics.FillRectangle(Brushes.AliceBlue, bounds)

        Else

            e.Graphics.FillRectangle(Brushes.Aqua, bounds)

        End If

        'pintamos la fila que selecciona el raton

        If e.State = DrawItemState.Selected Then

            e.Graphics.FillRectangle(Brushes.Blue, bounds)

        End If

        'pintamos el texto

        e.Graphics.DrawString(Items(e.Index), e.Font, Brushes.Black, bounds.X, bounds.Y)

        'Llamamos al pintado del componente, para que pinte lo que nos faltaria (el texto)

        MyBase.OnDrawItem(e)

    End Sub

End Class