Imports System.Design Imports System.Windows.Forms.Design Public Class dialogs '<example> 'Dim MyDir As String 'MyDir = GetDir() 'If Not Empty(MyDir) Then ' 'Do something 'End If '</example> Public Shared Function GetDir() As String Return GetDir("") End Function Public Shared Function GetDir(ByVal tcTitle As String) As String 'The GetDirBrowser is a class developed in VFPToolkitNET and is not a 'built in .NET Framework class Dim db As GetDirBrowser = New GetDirBrowser() Return db.ShowIt(tcTitle) End Function ' A special treatement for the GetDir() as it was not a built ' in as a .NET Framework class Private Class GetDirBrowser Inherits FolderNameEditor ' inherit the FolderNameEditor class Dim fBrowser As FolderNameEditor.FolderBrowser Public Sub New() ' contructor ' create an instance of FolderBrowser fBrowser = New System.Windows.Forms.Design.FolderNameEditor.FolderBrowser() End Sub Public Function ShowIt(ByVal textdescription As String) As String ' set the Description label fBrowser.Description = textdescription fBrowser.ShowDialog() ' show the Windows Return fBrowser.DirectoryPath ' return whatever path choosen End Function End Class End Class>Thank you Kamal,