Public Class QuickTabControl
    Inherits Windows.Forms.TabControl
Public Sub New()
     MyBase.New()
     Me.SetStyle(ControlStyles.UserPaint, True)
     Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
     Me.SetStyle(ControlStyles.DoubleBuffer, True)
     Me.SetStyle(ControlStyles.ResizeRedraw, True)
     Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
End Sub
 
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
     MyBase.OnPaint(e)
     [...]
     'nIndex ist der Index vom Tab, der momentan gezeichnet wird, läuft in 
     ' einer Schleife
     Dim tabRect As Rectangle = Me.GetTabRect(nIndex)
     [...]
     'Der Teil mit dem Bild:
     Dim img As Image = CType(tabPage, QuickTab).Favicon.Image
     Dim imgRect As Rectangle = New Rectangle(tabRect.X + 8, tabRect.Y + (( _
       tabRect.Height - img.Height) / 2), img.Width, img.Height)
     If Not tabSelected Then imgRect.Offset(0, 1)
     g.DrawImage(img, imgRect)
     [...]
End Sub
End Class