VB.NET 全般

    ' OpenFileDialog の新しいインスタンスを生成する (デザイナから追加している場合は必要ない)
    Dim OpenFileDialog1 As New OpenFileDialog()

    ' ダイアログのタイトルを設定する
    OpenFileDialog1.Title = "ダイアログのタイトルをココに書く"

    ' 初期表示するディレクトリを設定する
    OpenFileDialog1.InitialDirectory = "C:\"

    ' 初期表示するファイル名を設定する
    OpenFileDialog1.FileName = "初期表示するファイル名をココに書く"

    ' ファイルのフィルタを設定する
    OpenFileDialog1.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*"

    ' ファイルの種類 の初期設定を 2 番目に設定する (初期値 1)
    OpenFileDialog1.FilterIndex = 2

    ' ダイアログボックスを閉じる前に現在のディレクトリを復元する (初期値 False)
    OpenFileDialog1.RestoreDirectory = True

    ' 複数のファイルを選択可能にする (初期値 False)
    OpenFileDialog1.Multiselect = True

    ' [ヘルプ] ボタンを表示する (初期値 False)
    OpenFileDialog1.ShowHelp = True

    ' [読み取り専用] チェックボックスを表示する (初期値 False)
    OpenFileDialog1.ShowReadOnly = True

    ' [読み取り専用] チェックボックスをオンにする (初期値 False)
    OpenFileDialog1.ReadOnlyChecked = True

    ' 存在しないファイルを指定した場合は警告を表示する (初期値 True)
    'OpenFileDialog1.CheckFileExists = True

    ' 存在しないパスを指定した場合は警告を表示する (初期値 True)
    'OpenFileDialog1.CheckPathExists = True

    ' 拡張子を指定しない場合は自動的に拡張子を付加する (初期値 True)
    'OpenFileDialog1.AddExtension = True

    ' 有効な Win32 ファイル名だけを受け入れるようにする (初期値 True)
    'OpenFileDialog1.ValidateNames = True

    ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイルを表示する
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        MessageBox.Show(OpenFileDialog1.FileName)

        ' Multiselect が True の場合はこのように列挙する
        'For Each nFileName As String In OpenFileDialog1.FileNames
        '    MessageBox.Show(nFileName)
        'Next nFileName
    End If

    ' 不要になった時点で破棄する (正しくは オブジェクトの破棄を保証する を参照)
    OpenFileDialog1.Dispose()