20-08-13, 01:14 AM
السلام عليكم ورحمة الله وبركاته
طيب أخي جرب الكود التالي
طيب أخي جرب الكود التالي
كود :
[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]