いつも教えて頂き有難う御座います。
また教えて頂きたいのですが、
ここのサイトまたインターネット検索を参考にして、
下記のようなコードを実行した結果。
Fileは出来るのですが、画像がありません。
どこが悪いのかご指導のほど宜しくお願いいたします。
'----------------------------------------------------------
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Set Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
'----------------------------------------------------------
Private Sub Command2_Click()
Picture2.AutoRedraw = True
' 鏡像を得る
Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, Picture1.ScaleHeight
'鏡像は表示されます。
End Sub
'----------------------------------------------------------
Private Sub Command3_Click()
CommonDialog2.ShowSave
SavePicture Picture2.Image, CommonDialog2.FileName
'Fileは出来るのですが、画像がありません。
End Sub
'----------------------------------------------------------

> 申し訳御座いません。
コピペしたので、改行を忘れてしまいました。
また修正しようと試みましたが、
エラーで出来ませんでした

> '----------------------------------------------------------
> Private Sub Command1_Click()
> CommonDialog1.ShowOpen
> Set Picture1.Picture = LoadPicture(CommonDialog1.FileName)
> End Sub
> '----------------------------------------------------------
> Private Sub Command2_Click()
> Picture2.AutoRedraw = True
> ' 鏡像を得る
> Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth, _
0, -Picture1.ScaleWidth, Picture1.ScaleHeight
> '鏡像は表示されます。
> End Sub
> '----------------------------------------------------------
> Private Sub Command3_Click()
> CommonDialog2.ShowSave
> SavePicture Picture2.Image, CommonDialog2.FileName
> 'Fileは出来るのですが、画像がありません。
> End Sub
> '----------------------------------------------------------

Picture2 コントロールの　AutoRedraw 　プロパティ を　True　に設定しておいて
下さい。

>  Picture2 コントロールの　AutoRedraw 　プロパティ を　True　に設定しておいて
> 下さい。
花ちゃんさん有難う御座いました。
画像サイズが、元サイズより小さいですが、
この事は今から勉強してみます。
有難う御座いました。

> 画像サイズが、元サイズより小さいですが、

.ScaleMode = vbPixels (統一)になっていますか？

> > 画像サイズが、元サイズより小さいですが、
>
> .ScaleMode = vbPixels (統一)になっていますか？
花ちゃんさん有難う御座いました。
おかげさまで、思い通り出来上がりました。
有難う御座いました。