Option Explicit

Private Sub Form_Load()
   Dim l_LineHeightPx As Long
   Dim l_MarginHeightPx As Long
   
   ' Determine the height of one line of text
   ' and convert it to pixels if required (since the TabControl uses pixels)
   l_LineHeightPx = Me.TextHeight("A")
   Select Case Me.ScaleMode
   Case vbPixels, vbUser
   Case Else
      l_LineHeightPx = Me.ScaleY(l_LineHeightPx, Me.ScaleMode, vbPixels)
   End Select
   ' Calculate half of line height + padding for top margin and bottom margin
   l_MarginHeightPx = l_LineHeightPx / 2 + 1
   
   With Me.TabControl1
      ' Make room for 2 lines of text
      .PaintManager.ButtonMargin.SetRect 0, l_MarginHeightPx, 0, l_MarginHeightPx
      ' Enable Markup to take advantage of LineBreak tag
      .EnableMarkup = True
      ' Add 2 lines of text using TextBlock and LineBreak tags
      .InsertItem 0, "<TextBlock>Fish &amp;<LineBreak/>Food</TextBlock>", 0, 0
   End With
End Sub