★　名前をつけて保存ダイアログボックスを表示する
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'名前をつけて保存ダイアログボックスを表示する
    Dim saveFileDialog1 As New SaveFileDialog
    '詳細設定はデフォルトの設定のままで表示
    If saveFileDialog1.ShowDialog() = DialogResult.OK Then

　　　　'ファイルの保存処理をここへ記入する
　　　　ファイルの保存処理の部分は、省略

        MessageBox.Show(saveFileDialog1.FileName & " で保存しました")
    End If
End Sub