' Bitmap-Objekt für Bildausschnitt erzeugen
        Dim partOfImage As New Bitmap(100,100)
 
                ' Bildausschnitt zeichnen und am Ende benötigte Ressourcen 
                ' freigeben
        Using g As Graphics = Graphics.FromImage(partOfImage), originalImage = _
          Image.FromFile(pfad & "bild.jpg")
 
            g.DrawImage(originalImage, New Rectangle(0, 0, 200,200) _
                                       New Rectangle(0 , 0 ,500,500), _
                                       GraphicsUnit.Pixel)
        End Using
 
        Picturebox1.Image = partOfImage