Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdTest.Click
 
        Dim dlgDirectory As New CustomFolderBrowserDialog
        dlgDirectory.Description = "Wählen Sie einen Ordner."
        If dlgDirectory.ShowDialog() = DialogResult.OK Then
            MessageBox.Show("Sie haben gewählt: " & dlgDirectory.SelectedPath)
        End If
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class
 
Public Class CustomFolderBrowserDialog
    Inherits System.Windows.Forms.Design.FolderNameEditor
    Private Browser As FolderBrowser
 
    Public Sub New()
        Browser = New FolderBrowser()
        Browser.StartLocation = FolderBrowserFolder.Desktop
        Browser.Style = FolderBrowserStyles.ShowTextBox
    End Sub
 
    Public Function ShowDialog() As DialogResult
        Return Browser.ShowDialog()
    End Function
 
    Public Property Description() As String
        Get
            Return Browser.Description
        End Get
        Set(ByVal Value As String)
            Browser.Description = Value
        End Set
    End Property
 
    Public ReadOnly Property SelectedPath() As String
        Get
            Return Browser.DirectoryPath
        End Get
    End Property
End Class