dlg.ShowPlacesList = True dlg.AddPlace("C:\Windows", FileDialogAddPlaceLocation.Top) dlg.AddPlace("C:\Tools\VSImageLibraries", FileDialogAddPlaceLocation.Top) dlg.AddPlace(DirectCast(KnownFolders.StartMenu, ShellContainer), FileDialogAddPlaceLocation.Bottom) dlg.AddPlace(DirectCast(KnownFolders.SendTo, ShellContainer), FileDialogAddPlaceLocation.Bottom)