Public Class MyFolderBrowserDialog
	Inherits Windows.Forms.Design.FolderNameEditor
	Private fb As New Windows.Forms.Design.FolderNameEditor.FolderBrowser
	Private fbReturnPath As String
	Public fbDescription As String
	Public ReadOnly Property ReturnPath() As String
		Get
			Return fbReturnPath
		End Get
	End Property
	Public Function ShowDialog() As DialogResult
		Dim Result As DialogResult
		fb.Description = Me.fbDescription
		fb.StartLocation = _
  System.Windows.Forms.Design.FolderNameEditor.FolderBrowserFolder.MyComputer
		fb.Style = _
System.Windows.Forms.Design.FolderNameEditor.FolderBrowserStyles.BrowseForEvery_
thing
		Result = fb.ShowDialog
		If (Result = DialogResult.OK) Then
			Me.fbReturnPath = fb.DirectoryPath
		Else
			Me.fbReturnPath = String.Empty
		End If
		Return Result
	End Function
End Class
 
 
'Aufruf wiefolgt:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
		Dim fbd As New MyFolderBrowserDialog
		fbd.fbDescription = "Wählen Sie die Datei aus..."
		If fbd.ShowDialogChoose = DialogResult.OK Then
			MessageBox.Show(fbd.ReturnPath)
		Else
			Exit Sub
		End If
End Sub

Me.FolderBrowserDialog1.ShowDialog()

I'm an idealist. I don't know where I'm going, but I'm on my way.
- Carl Sandburg