' Ausgangsbild laden
Dim imagePath As String = "F:\Temp\bild.jpg"
 
' Bitmap-Objekt für Bildausschnitt erzeugen
Dim partOfImage As New Bitmap(200, 200)
 
' Bildausschnitt zeichnen und am Ende benötigte Ressourcen freigeben
Using g As Graphics = Graphics.FromImage(partOfImage), originalImage = _
  Image.FromFile(imagePath)
  g.DrawImage(originalImage, New Rectangle(0, 0, 200, 200), New Rectangle(150, _
  150, 200, 200), GraphicsUnit.Pixel)
End Using
 
' Bildausschnitt anzeigen
PictureBox1.Image = partOfImage

Ralf