@HTML
<a href="http://winofsql.jp/download/show_dialog.zip"><img src="http://winofsql.jp/image/lightbox_download.jpg" style='border:solid 0px #000000' /></a>
@HEND

@DIV
Imports System.Windows.Forms

Module Module1

	Sub Main()

		' 「ファイルを開く」用オブジェクト作成
		Dim ofd As OpenFileDialog = New OpenFileDialog()

		' ダイアログが返す結果の型( 列挙体 )
		Dim result As DialogResult

		' ダイアログを開く
		result = ofd.ShowDialog

		' OK ボタンが押された処理
		if result = System.Windows.Forms.DialogResult.OK Then

			Console.Out.WriteLine(ofd.FileName)

		End If

		ofd.Dispose()

		' 処理終了
		Console.WriteLine("処理が終了しました")

		' 一時停止
		Console.Write("Enterキーを押して下さい : ")
		Console.ReadLine()

	End Sub

End Module
@END

※ 参考
http://dobon.net/vb/dotnet/form/openfiledialog.html(「ファイルを開く」ダイアログボックスを表示する: .NET Tips: C#, VB.NET, Visual Studio)
http://dobon.net/vb/dotnet/form/savefiledialog.html(「名前を付けて保存」ダイアログボックスを表示する: .NET Tips: C#, VB.NET, Visual Studio)