' a class to display the BrowseForFolders dialog' usage:' Dim diag As New BrowseForFoldersDialog()' diag.Description = "Select a directory"' If diag.ShowDialog() = DialogResult.OK Then' ' the user selected this directory' directory = diag.Path' End If'' IMPORTANT: requires a reference to the System.Design.Dll assemblyClass BrowseForFoldersDialog ' the Description that appears in the dialog Dim m_Description As String Property Description() As String Get Return m_Description End Get Set(ByVal Value As String) m_Description = Value End Set End Property ' the path returned by the dialog Dim m_Path As String Property Path() As String Get Return m_Path End Get Set(ByVal Value As String) m_Path = Value End Set End Property ' the ShowDialog method Function ShowDialog() As System.Windows.Forms.DialogResult Dim fb As New FolderBrowser(Me) Return fb.ShowDialog() End Function ' an inner private class that inherits from a .NET Framework class ' we need this class because we want to access protected members Private Class FolderBrowser Inherits System.Windows.Forms.Design.FolderNameEditor Dim parent As BrowseForFoldersDialog ' store a reference to the outer object, so that its ' private properties can be accessed Sub New(ByVal parent As BrowseForFoldersDialog) Me.parent = parent End Sub ' show the dialog Function ShowDialog() As System.Windows.Forms.DialogResult Dim fb As New _ System.Windows.Forms.Design.FolderNameEditor.FolderBrowser() fb.Description = parent.m_Description ShowDialog = fb.ShowDialog() If ShowDialog = Windows.Forms.DialogResult.OK Then parent.m_Path = fb.DirectoryPath End If End Function End ClassEnd Class


The Role of Call Data: How Call Tracking Can Improve Customer Experience
Who would argue that experiences reign supreme? But not just any experiences — the ones that occur when customers interact with your business. It’s these real-life interactions that have the