Private Sub Combobox1_DrawItem(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DrawItemEventArgs) Handles  ComboBox1.DrawItem
 
Dim fore As Color = e.ForeColor
 Dim Background As Color() = {Color.Aqua, Color.Red, Color.Blue}
 
        Dim rect As New Rectangle(0, e.Bounds.Y, e.Bounds.Width , _
          e.Bounds.Height)
 
 
            Dim bbr As New SolidBrush(Background(1))
            e.Graphics.FillRectangle(bbr, rect)
 
 
        Dim fbr As New SolidBrush(fore)
 
        If e.Index = -1 Then
            e.Graphics.DrawString("Test",e.Font, fbr, _
        rect, StringFormat.GenericDefault)
 
        Else
 
            e.Graphics.DrawString(sender.Items(e.Index).ToString(), e.Font, _
              fbr, _
         rect, StringFormat.GenericDefault)
 
        End If
 
        e.DrawFocusRectangle()
 
 
    End Sub

Gruss Caddy