Dim bmp As new Bitmap(50, 50) Dim g = graphics.fromimage(bmp) Dim img = getimage("d:\test.jpg") g.DrawImage(img, new Rectangle(0, 0, img.Width, img.Height), new Rectangle(20, 30, img.Width, img.Height), GraphicsUnit.Pixel) bmp.Save("d:\test05.jpg") bmp.dispose