Kontrol létrehozása futási időben

A megoldás első lépése természetesen az kell hogy legyen, hogy létrehozunk egy új példányt abból a komponensből, melyet szeretnénk megjeleníteni. Második lépésként célszerű még megadni ennek az új komponensnek a pozícióját. Ehhez a Location property-nek kell értéket adnunk létrehozva egy új Point struktúrát, mely meghatározza a komponensünk bal szélét és a tetejét a Form-hoz képest. Ezt mellékelt példában úgy állítjuk be, hogy pont a nyomógomb alá kerüljön.

Végső lépésként már csak az marad hátra, hogy feltegyük a Form-ra az új komponenst. Ehhez a Form-unk Controls osztály Add függvényét használhatjuk fel, melynek paraméterként kell átadnunk az új komponensünk változóját.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim tb As TextBox = New TextBox()
  tb.Location = New Point(Button1.Left, Button1.Height + Button1.Top + 10)
  Controls.Add(tb)
End Sub