コモンダイヤログを使ってフォームに書いてある絵を保存するには？

---

Dim ファイル番号 As Integer
    
    CommonDialog1.Filter = "ビットマップファイル (*.bmp) | *.bmp"
    CommonDialog1.ShowSave
    
    ファイル番号 = FreeFile
    Open CommonDialog1.FileName For Output As #ファイル番号
      Print #ファイル番号, Form1.image
    Close #ファイル番号
と書いているんですがどうすればいいのでしょうか？
あと、できればコモンダイヤログを使って
ピクチャボックスに書いてある絵を、保存する方法も教えてください。
お願いします！

編集 削除

---

Print#ステートメントではなく、SavePictureを使いましょう。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。