Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        Dim fore As Color = e.ForeColor
 
 
 
        If (e.State And DrawItemState.Selected) <> DrawItemState.Selected Then
            e.DrawBackground()
        Else
            Dim bbr As New SolidBrush(Color.Red)
            e.Graphics.FillRectangle(bbr, e.Bounds)
        End If
 
        Dim fbr As New SolidBrush(fore)
 
        If e.Index = -1 Then
            e.Graphics.DrawString(ComboBox1.Items(e.Index + 1).ToString(), _
              e.Font, fbr, _
         e.Bounds, StringFormat.GenericDefault)
        Else
            e.Graphics.DrawString(ComboBox1.Items(e.Index).ToString(), e.Font, _
              fbr, _
         e.Bounds, StringFormat.GenericDefault)
        End If
 
 
 
        e.DrawFocusRectangle()
    End Sub

Gruss Caddy