Public Class Form1
    Public Class ControlArray(Of C As {New, Control})
 
        Dim coll As New List(Of C)
 
        Private host As Control
 
        Public Sub AddNewControl(ByVal text As String)
            Dim ctl As New C
 
            coll.Add(ctl)
 
            host.Controls.Add(ctl)
 
            With ctl
                .Text = text
 
            End With
 
            AddHandler ctl.Click, AddressOf MyButton_Click
 
        End Sub
 
        Private Sub MyButton_Click(ByVal sender As Object, ByVal e As EventArgs)
            MessageBox.Show("Sie wählten Schaltfläche " & CType(sender, _
              Button).Name)
        End Sub
 
        Default Public ReadOnly Property Item(ByVal index As Integer) As C
            Get
                If index >= 0 AndAlso index < coll.Count Then
                    Return coll(index)
                End If
            End Get
        End Property
 
        Public Sub New(ByVal host As Control)
            Me.host = host
        End Sub
 
    End Class
 
    Dim myButtonArray As New ControlArray(Of Button)(Me)
 
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        myButtonArray.AddNewControl("Button1")
        myButtonArray.AddNewControl("Button2")
        myButtonArray.AddNewControl("Button3")
 
        Dim top As Integer = 10
        For i = 0 To 2
            With myButtonArray(i)
                .Name = "cmdAction"
                .Visible = True
                .Top = top
                top += 50
            End With
        Next
 
    End Sub
 
End Class

            With ctl
                .Text = text
 
            End With

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist