>>497
何度もレスありがとうございます。
はい。何も表示されません。SavePictureにPictureを渡すとプロパティエラーが
発生してしまいます。

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

四角形を描いてから一度保存した方がいいのかと思い、上記のやり方も試して
みたんですが結果は同じで真っ白な画像が保存されてしまいます。