ارجوا من الاخوة الكرام حلا لهذة المشكلة
وضعت صندوق نص و سميتة
text(0)
وبدي اضيف ثلاثة صناديق نصوص اخرى باستخدام الكود التالي
Dim ctrl As Control
for i=1 to 3
Set ctrl = Me.Controls.Add("vb.textbox", "text(" & i & ")", me)
With ctrl
.Left = text(0).left
.Top = text(0).top+text(0).height+50
.Width = text(0).width
.Height = text(0).height
.Alignment = 1
.Appearance = 0
.Visible = True
End With
Next iبس المشكلة : بظهر صندوق الخظأ وبقول
not legal name text(1)
وياريت من الاخوة الرد السريع
بحيث تكون اضافة الصناديق الثلاثة الاخرى باستخدام الكود و الـ
control array
وشكرا