Public Class LabelPanel
    Inherits Panel
 
    Private lab As New Label
 
    Public Sub New()
        MyBase.New()
        Me.Size = New Size(80, 80)
        Me.BackColor = Color.AliceBlue
        lab.AutoSize = False
        lab.Top = 20
        lab.Left = 20
        lab.Size = New Size(40, 40)
        lab.Text = "Hi there!"
        lab.BackColor = Color.Bisque
        lab.Anchor = AnchorStyles.Top Or AnchorStyles.Right Or _
          AnchorStyles.Bottom Or AnchorStyles.Left
        Me.Controls.Add(lab)
    End Sub
 
    Public ReadOnly Property TheLabel As Label
        Get
            Return lab
        End Get
    End Property
 
End Class

________
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