procedure TForm1.vr1EnumFolder(Sender: TCustomVirtualExplorerTree;
  Namespace: TNamespace; var AllowAsChild: Boolean);
begin try
if vr1.ThumbsOptions.LoadAllAtOnce then
   if Namespace.FileSystem and not Namespace.Folder then
      if vr1.IsImageFile(Namespace.NameForParsingInFolder) then
         ProgressBar1.Max := ProgressBar1.Max + 1;
except end;End;