Aggiungere oggetti in una determinata linguetta

Il caso è quello in cui si intende inserire uno o più oggetti via codice in 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()

 TabStrip1.Count = 3

End


Public Sub Button1_Click()

 Dim bt As Button

' Individuiamo la seconda linguetta:
  TabStrip1.Index = 1
   
   With bt = New Button(TabStrip1)
     .X = 40
     .Y = 100
     .W = 100
     .H = 50
     .Text = "Nuovo tasto"
   End With
 
End