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":

Private bt As Button


Public Sub Form_Open()

 Dim j As Byte

' Inseriamo quattro linguette:
  TabStrip.Count = 4

  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) As "tasto"
      .X = 40
      .Y = 100
      .W = 100
      .H = 50
      .Text = "Nuovo tasto " & CStr(j)
      .Tag = j
    End With
 
  Next

' Infine, mostriamo in primo piano la prima linguetta:
  TabStrip1.Index = 0

End


Public Sub tasto_Click()  ' Facciamo la prova del funzionamento dei "Button" inseriti:

  Print "Premuto tasto n. " & Last.Tag

End