別のstackoverflowの質問で見つけたコードのバリエーションを使用して、指定された場所で大きな画像から長方形を切り取っています。しかし、トリミングするたびに正しい幅と高さが得られますが、画像は黒く表示されます。
*face は定義済みの長方形オブジェクトです。
Dim OrignalImage = Image.FromFile("C:\fileName.jpg")
Dim CropImage = New Bitmap(face.Width, face.Height)
Using grp = Graphics.FromImage(OrignalImage)
grp.DrawImage(OrignalImage, OrignalImage.Width, OrignalImage.Height, face, GraphicsUnit.Pixel)
OrignalImage.Dispose()
CropImage.Save("C:\newfile.jpg")
grp.Dispose()
End Using