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}
 
 
    Dim txt2 As New TextBox With {.Parent = Me, .Top = 300,
    .Left = 100, .Width = 200, .Height = 150,
    .Multiline = True, .BorderStyle = BorderStyle.None}
 
 
    Private Sub frm_Load(sender As Object, 
                         e As EventArgs) Handles MyBase.Load
 
        Dim framewidth As Integer = 1 '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
 
 
    Private Sub frm_Paint(sender As Object, 
                          e As PaintEventArgs) Handles Me.Paint
 
        'Rahmen um die Textbox auf das Formular zeichnen
 
        Dim framewidth As Integer = 1
 
        Using pn As New Pen(Color.Red, framewidth)
            Dim rect As New Rectangle(txt2.Left - framewidth,
                                      txt2.Top - framewidth,
                                      txt2.Width + 2 * framewidth,
                                      txt2.Height + 2 * framewidth)
 
            e.Graphics.DrawRectangle(pn, rect)
        End Using
 
    End Sub
End Class