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

طيب أخي جرب الكود التالي

كود :

[COLOR=#000000]
    [/COLOR][color=#0000FF]Private Sub [/color][color=#000000]Button1_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.[/color][color=#2B91AF]Object[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.[/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR=#000000]Button1.Click
        [/COLOR][color=#0000FF]Dim [/color][color=#000000]lbl(100) [/color][color=#0000FF]As [/color][COLOR=#2B91AF]Label
        [/COLOR][color=#0000FF]Dim [/color][color=#000000]n [/color][color=#0000FF]As Short [/color][COLOR=#000000]= 0
        [/COLOR][color=#0000FF]For [/color][color=#000000]i [/color][color=#0000FF]As Short [/color][color=#000000]= 0 [/color][color=#0000FF]To [/color][COLOR=#000000]100
            lbl(i) = [/COLOR][color=#0000FF]New [/color][COLOR=#2B91AF]Label
            [/COLOR][color=#000000]lbl(i).Text = [/color][color=#A31515]"Label" [/color][COLOR=#000000]& i
            lbl(i).Visible = [/COLOR][COLOR=#0000FF]True
            [/COLOR][color=#000000]lbl(i).Location = [/color][color=#0000FF]New [/color][color=#2B91AF]Point[/color][COLOR=#000000](i + 10, i * 10)
            [/COLOR][color=#0000FF]Me[/color][COLOR=#000000].Controls.Add(lbl(i))
            lbl(i).BringToFront()
            n = i
[/COLOR][COLOR=#ff0000]            Application.DoEvents()
[/COLOR]        [COLOR=#0000FF]Next
        [/COLOR][color=#000000]MsgBox([/color][color=#A31515]"تم اضافة " [/color][color=#000000]& n & [/color][color=#A31515]"اداة"[/color][COLOR=#000000])
    [/COLOR][COLOR=#0000FF]End Sub
[/COLOR]

MSDOS كتب :طريقة ترتيب الإضافة أن اللأداة المضافة تأتي تحت الأولى، لهذا لم تراها ولكنها موجودة،

والموضوع ما يحتاج Me.Refresh ولا Application.DoEvents لأنها أداة أي Object وليست رسماً

ضع أمر lbl(i).BringToFront بعد الإضافة لتجعلها فوق الأدوات لتراها،
ومن باب الزيادة غير لون خلفية الأداة المضافة lbl(i).BackColor بلون مختلف عن لون خلفية الفورم.

من غير المعقول أن ينتهي الصب قبل إجراء حلقة التكرار، لأن تنفيذ البرمجة هو منطقي أي حسب تستسل الأمر،
مسألة تعدد المهام باستخدام Threading بشكلل الخاص أو باستخدام BackgroundWorker شيء آخر.