Private shlShell As Shell32.Shell

Private shlFolder As Shell32.Folder

Private Const BIF_RETURNONLYFSDIRS = &H1