[سعود]

PHP كود :

Public Class Form1

    Dim lst As New List(Of String)
    Dim WithEvents b As bt
    'Private Sub Badded(sender As Object, e As System.EventArgs)
    '    Dim lbl As New Label
    '    With lbl
    '        .Text = "b"
    '        .AutoSize = True
    '        .ForeColor = Color.Red
    '        .Top = sender.bottom
    '        .Left = sender.left
    '    End With
    '    f.Controls.Add(lbl)
    'End Sub

    Private Sub ad(ByVal t As Control)
        Dim lbl As New Label
        With lbl
            .Text = "b"
            .AutoSize = True
            .ForeColor = Color.Red
            .Top = t.Bottom
            .Left = t.Left
        End With
        f.Controls.Add(lbl)
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To lst.Count - 1
            b = New bt
            With b.Button1
                .Text = lst(i)
                .ForeColor = Color.Blue
            End With
            With b.Label1
                .Text = i
                .ForeColor = Color.Green
            End With
            f.Controls.Add(b)
        Next

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        lst.Add("Cars")
        lst.Add("Planes")
        lst.Add("Cats")
    End Sub

   
   
End Class 


---

نسيت احذف احداث ad و Badded
ماضبطت معي واستخدمت usercontrol