I don't know if that works in VB6, but it works in vb.net: Add a reference to the SHELL32.DLL file (in WINDOWS\SYSTEM32). Then try the following code: Dim folder As Shell32.Folder Dim dlg As New Shell32.Shell() folder = dlg.BrowseForFolder(Me.Handle.ToInt32, "Select a folder", 4) Cosmin