Crop an image

[oka97]

Hey people, I'm pulling my hair out, I can't figure out how to crop an image to a simple retangle size.

I've got an image, set it to a graphics object and set a retangle to that, but can't see what to do after

 

[oka97]

Thanks for all the help people! This is a great vb.net forum.

--

Private Function Crop(ByVal Source As Bitmap, ByVal x As Int32, ByVal y As Int32, ByVal width As Int32, ByVal height As Int32) As Bitmap
Dim Cropped As New Bitmap(width, height)
Dim g As Graphics = Graphics.FromImage(Cropped)
g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
Dim rect As New Rectangle(0, 0, width, height)
g.DrawImage(Source, rect, x, y, width, height, GraphicsUnit.Pixel)
Return Cropped
End Function