>>501
Picture2.Move 0, 0, Picture1.Width, Picture1.Height
Picture2.AutoRedraw = True
Ret = BitBlt(Picture2.hDC, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY)
Picture2.Refresh
SavePicture Picture2.Image, .FileName
Picture2.AutoRedraw = False

上記のやり方で試してみたら、やっと上手く画像の保存ができました。picture2
の大きさを1と同じにすればいいみたいです。ただしっかり理解できていない点も
たくさんあると思うので、まだ心配です｡もっとシンプルにできるんじゃないかと
か何か余計な事をしているんじゃないか等