[3booody]

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=#2B91AF]Application[/color][COLOR="#000000"].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]

ما شاء الله , اسأل الله ان يزيدك من علمه جزاك الله خيرآ