Aggiungere Controlli su una determinata scheda di una TabStrip successivamente alla sua creazione

Il caso è quello in cui si intende inserire - in un momento successivo a nostro piacimento - uno o più Controlli via codice su una linguetta della TabStrp.

Facciamo l'esempio in cui abbiamo una TabStrip, formata da tre linguette. Intendiamo inserire, cliccando su un tasto, un Button all'interno della seconda linguetta:

Public Sub Form_Open()

 With TabStrip1
' Inserisce tre linguette:
   .Count = 3
' Mostra in primo piano la prima linguetta:
   .Index = 0
 End With

' Intesta ciascuna linguetta:
 For b As Byte = 0 To 2
   TabStrip1[b].Text = "Scheda n. " & CStr(b)
 Next

End


Public Sub Button1_Click()

 Dim bt As Button

' Individua la seconda linguetta:
 TabStrip1.Index = 1
   
' Inserisce il "Button" nella linguetta individuata:
 With bt = New Button(TabStrip1) As "tasto"
   .W = 100
   .H = 50
   .X = (TabStrip1.W / 2) - (bt.W / 2)
   .Y = (TabStrip1.H / 2) - (bt.H / 2)
   .Text = "Nuovo tasto"
   .Tag = "seconda"
 End With
 
End


Public Sub tasto_Click() ' Prova il funzionamento del "Button" inserito:

 Me.Title = "Premuto il tasto della " & Last.Tag & " scheda !"

End