Private Sub ComboBox1_DrawItem(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DrawItemEventArgs) _
        Handles ComboBox1.DrawItem
 
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            'das aktuell mit der Maus oder Taststur angefahrene Item
            e.Graphics.FillRectangle(New SolidBrush(Color.LightGray), e.Bounds)
            Using selbrush As New SolidBrush(Color.Red)
                e.Graphics.DrawString(ComboBox1.Items(e.Index).ToString, _
                           e.Font, selbrush, e.Bounds.X, e.Bounds.Y)
            End Using
        Else
            'alle anderen Items 
            e.DrawBackground()
            Using nbrush As New SolidBrush(e.ForeColor)
                e.Graphics.DrawString(ComboBox1.Items(e.Index).ToString, _
                          e.Font, nbrush, e.Bounds.X, e.Bounds.Y)
            End Using
        End If
    End Sub