VB6 Code - Membuat Objek/Kontrol Baru Pada Saat Runtime

Pada projek kali ini kita akan mencoba membuat objek atau kontrol baru pada saat runtime. Walaupun sederhana akan tetapi banyak sekali kegunaannya. Berikut Kodenya di bawah ini:

Private Sub Command1_Click()

Static I As Integer
I = I + 1
Load Text1(I) 'you must load new control first

With Text1(I)
.Visible = True
.Top = Text1(I - 1).Top + Text1(I - 1).Height + 50
.Text = "Text" & I + 1
'you can set other properties here
End With

End Sub