Dim test As New cTestKlasse("GroupBoxText")

Public Sub New(ByVal _GroupBoxText As String)
    Dim grp As New Groubox
 
    MainForm.Panel1.Controls.Add(grp)
 
    With grp
       .Text = _GroupBoxText
       .Dock = Fill
    End With
End Sub

***************
Gr??e vom Emtu