شاید دوست داشته باشین به تعداد دلخواه در زمان اجرای برنامه (Run time ) تعدادی کنترل ایجاد کنین.این کد 25 text box به صورت مربعی ایجاد می کنه.با اجاد کمی تغییر می تونین ازش راحت استفاده کنین.


فقط حواستون باشه که برای ایحاد هر کنترل باید یکی از اون رو با Index 0 روی فرمتون ایجاد کنین. کنترل پیش فرض این کد txtinput هست.


Dim i As Integer
   For i% = 1 To 25
       Load txtInput(i%)
       With txtInput(i%)
            .Width = 360: .Height = 240
            .Left = ((i% - 1) Mod 5) * .Width
            .Top = ((i% - 1) \ 5) * .Height
            .Visible = True
            .Text = "test"
       End With
   Next i%