Inserire più linguette ed oggetti via codice

Per inserire via codice in una TabStrip due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.
Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "Button":

Public Sub Form_Open()

 Dim j As Byte
 Dim bt As Button

  With TabStrip1
' Inseriamo quattro linguette:
    .Count = 4
' Mostriamo in primo piano la prima linguetta:
    .Index = 0
  End With

  For j = 0 To 3
' Intestiamo ciascuna linguetta:     
    TabStrip1[j].Text = CStr(j)
' Prendiamo in considerazione la linguetta n. j :
    TabStrip1.Index = j
' Inseriamo un "Button" nella linguetta in considerazione:
    With bt = New Button(TabStrip1)
      .X = 40
      .Y = 100
      .W = 100
      .H = 50
      .Text = "Nuovo tasto " & CStr(j)
    End With
 
  Next

End