Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim cpy As New Bitmap(200, 200)
 
        Dim g As Graphics = Graphics.FromImage(cpy)
 
        g.DrawImage(PictureBox1.Image, New Rectangle(0, 0, 200, 200), New _
          Rectangle(50, 50, 100, 100), GraphicsUnit.Pixel)
 
        PictureBox2.Image = cpy
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist