Private WithEvents mcb As ComboBox
    Dim col() As Brush = {Brushes.Red, Brushes.Blue, Brushes.Black, _
      Brushes.Yellow}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        mcb = ToolStripComboBox1.ComboBox
        mcb.DrawMode = DrawMode.OwnerDrawFixed
    End Sub
    Private Sub mcb_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles mcb.DrawItem
        e.Graphics.DrawString(mcb.Items(e.Index).ToString, Me.Font, col( _
        e.Index), e.Bounds)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus