Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
        Me.ComboBox1.ForeColor = Color.Black
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        For a As Integer = 0 To 10
            Me.ComboBox1.Items.Add("Item: " + a.ToString)
        Next
    End Sub
    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        If e.Index < 0 Then Exit Sub
        Dim c As Color = Color.LightBlue
        If e.Index Mod 2 Then c = Color.LightYellow
        e.DrawBackground()
        e.Graphics.DrawRectangle(New Pen(c, 1), e.Bounds)
        e.Graphics.FillRectangle(New System.Drawing.SolidBrush(c), e.Bounds)
        e.Graphics.DrawString(Me.ComboBox1.Items.Item(e.Index), e.Font, New _
          SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y)
        e.DrawFocusRectangle()
    End Sub