Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
        If e.Index < 4 Then
            e.Graphics.FillRectangle(Brushes.Red, e.Bounds)
        Else
            e.Graphics.FillRegion(Brushes.Blue, New Region(e.Bounds))
        End If
    End Sub

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