★　フォルダーの参照ダイアログボックスを表示
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'フォルダーの参照ダイアログボックスを表示
    Dim folderBrowserDialog1 As New FolderBrowserDialog
    folderBrowserDialog1.SelectedPath = "c:\VBDotNet\"
    'ダイアログボックスに[新しいフォルダーの作成]ボタンを表示しない場合は False 
    folderBrowserDialog1.ShowNewFolderButton = False
    folderBrowserDialog1.Description = "下記から希望のプログラムのフォルダーを選択して下さい。"
    If folderBrowserDialog1.ShowDialog() = DialogResult.OK Then
        ''フォルダー名を取得
        MessageBox.Show(folderBrowserDialog1.SelectedPath & " を選択しました")
    End If
End Sub