Dim cpy As New Bitmap(100, 100)
 
        Dim g As Graphics = Graphics.FromImage(cpy)
 
        g.DrawImage(PictureBox1.Image, New Rectangle(0, 0, 100, 100), New _
          Rectangle(50, 50, 100, 100), GraphicsUnit.Pixel)
 
        PictureBox2.Image = cpy