قراردادن لیبیل روی فرم

[nava_2012]

قراردادن 1000 تا لیبل روی فرم vb6

[hmbarnamenevis]

هدف کارت رو نمی دونم ولی به هرحال:
ابتدا یک Label رو در فرم قرار می دهی و خاصیت Index اون رو 0 می گذاری;
بعد در Form_Load این کد را می نویسی:
for i=1 to 1000
Load label1(i)
label1(i).Visible=True
label1(i).Top=label1(i-1).top+label1(i-1).height+50
next i