[RESOLVED] Extracting text

[jmcilhinney]

It should look like this:

Dim bounds = Me.RectangleToScreen(Me.Panel1.Bounds)
Dim copy As New Bitmap(bounds.Width, bounds.Height)
 
Using g = Graphics.FromImage(copy)
    g.CopyFromScreen(bounds.Location, Point.Empty, bounds.Size)
End Using
 
Me.PictureBox1.Image = copy

Note the use of a Panel for the cut-out. No point using a PictureBox when it won't contain a picture.