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}
 
End Class

Dim f2 As New frmToDraw2
'f2.Top = 2000
f2.Visible = True
Dim bmp As New Bitmap(f2.Width, f2.Height)
f2.DrawToBitmap(bmp, f2.Bounds)
f2.visible = false
 
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
PictureBox1.Image = bmp