'Einige Einstellungen des Control
        With tbc
            .TabPages.Add("Reiter 1")
            .TabPages.Add("Reiter 2")
            .DrawMode = TabDrawMode.OwnerDrawFixed
            .SizeMode = TabSizeMode.Fixed
            .ItemSize = New Size(200, 200)
            .Width = 500
        End With

    Private Sub DrawOnTab(ByVal sender As Object, _
                          ByVal e As DrawItemEventArgs) _
                          Handles tbc.DrawItem
 
        Dim g As Graphics = e.Graphics
 
        For i As Int32 = 0 To tbc.TabPages.Count - 1
            Dim font As New Font("Arial", 18.0F)
 
            Using brush As New SolidBrush(Color.Black)
                Dim tabArea As Drawing.Rectangle = tbc.GetTabRect(i)
                Dim text As String = tbc.TabPages(i).Text
                Dim tsf As SizeF = g.MeasureString(text, font)
 
                Dim l As Integer = _
                   tabArea.Left + CInt(tabArea.Width - tsf.Width) \ 2
 
                Dim t As Integer = _
                   tabArea.Top + CInt(tabArea.Height - tsf.Height) \ 2
 
                Dim drawrect As New _
                Rectangle(l, t, CInt(tsf.Width + 4), CInt(tsf.Height + 4))
 
                g.DrawString(text, font, brush, drawrect)
            End Using
        Next i
    End Sub