[kslawy]

السلام عليكم ورحمة الله وبركاته

For i = 0 To 300 - 1 Step 20
قم بالدوران علي حلقة تبدأ من الصفر حتى 300 لكن تجاوز في كل دورة 20 رقم (يعني في الدورة الأولى 0 وفي الثانية سيذهب مباشرة للرقم 20 واللي بعدها للرقم 40 وهكذا)
Dim txt As New TextBox ' txt من نوع textbox
تعريف مربع نص جديد في كل دورة

txt.Location = New Point(0, i) "
سيتم تحريك مربع النص الجديد كلما زاد المتغير i (يعني مربع النص سيتحرك بمقدار زيادة 20 في كل دورة مما يجعله يجانب مربع النص السابق له)

txt.Size = New Size(100, 20)
حجم مربع النص لن يتغير أثناء الحلقة

txt.Text = "Mohammed moh"
والنص كذلك ثابت

txt.Parent = Me
يعني والله أعلم أن الأداة الحاضنة لمربع النص هي النموذج الحالي (me تعني النموذج الحالي) .

تنفيذ الكود أعلاه سيؤدي إلي إنشاء مربعات نص جديدة (300 ÷ 20 = 15 مربع نص) موضعها أعلى الفورم ومتراصة بجانب بعضها البعض علي ما يبدوا

****
***
**
*