مساعدة عاجلة

[abasy]

اريد امر لختصار مجموعة الاوامر التالية:
If A1.Left >= 208 Then A1.Move A1.Left + 1, A1.Top + 1.85
If A2.Left >= 208 Then A2.Move A2.Left + 1, A2.Top + 1.85
If A3.Left >= 208 Then A3.Move A3.Left + 1, A3.Top + 1.85
If A4.Left >= 208 Then A4.Move A4.Left + 1, A4.Top + 1.85
If A5.Left >= 208 Then A5.Move A5.Left + 1, A5.Top + 1.85
If A6.Left >= 208 Then A6.Move A6.Left + 1, A6.Top + 1.85
If A7.Left >= 208 Then A7.Move A7.Left + 1, A7.Top + 1.85
If A8.Left >= 208 Then A8.Move A8.Left + 1, A8.Top + 1.85
If A9.Left >= 208 Then A9.Move A9.Left + 1, A9.Top + 1.85
If A10.Left >= 208 Then A10.Move A10.Left + 1, A10.Top + 1.85
If A11.Left >= 208 Then A11.Move A11.Left + 1, A11.Top + 1.85
If A12.Left >= 208 Then A12.Move A12.Left + 1, A12.Top + 1.85
If A13.Left >= 208 Then A13.Move A13.Left + 1, A13.Top + 1.85
If A14.Left >= 208 Then A14.Move A14.Left + 1, A14.Top + 1.85
If A15.Left >= 208 Then A15.Move A15.Left + 1, A15.Top + 1.85
ارجو الرد سريعا وشكرا

[Sandy-Lover]

هذي خوارزمية ولا لغة البيسك خخخخخ

[THE HAWK]

أخي العزيز بإمكانك إنشاء مصفوفة بهذا الشكل [A[x حيث x تأخذ القيم من 1 إلى 15
و تصبح هذه الأوامر هكذا

For x=1 to 15 Do

If A[x].Left >= 208 Then A[x].Move A[x].Left + 1, A[x].Top + 1.85

Next x

إذا أردت المزيد من التوضيح أعطنا المزيد من المعلومات عن نوع الكائن A
تحياتي