VB.NET 全般

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

    ' ダイアログの説明を設定する
    FolderBrowserDialog1.Description = "ここに説明を書いてください"

    ' ルートになる特殊フォルダを設定する (初期値 SpecialFolder.Desktop)
    FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer

    ' 初期選択するパスを設定する
    FolderBrowserDialog1.SelectedPath = "C:\Program Files\"

    ' [新しいフォルダ] ボタンを表示する (初期値 True)
    'FolderBrowserDialog1.ShowNewFolderButton = True

    ' ダイアログを表示し、戻り値が [OK] の場合は、選択したディレクトリを表示する
    If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
        MessageBox.Show(FolderBrowserDialog1.SelectedPath)
    End If

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