Yoichi様
なんどもお騒がせしてすみません。
これを参考に代入の連続で
何とかクリアする事ができました。
いつもありがとうございます。
↓
Dim source As Bitmap
source = New Bitmap(“source.jpg”)
Dim rect As Rectangle
rect = New Rectangle(30, 80, 400, 320)
Dim trimed As Bitmap
trimed = source.Clone(rect, source.PixelFormat)
aigahome拝