Public Class cControlContainer(Of T As {New, Control})
 
    Dim clst As New Collections.Generic.List(Of T)
 
    Public Sub New(ByVal Count As Integer, p As Control)
        If Count < 1 Then Throw New ArgumentException
        For i As Integer = 0 To Count - 1
            clst.Add(New T)
            With clst(i)
                .Parent = p
                .Left = 6 : .Height = 30
                .Top = 4 + .Height * i
                .Text = "Control " & CStr(i + 1)
            End With
        Next i
    End Sub
 
End Class