[alarb]

لاادري لكن عندي تظهر بالشكل الصحيح جرب استخدام هذا الكود ربما كانت المشكله انك تقوم باضافته كل ال label فوق بعضها:

كود :

Dim lbl(100) As Label
        Dim n As Short = 0
        For i As Short = 0 To 100
            lbl(i) = New Label
            lbl(i).Text = "Label" & i
            lbl(i).Visible = True
            lbl(i).Location = New Point(i * lbl(i).Width, 10)
            Me.Controls.Add(lbl(i))
            n = i
        Next
        MsgBox("تم اضافة " & n & "اداة")

كود :

Dim lbl(100) As Label
        Dim n As Short = 0
        For i As Short = 0 To 100
            lbl(i) = New Label
            lbl(i).Text = "Label" & i
            lbl(i).Visible = True
            lbl(i).Location = New Point(100, i * lbl(i).Height)
            Me.Controls.Add(lbl(i))
            n = i
        Next
        MsgBox("تم اضافة " & n & "اداة")