[الشاكي لله]

الحل بسيط
اضف Me.Refresh() بعد كود اضافة الاداة للفورم

كود :

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 + 10, i + 10)
            Me.Controls.Add(lbl(i))
            [color=#FF0000]Me.Refresh()[/color]
            n = i
        Next
        MsgBox("تم اضافة " & n & "اداة")