[pal_12]

أختي العزيزة

1. Dim colors() As String = _
{"Red", "Green", "Blue"}

هنا تعرفين مصفوفة من نوع سترنج فيها 3 قيم
2. Dim i as integre
تعرفين متغير من نوع عدد صحيح

For i = 0 To UBound(colors)

لا أعلم اسمه بالعربي ولكن ما يعمل أنه ينفذ الأمر على كل العناصر الموجودة في المصفوفة المعرفة فوق
أي انه أن الأموامر بعد هذا السطر الى
Next
سيتم تنفيذها 3 مرات وذلك لأن المصفوفة فيها 3 عناصر
طبعا الدالة UBound هي التي تحسب عدد العناصر في المصفوفة

وكما يبدو لي فإن النتيجة هي تغيير لون النص في عند ضغطك على زر button_1
ولست متأكدا اذا كان هذا هو ما يفعله الكود في اللوب

للأسف الشديد أختى العزيزة أنا لا أعرف فيجوال بيسك ولم أبرمج بها من 10 سنين وقد برمجت وقتها كما اذكر برامج بسيطة جدا للتسلية مثل آلة حاسبة ووو


الدالة الثانية تبدوا لي من الوهلة الأولى نفس الدالة الأولى



وأتمنى لك التوفيق