Great post! I did some modifications by alignment, colors and background color. For give me my bad English. I'm speak Portuguese.
(Otimo post! Fiz algumas modificacoes de alinhamento, cores e cor do fundo. Perdoe-me o meu Ingles ruim. Falo Portugues)
Private Sub TabControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ContasTabControl.DrawItem
Dim tabContas As TabControl = DirectCast(sender, TabControl)
Dim sTexto As String = tabContas.TabPages(e.Index).Text
Dim g As Graphics = e.Graphics
Dim fonte As Font = tabContas.Font
Dim format = New System.Drawing.StringFormat
format.Alignment = StringAlignment.Center
format.LineAlignment = StringAlignment.Center
Dim pincel As New SolidBrush(Color.Black)
Dim retangulo As RectangleF = RectangleF.op_Implicit(tabContas.GetTabRect(e.Index))
If tabContas.SelectedIndex = e.Index Then
fonte = New Font(fonte, FontStyle.Bold)
pincel = New SolidBrush(Color.Black)
g.FillRectangle(Brushes.White, retangulo)
End If
g.DrawString(sTexto, fonte, pincel, retangulo, format)
End Sub