Public Class frmToDraw2
 
    Dim gb As New GroupBox With {.Parent = Me, .Dock = DockStyle.Fill}
    Dim tb As New TextBox With _
    {.Parent = gb, .Text = "Ich bin ein Text. Originell!", .Dock = _
    DockStyle.Fill}
 
    Private Sub frmToDraw2_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height
    End Sub
End Class