ピクチャーボックス上に描いた円をうまく保存できません

１.予めピクチャーボックスに画像を表示しておき

２.そのピクチャーボックス内に円を描き↓
Picture1.Circle (10, 10), 500

３.それら両方（１で予め表示しておいた画像と、２で描いた円）を保存しようと↓
SavePicture Picture1.Image, App.Path & "\Test.bmp"

とすると、１で予め表示しておいた画像だけが保存され、２で描いた円が保存されません。

両方とも（１で予め表示しておいた画像の上に２で描いた円が表示されるように）保存したいのですが、どのようにすればよいでしょうか。
できれば具体的にサンプルコードなどをご教授いただけると大変ありがたく存じます。
恐れ入りますが、何卒よろしくお願いいたします（VB6.0）

No.1 ベストアンサー 回答者： taisuke555 回答日時： 2004/04/28 00:23

Picture1 の AutoRedrawプロパティ を True にすれば、

質問のコードで保存できると思います。

この回答への補足

ご指導いただきありがとうございます。
Picture1 の AutoRedrawプロパティ を Trueにしてみたのですが、円は上手く保存されませんでした。
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Circle (500, 500), 500
Call SavePicture(Picture1.Picture, "D:\test.bmp")
End Sub
のように書いてもみたのですが、保存されませんでした。

もしかしたら
Picture1.Circle (500, 500), 500
といった円の描き方に問題があるのでしょうか。
何かお気づきの点がございましたら、恐れ入りますがよろしくお願いいたします。

補足日時：2004/04/28 12:07

この回答へのお礼

SavePicture Picture1.Image,
としなければならないところを
SavePicture Picture1.Picture,
としてました。

PictureをImageに修正したうえで、ご指導いただきました通りに、AutoRedrawプロパティ を True にしたところ、上手く保存されたようです。大変助かりました。感謝しております。ありがとうございました。

お礼日時：2004/04/28 12:30