VB.NET | TabControl (colocar identificadores a negrito)

Private Sub tab_principal_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles tab_principal.DrawItem


 End Sub

       Dim sf As New StringFormat
        Dim foreBrush As Brush = Brushes.Black
        Dim f As Font

        If e.Index = tab_principal.SelectedIndex Then
            f = New Font(e.Font, FontStyle.Bold)

            Dim tabName As String = tab_principal.TabPages(e.Index).Text.TrimStart

            Dim rect As New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height + 10)
            sf.Alignment = StringAlignment.Center
            Dim r As RectangleF = New RectangleF(e.Bounds.X, e.Bounds.Y + 4, e.Bounds.Width, e.Bounds.Height)
            e.Graphics.DrawString(tabName, f, foreBrush, r, sf)
        Else
            f = New Font(e.Font, FontStyle.Regular)

            Dim tabName As String = tab_principal.TabPages(e.Index).Text.TrimStart

            Dim rect As New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height + 10)
            sf.Alignment = StringAlignment.Center
            Dim r As RectangleF = New RectangleF(e.Bounds.X, e.Bounds.Y + 4, e.Bounds.Width, e.Bounds.Height)
            e.Graphics.DrawString(tabName, f, foreBrush, r, sf)
        End If



        sf.Dispose()

        f.Dispose()