درخواست راهنمایی در مورد حلقه بین کنترل ها

[Hadiir.net]

با سلام
من روی فرمم 40 تا لیبل دارم حالا میخوام توسط یه حلقه به هرکدموشون یه مقداری بدم چطور میتونم به هر کنترل توی حلقه اشاره کنم و نیام اسم هر 40 تا لیبلو بنویسم و مقدارهاشونو تنظیم کنم؟
مثلا:



Me.Label_D6.Text = "1"
Me.Label_D7.Text = "2"
Me.Label_D8.Text = "3"
Me.Label_D9.Text = "4"
Me.Label_D10.Text = "5"
Me.Label_D11.Text = "6"
Me.Label_D12.Text = "7"
Me.Label_D13.Text = "8"
Me.Label_D14.Text = "9"
Me.Label_D15.Text = "10"
Me.Label_D6.Text = "1"
......



میخوام تنها اسم یک لیبلو بنویسمو با حلقه به هر لیبل اشاره بشه و مقدارشو تنظیم کنه.
با تشکر

[barbodsoft.com]

1-


Dim LbL() As Label = {Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10}

Dim i As Integer
For Each mylabel As Label In LbL
i += 1
mylabel.Text = i
Next


2-


Dim i As Integer = 10
For Each mylabel As Label In Panel1.Controls
i += 1
mylabel.Text = i
Next



3



Dim i As Integer = 20
For Each mylabel In Me.Controls
i += 1
If mylabel IsNot Button1 And mylabel IsNot Button2 And mylabel IsNot Button3 Then mylabel.Text = i
Next