Public Class frmFrameDemo
 
    Dim pl As New Panel With {.Parent = Me,
    .Top = 50, .Left = 100, .BorderStyle = BorderStyle.None, .BackColor = _
      Color.Red}
 
    Dim txt As New TextBox With {.Parent = pl, .Multiline = True,
    .Width = 200, .Height = 200, .BorderStyle = BorderStyle.None}
 
 
    Private Sub frmTest3_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        Dim framewidth As Integer = 2 'Rahmenbreite
 
        'Positionierung und Größenanpassung der Controls 
        pl.Width = txt.Width + framewidth * 2
        pl.Height = txt.Height + framewidth * 2
        txt.Left = framewidth : txt.Top = framewidth
    End Sub
 
 
End Class