みなさんレスありがとうございました。せっかくの機会なのでAPIにチャレンジして
みようと思います｡Picture1の画像をPicture2にコピーしてから保存しようとして
います。ｺｰﾄﾞの記述は

Ret = BitBlt(Picture2.hDC, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY)
Picture2.Refresh
SavePicture Picture2.Image, .FileName

です。マウスでPicture1に目一杯の四角形を描いてから、Picture1のheightとwi
dthを小さく変更して、この処理を行っているのですがpicture2の方には何のコピ
ーもできない状態です。何が原因でしょうか？自分の中のイメージではpicture1の
サイズを変更しても画像は残っているので、サイズ分だけコピーしてるつもりなの
ですが