ایجاد یک شی در زمان اجرا؟

[kazme_gheyz]

چطور میتونم این کارو کنم؟
میخوام یک شی مثل دکمه یا تکت باکس یا هرچیز دیگه ای در زمان اجرا ایجاد کنم
یادم رفته :لبخند:
ممنون

[f.nabavi]

سلام. از این کد استفاده کن:

Dim txtBox As TextBox
Set txtBox = Controls.Add("VB.TextBox", "txtBox")
With txtBox
.Top = 100
.Left = 100
.Visible = True
End With

[mpmsoft]

ابتدا خاصیت Index تکست باکس رو برابر 0 بکن



For i = 1 to 10

Load Txt(i)
Txt(i).Text = i
Txt(i).Left =0
Txt(i).Top = Txt(i-1).Top + Txt(i).Height + 50
Txt(i).Visible= True