Inserire più schede e Controlli in una TabStrip nel momento della sua creazione

Nel seguente esempio viene mostrato come inserire via codice in una TabStrip due o più schede comprensive di uno o più Controlli al loro interno.
In particolare poniamo il caso di voler inserire quattro schede, e inserire in ciascuna di queste un "Button":

Public Sub Form_Open()

 Dim b As Byte
 Dim bt As Button

' Inserisce quattro schede:
 TabStrip1.Count = 4

 For b = 0 To 3
' Intesta ciascuna scheda:     
   TabStrip1[b].Text = CStr(b)
' Prende in considerazione la scheda corrente:
   TabStrip1.Index = b
' Inserisce 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(b)
     .Tag = b
   End With

 Next

' Infine, mostra in primo piano la prima scheda:
 TabStrip1.Index = 0

End


Public Sub tasto_Click()  ' Prova il funzionamento dei "Button" inseriti:

 Print "Premuto tasto n. " & Last.Tag

End