forma çalışma anında da kontroller eklenebilir. çalşıma-zamanlı kontrol ekleme iki yol kullanılarak yapılır.

1. Yol - kontrol dizisi(control array) kullanarak kontrol yaratma



--------------------------------------------------------------------------------


bu metot kullanılarak kontrol oluşturmak için, öncelikle bir kontrol dizisi oluşturulmalıdır.
bunun için kontrolden en az bir tane forma eklenmelidir ve bu kontrole bir index değeri verilmelidir.
örnek:
forma bir adet command butonu ve bir adet text kutusu yerleştirerek Text kutusunun index değerini 0 yapalım. Text1 TextBox dizisinin bir elemanı oldu, bundan sonra load ifadesi ile kontrol yaratılabilir.



Private Sub Command1_Click()
Load Text1(1)
Text1(1).Visible = True
Text1(1).Top=text1(1).Top + Text1(1).Height
Text1(1).Text=”Yeni Textbox”
End Sub


daha fazla kontrol eklemek için,


Private Sub Command1_Click()
for i=1 To 10
Load Text1(i)
Text1(i).Visible = True
Text1(i).Text=”Yeni Textbox” & i
Text1(i).Top=text1(i-1).Top + Text1(i).Height
Next
End Sub


burada yaratılan textbox’ın özellikleri forma ilk eklenen textbox’ın özellikleri ile aynı olacaktır.

2. Yol - Kontrol kolleksiyonunu(controls collection) kullanarak kontrol yaratma



--------------------------------------------------------------------------------


Kullanımı daha kolaydır fakat anlaşılması açısından zordur. forma tasarım modunda kontrolü eklemeye gerek yoktur.

örnek:
forma sadece bir adet command butonu ekleyerek şu kodları yazalım


Private Sub Command1_Click()

Dim kontrol As Control

Set kontrol = Form1.Controls.Add(”VB.TextBox”, “Text1″, Form1)
kontrol.Visible = True

End Sub


daha fazla kontrol eklemek için,


Private Sub Command1_Click()
Dim kontrol(10) As Control
For i = 1 To 10
Set kontrol(i) = Form1.Controls.Add(”VB.TextBox”, “Text” & i, Form1)
kontrol(i).Visible = True
kontrol(i).Text = kontrol(i).Name
If i > 1 Then kontrol(i).Top = kontrol(i - 1).Top + kontrol(i - 1).Height
Next
End Sub