Public Class frmDrawToBitmap
 
    Dim pb As New PictureBox _
    With {.Parent = Me, .Width = 300, .Height = 300}
 
    Dim lb As New ListBox With _
    {.Parent = pb, .BackColor = Color.Yellow, _
     .Top = 100, .Left = 50, .Width = 200, .Visible = True}
 
    Dim btn As New Button With _
    {.Parent = pb, .Text = "Button-text", _
    .BackColor = Color.Red, .ForeColor = Color.White, _
    .Top = 200, .Left = 50, .Width = 200}
 
    Private Sub frmDrawToBitmap_Load(ByVal sender As System.Object, _
                     ByVal e As System.EventArgs) Handles MyBase.Load
 
        lb.Items.Add("Text in der Listbox")
 
        Using bmp As New Bitmap(300, 300), _
            g As Graphics = Graphics.FromImage(bmp), _
            bt As New SolidBrush(Color.Green)
 
            g.Clear(Color.Aqua)
            g.DrawString("Text in Bitmap", Me.Font, bt, 10, 10)
            pb.Image = CType(bmp.Clone, Bitmap)
        End Using
 
        Dim bmp_out As New Bitmap(300, 300)
        pb.DrawToBitmap(bmp_out, New Rectangle(0, 0, pb.Width, pb.Height))
 
        bmp_out.Save("MyPicturebox1.png", Imaging.ImageFormat.Png)
    End Sub
 
End Class