کمک در مورد مجموعه ای از label ها

[dr.undead]

قبلا توی vb 6 میشد یه label روی فرم گذاشت ، بعد با کپی گرفتن از اون یه label توی فسمت کد اینجوری میشد نوشت
for i=1 to 5
label(i).text=x
next i

اما این روش توی vb.net ذیگه کار نمکینه
میشه راهنمایی کنید تو vb.net چی کار میشه کرد جاش؟
ممنون

[saeidpsl]

بفرما:چشمک:

Dim lblSample(2) As Label

lblSample(1) = Label1
lblSample(2) = Label2

[مهرداد صفا]

سلام
یا به این صورت:

Dim labels As Label() = (From control In Me.Controls Where TypeOf (Control) Is Label Select Control).Cast(Of Label).ToArray
For i = 0 To labels.Length - 1
labels(i).Text = i.ToString
Next

[dr.undead]

ممنون اما هیچکدوم از اینا کار نکرد
بعدشم من میخوام اینجوری کنم :
For i=1 to 4
label(i).text= rnd(10)
next i
که خود بخود کل 4 تا label روی صفحه رو با اعداد random پر کنه

[the king]

ممنون اما هیچکدوم از اینا کار نکرد
بعدشم من میخوام اینجوری کنم :
For i=1 to 4
label(i).text= rnd(10)
next i
که خود بخود کل 4 تا label روی صفحه رو با اعداد random پر کنه


Dim rnd As New Random
For i As Integer = 1 To 4
Dim lbl As New Label()
lbl.AutoSize = True
lbl.Text = rnd.Next(10)
lbl.Location = New Point(rnd.Next(Me.ClientSize.Width), rnd.Next(Me.ClientSize.Height))
Me.Controls.Add(lbl)
Next

[dr.undead]

مرسی رفیق اما این کد فقط اعداد رندومو توی فرم میندازه
من میخوام روی label1.text تا label4.text بندازه

[the king]

مرسی رفیق اما این کد فقط اعداد رندومو توی فرم میندازه
من میخوام روی label1.text تا label4.text بندازه


Dim rnd As New Random
For i As Integer = 1 To 4
Me.Controls("Label" + i.ToString()).Text = rnd.Next(10)
Next

[dr.undead]

مرسی رفیق خودشه بجز اون تیکه ؛next; قبل (10)