درخواست کمک درخصوص آرایه ها و for next در ایجاد dot matrix

[padide55]

با سلام
د رفایل نمونه همانگونه که ملاحظه میفرمایید نقاط قرمز از چپ به راست (و یا برعکس) تغییر رنگ داده میشه و دوباره از نو

حالا یک کمک لازم دارم
اینکه اول جابجایی رنگ با کمک for-next بصورت تعریف کنترل . بشه تا n عدد سطر هم کار کرد و کدنویسی تبدیل به یک خط بشه
دوم اینکه سطر ها هم بشه به تعداد دلخواه a,b,c,d,e,f, با یک کد در سطر رنگ جابجا بشه .

توضیح اینکه شماره گذاری کنترلها رو خودمون به ترتیب انجام میدیم . یعنی به سطر و ستون به همین ترتیب کنترل اضافه میکنیم و شماره گذاری میکنیم .
یعنی ctl.name ها از ابتدا به همین ترتیب از 1 تا n کنترل شماره گذاری میشه .

کمک در ایجاد loop میخوام


اول تعریف کنترل dim ctl as controls
دوم معرفی شماره کنترل و کد جابجایی رنگ از 0 تا n شماره
for n=0 to n=24
اصل ماجرا اینجاست که نمیتونم شماره کنترل را برای این کد ذخیره و استفاده کنم .
ctl.n.backcolor=ctl. (n+1).back color
next


ممنون

[mazoolagh]

dim i as integer
Private Sub Form_Timer()
for i = 0 to 7
me.controls("a" & trim(i)).backcolor=me.controls("a" & trim(i + 1)).backcolor
me.controls("b" & trim(i)).backcolor=me.controls("b" & trim(i + 1)).backcolor
next
a8.backcolor=a0.backcolor
b8.backColor=b0.backColor
End sub

[padide55]

dim i as integer
Private Sub Form_Timer()
for i = 0 to 7
me.controls("a" & trim(i)).backcolor=me.controls("a" & trim(i + 1)).backcolor
me.controls("b" & trim(i)).backcolor=me.controls("b" & trim(i + 1)).backcolor
next
a8.backcolor=a0.backcolor
b8.backColor=b0.backColor
End sub



("a" & trim(i))

ممنون
مشکلم در trim(i) بود .