From d133917283b6d61fc9a07e839ec8d01f02208643 Mon Sep 17 00:00:00 2001
From: Maddo Scientisto <maddo.science@gmail.com>
Date: Thu, 25 Feb 2021 11:14:44 +0100
Subject: [PATCH] Conversione a c# + threads

---
 Catalog.sln                                   |   27 +-
 CatalogVbLib/CatalogVbLib.vbproj              |   17 +
 .../ImageCreator.vb                           |   65 +-
 CatalogVbLib/packages.config                  |    8 +
 MaddoShared/FileData.cs                       |   27 +
 MaddoShared/FileHelperSharp.cs                |  116 ++
 MaddoShared/ImageCreationStuff.cs             |  200 +++
 MaddoShared/ImageCreatorSharp.cs              | 1021 ++++++++++++++
 MaddoShared/MaddoShared.csproj                |  101 ++
 MaddoShared/Properties/AssemblyInfo.cs        |   36 +
 MaddoShared/ThreadingHelper.cs                |   60 +
 MaddoShared/app.config                        |   19 +
 MaddoShared/packages.config                   |   15 +
 imagecatalog/FileHelper.vb                    |  117 +-
 imagecatalog/Form1.vb                         |    1 +
 imagecatalog/ImageCatalog 2.vbproj            |   41 +-
 imagecatalog/MainForm.Designer.vb             |   28 +-
 imagecatalog/MainForm.vb                      |  184 ++-
 .../My Project/Application.Designer.vb        |    2 +-
 imagecatalog/My Project/Settings.Designer.vb  |    2 +-
 imagecatalog/PicSettings.vb                   | 1168 ++++++++---------
 imagecatalog/XYThreadPool.vb                  |    2 +-
 imagecatalog/app.config                       |   23 +-
 imagecatalog/packages.config                  |   11 +
 24 files changed, 2649 insertions(+), 642 deletions(-)
 rename {imagecatalog => CatalogVbLib}/ImageCreator.vb (95%)
 create mode 100644 CatalogVbLib/packages.config
 create mode 100644 MaddoShared/FileData.cs
 create mode 100644 MaddoShared/FileHelperSharp.cs
 create mode 100644 MaddoShared/ImageCreationStuff.cs
 create mode 100644 MaddoShared/ImageCreatorSharp.cs
 create mode 100644 MaddoShared/MaddoShared.csproj
 create mode 100644 MaddoShared/Properties/AssemblyInfo.cs
 create mode 100644 MaddoShared/ThreadingHelper.cs
 create mode 100644 MaddoShared/app.config
 create mode 100644 MaddoShared/packages.config
 create mode 100644 imagecatalog/packages.config

diff --git a/Catalog.sln b/Catalog.sln
index 05e37b1..7108485 100644
--- a/Catalog.sln
+++ b/Catalog.sln
@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.26403.3
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.31005.135
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ImageCatalog 2", "imagecatalog\ImageCatalog 2.vbproj", "{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}"
 EndProject
@@ -15,6 +15,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CatalogVbLib", "CatalogVbLi
 EndProject
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Libraries", "Libraries", "{A3D50937-74F6-4DC8-8D89-B534B484C0F9}"
 EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "MaddoShared", "MaddoShared\MaddoShared.csproj", "{AEBFE9E3-277C-4A7B-8448-145D1B11998B}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -28,6 +30,7 @@ Global
 		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Debug|x64.ActiveCfg = Debug|x64
+		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Debug|x64.Build.0 = Debug|x64
 		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Debug|x86.ActiveCfg = Debug|x86
 		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Debug|x86.Build.0 = Debug|x86
 		{8D3AA2B0-8F06-4A61-9CAD-B920EB1A8E9C}.Release|Any CPU.ActiveCfg = Release|Any CPU
@@ -39,6 +42,7 @@ Global
 		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Debug|x64.ActiveCfg = Debug|x64
+		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Debug|x64.Build.0 = Debug|x64
 		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D11ED7B0-93E8-4F38-A142-EED72D7EE8B5}.Release|Any CPU.Build.0 = Release|Any CPU
@@ -68,14 +72,33 @@ Global
 		{44465926-240D-473F-90B8-786BA4384406}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{44465926-240D-473F-90B8-786BA4384406}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{44465926-240D-473F-90B8-786BA4384406}.Debug|x64.ActiveCfg = Debug|x64
+		{44465926-240D-473F-90B8-786BA4384406}.Debug|x64.Build.0 = Debug|x64
 		{44465926-240D-473F-90B8-786BA4384406}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{44465926-240D-473F-90B8-786BA4384406}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{44465926-240D-473F-90B8-786BA4384406}.Release|Any CPU.Build.0 = Release|Any CPU
 		{44465926-240D-473F-90B8-786BA4384406}.Release|x64.ActiveCfg = Release|x64
 		{44465926-240D-473F-90B8-786BA4384406}.Release|x64.Build.0 = Release|x64
 		{44465926-240D-473F-90B8-786BA4384406}.Release|x86.ActiveCfg = Release|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Debug|x64.Build.0 = Debug|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Debug|x86.Build.0 = Debug|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Release|x64.ActiveCfg = Release|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Release|x64.Build.0 = Release|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Release|x86.ActiveCfg = Release|Any CPU
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
 	EndGlobalSection
+	GlobalSection(NestedProjects) = preSolution
+		{AEBFE9E3-277C-4A7B-8448-145D1B11998B} = {A3D50937-74F6-4DC8-8D89-B534B484C0F9}
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {0E3ABC63-8601-4DAC-AFEA-33F3E8E36757}
+	EndGlobalSection
 EndGlobal
diff --git a/CatalogVbLib/CatalogVbLib.vbproj b/CatalogVbLib/CatalogVbLib.vbproj
index efab3b3..c6e2591 100644
--- a/CatalogVbLib/CatalogVbLib.vbproj
+++ b/CatalogVbLib/CatalogVbLib.vbproj
@@ -68,9 +68,24 @@
     <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="Ben.Demystifier, Version=0.3.0.0, Culture=neutral, PublicKeyToken=a6d206e05440431a, processorArchitecture=MSIL">
+      <HintPath>..\packages\Ben.Demystifier.0.3.0\lib\net45\Ben.Demystifier.dll</HintPath>
+    </Reference>
     <Reference Include="System" />
+    <Reference Include="System.Collections.Immutable, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Collections.Immutable.5.0.0\lib\portable-net45+win8+wp8+wpa81\System.Collections.Immutable.dll</HintPath>
+    </Reference>
     <Reference Include="System.Data" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.Reflection.Metadata, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Reflection.Metadata.5.0.0\lib\portable-net45+win8\System.Reflection.Metadata.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.3\lib\netstandard1.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\portable-net45+win8+wp8+wpa81\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
     <Reference Include="System.Windows" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
@@ -92,6 +107,7 @@
   <ItemGroup>
     <Compile Include="Class1.vb" />
     <Compile Include="ExifReader.vb" />
+    <Compile Include="ImageCreator.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -127,6 +143,7 @@
       <CustomToolNamespace>My</CustomToolNamespace>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
+    <None Include="packages.config" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
diff --git a/imagecatalog/ImageCreator.vb b/CatalogVbLib/ImageCreator.vb
similarity index 95%
rename from imagecatalog/ImageCreator.vb
rename to CatalogVbLib/ImageCreator.vb
index fa39d7f..3b24fea 100644
--- a/imagecatalog/ImageCreator.vb
+++ b/CatalogVbLib/ImageCreator.vb
@@ -1,11 +1,13 @@
-Imports System.IO
+Imports System.Drawing
+Imports System.IO
 Imports System.Drawing.Drawing2D
 Imports System.Drawing.Imaging
+Imports System.Windows.Forms
 'Imports System.Threading
 
 Public Class ImageCreator
 #Region "dichiarazioni"
-  
+
 
     Private FotoRuotaADestra As Boolean = False
     Private FotoRuotaASinistra As Boolean = False
@@ -61,56 +63,63 @@ Public Class ImageCreator
 
     Public Sub New(ByVal file As FileInfo, ByVal destination As DirectoryInfo)
         Me.WorkFile = file
-        me.DestDir = destination
+        Me.DestDir = destination
 
     End Sub
 
     Public Sub CreaImmagineThread(ByVal Info As String)
-#If Not Debug Then
+
         Try
-#End If
+
             preparaVariabili()
             'Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(Path.Combine(SourceDir.FullName, NomeFileChild))
-            Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(WorkFile.FullName)
+            Using g As Image = Image.FromFile(WorkFile.FullName)
 
-            ' Imposta testo extra
-            impostaTestoExtra(g)
 
-            ' Ruota l'immagine in base ai dati EXIF
-            Rotation(g)
 
-            ' Forza jpeg se è selezionata l'opzione
-            Dim thisFormat As System.Drawing.Imaging.ImageFormat = g.RawFormat
-            If PicSettings.UsaForzaJpg = True Then thisFormat = System.Drawing.Imaging.ImageFormat.Jpeg
 
-            prepareThumbnailSize(g)
+                'Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(WorkFile.FullName)
 
-            Dim imgOutputBig As New Bitmap(g, thumbSizeBig.Width, thumbSizeBig.Height)
-            imgOutputBig.SetResolution(g.HorizontalResolution, g.VerticalResolution)
+                ' Imposta testo extra
+                impostaTestoExtra(g)
 
-            ' Crea le miniature
-            creaMiniature(g, imgOutputBig, thisFormat)
+                ' Ruota l'immagine in base ai dati EXIF
+                Rotation(g)
 
-            aggiungiTesto(g, imgOutputBig)
+                ' Forza jpeg se è selezionata l'opzione
+                Dim thisFormat As System.Drawing.Imaging.ImageFormat = g.RawFormat
+                If PicSettings.UsaForzaJpg = True Then thisFormat = System.Drawing.Imaging.ImageFormat.Jpeg
 
-            aggiungiLogo(imgOutputBig)
+                prepareThumbnailSize(g)
 
-            salvaFoto(imgOutputBig, thumbSizeBig, nomeFileBig, nomeFileSmall, thumbSizeSmall, thisFormat)
+                Dim imgOutputBig As New Bitmap(g, thumbSizeBig.Width, thumbSizeBig.Height)
+                imgOutputBig.SetResolution(g.HorizontalResolution, g.VerticalResolution)
 
-            g.Dispose()
+                ' Crea le miniature
+                creaMiniature(g, imgOutputBig, thisFormat)
+
+                aggiungiTesto(g, imgOutputBig)
+
+                aggiungiLogo(imgOutputBig)
+
+                salvaFoto(imgOutputBig, thumbSizeBig, nomeFileBig, nomeFileSmall, thumbSizeSmall, thisFormat)
+            End Using
+            'g.Dispose()
 
             GC.Collect()
 
-            PicSettings.mainForm.stepProgressBar()
-#If Not Debug Then
-Catch ex As Exception
+            'PicSettings.mainForm.stepProgressBar()
 
-
-            MessageBox.Show(ex.Message)
+        Catch ex As Exception
+            Dim e = ex.Demystify()
+            Console.WriteLine(e)
+            Console.WriteLine(e.Message)
+            Console.WriteLine(e.StackTrace)
+            'MessageBox.Show(ex.Message)
 
 
         End Try
-#End If
+
 
 
     End Sub
diff --git a/CatalogVbLib/packages.config b/CatalogVbLib/packages.config
new file mode 100644
index 0000000..b0d74df
--- /dev/null
+++ b/CatalogVbLib/packages.config
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Ben.Demystifier" version="0.3.0" targetFramework="net45" />
+  <package id="System.Collections.Immutable" version="5.0.0" targetFramework="net45" />
+  <package id="System.Reflection.Metadata" version="5.0.0" targetFramework="net45" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="4.5.3" targetFramework="net45" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net45" />
+</packages>
\ No newline at end of file
diff --git a/MaddoShared/FileData.cs b/MaddoShared/FileData.cs
new file mode 100644
index 0000000..37bd735
--- /dev/null
+++ b/MaddoShared/FileData.cs
@@ -0,0 +1,27 @@
+using System;
+using System.Collections.Generic;
+using System.IO;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+
+namespace MaddoShared
+{
+    public class FileData
+    {
+        /// <summary>
+        /// Il file originale
+        /// </summary>
+        public FileInfo File { get; set; }
+        /// <summary>
+        /// La cartella di destinazione
+        /// </summary>
+        public DirectoryInfo Directory { get; set; }
+
+        public FileData(FileInfo newFile, DirectoryInfo newDirectory)
+        {
+            this.File = newFile;
+            this.Directory = newDirectory;
+        }
+    }
+}
diff --git a/MaddoShared/FileHelperSharp.cs b/MaddoShared/FileHelperSharp.cs
new file mode 100644
index 0000000..905999e
--- /dev/null
+++ b/MaddoShared/FileHelperSharp.cs
@@ -0,0 +1,116 @@
+using System;
+using System.Collections.Concurrent;
+using System.Collections.Generic;
+using System.IO;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+
+namespace MaddoShared
+{
+    public class FileHelperOptions
+    {
+        public bool SeparateFiles { get; set; }
+        public NumerazioneType NumerationType { get; set; }
+        public int CounterSize { get; set; }
+        public string Suffix { get; set; }
+        public int FilesPerFolder { get; set; }
+    }
+    public enum NumerazioneType
+    {
+        Progressiva,
+        Files
+    }
+    public class FileHelperSharp
+    {
+
+        public List<FileData> GetFilesRecursive(DirectoryInfo root, DirectoryInfo destRoot, string filter, FileHelperOptions options)
+        {
+            ConcurrentDictionary<FileInfo, DirectoryInfo> dirSourceDest = new ConcurrentDictionary<FileInfo, DirectoryInfo>();
+            List<FileInfo> result = new List<FileInfo>();
+
+            // Dim stack As New Stack(Of DirectoryInfo)
+            Stack<KeyValuePair<DirectoryInfo, DirectoryInfo>> stack = new Stack<KeyValuePair<DirectoryInfo, DirectoryInfo>>();
+
+
+
+            KeyValuePair<DirectoryInfo, DirectoryInfo> pair = new KeyValuePair<DirectoryInfo, DirectoryInfo>();
+
+
+            // stack.Push(root)
+            stack.Push(new KeyValuePair<DirectoryInfo, DirectoryInfo>(root, destRoot));
+
+            while ((stack.Count > 0))
+            {
+                KeyValuePair<DirectoryInfo, DirectoryInfo> curDirKV = stack.Pop();
+                // curDirKP = stack.Pop()
+                DirectoryInfo dir = curDirKV.Key;
+                DirectoryInfo dDir = curDirKV.Value;
+                try
+                {
+                    // result.AddRange(dir.GetFiles(filter, SearchOption.TopDirectoryOnly))
+                    // dividere file qui
+                    if (options.FilesPerFolder > 0 & options.SeparateFiles)
+                        AppendDictionaryConcurrent(dirSourceDest, DividiFilesInDirConcurrent(dir, dDir, options, filter));
+                    else
+                        AppendDictionaryConcurrent(dirSourceDest, DividiFilesInDirConcurrent(dir, dDir, options, filter));
+
+                    foreach (DirectoryInfo subDirectory in dir.GetDirectories())
+                        stack.Push(new KeyValuePair<DirectoryInfo, DirectoryInfo>(subDirectory, new DirectoryInfo(Path.Combine(dDir.FullName, subDirectory.Name))));
+                }
+                catch (Exception ex)
+                {
+                    // TODO ERROR
+                }
+            }
+
+            List<FileData> resultData = new List<FileData>();
+            resultData.AddRange(from p in dirSourceDest
+                                select new FileData(p.Key, p.Value));
+            return resultData;
+        }
+
+        public ConcurrentDictionary<FileInfo, DirectoryInfo> AppendDictionaryConcurrent(ConcurrentDictionary<FileInfo, DirectoryInfo> dictA, ConcurrentDictionary<FileInfo, DirectoryInfo> dictB)
+        {
+            foreach (KeyValuePair<FileInfo, DirectoryInfo> pair in dictB)
+                dictA.TryAdd(pair.Key, pair.Value);
+            return dictA;
+        }
+
+
+        private ConcurrentDictionary<FileInfo, DirectoryInfo> DividiFilesInDirConcurrent(DirectoryInfo dir, DirectoryInfo dirDest, FileHelperOptions options, string filter)
+        {
+            //int filesCount = dir.GetFiles(Filter).Length;
+            int contaFilePerDir = 0;
+            int contaDirPerDir = 0;
+            string tempText;// = string.Empty;
+            ConcurrentDictionary<FileInfo, DirectoryInfo> foldersDict = new ConcurrentDictionary<FileInfo, DirectoryInfo>();
+
+            DirectoryInfo destDir;
+            destDir = new DirectoryInfo(Path.Combine(dirDest.FullName));
+            foreach (FileInfo file in dir.GetFiles(filter))
+            {
+                contaFilePerDir += 1;
+
+                if (contaFilePerDir == (contaDirPerDir * options.FilesPerFolder) + 1)
+                {
+                    contaDirPerDir += 1;
+
+                    tempText = options.NumerationType == NumerazioneType.Progressiva ? contaDirPerDir.ToString() : (contaDirPerDir * options.FilesPerFolder).ToString();
+                    int i;
+                    for (i = 1; i <= (options.CounterSize - tempText.Length); i++)
+                        tempText = "0" + tempText;
+                    destDir = new DirectoryInfo(Path.Combine(dirDest.FullName, options.Suffix + tempText));
+                }
+
+                if (!destDir.Exists)
+                    destDir.Create();
+
+                foldersDict.TryAdd(file, destDir);
+            }
+
+            return foldersDict;
+        }
+
+    }
+}
diff --git a/MaddoShared/ImageCreationStuff.cs b/MaddoShared/ImageCreationStuff.cs
new file mode 100644
index 0000000..226cc29
--- /dev/null
+++ b/MaddoShared/ImageCreationStuff.cs
@@ -0,0 +1,200 @@
+using System;
+using System.Collections.Concurrent;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.IO;
+using System.Linq;
+using System.Text;
+using System.Threading;
+using System.Threading.Tasks;
+using CatalogVbLib;
+using Dasync.Collections;
+
+namespace MaddoShared
+{
+    public class ImageCreationStuff
+    {
+        public class Options
+        {
+            public bool AggiornaSottodirectory { get; set; }
+            public bool CreaSottocartelle { get; set; }
+
+            public int FilePerCartella { get; set; }
+            public string SuffissoCartelle { get; set; }
+            public int CifreContatore { get; set; }
+            public NumerazioneType NumerazioneType { get; set; }
+            public string SourcePath { get; set; }
+            public string DestinationPath { get; set; }
+
+            public int MaxThreads { get; set; }
+            public int ChunksSize { get; set; }
+            public bool LinearExecution { get; set; }
+        }
+
+        public async Task<string> CreaCatalogoParallel(Options options)
+        {
+            var stopwatch = new Stopwatch();
+            stopwatch.Start();
+            // todo immagini counter
+            //todo set label
+            await CreaImmaginiParallel(options);
+
+            // todo set finito label
+            stopwatch.Stop();
+
+            return $"{stopwatch.Elapsed.Hours}h {stopwatch.Elapsed.Minutes}m ${stopwatch.Elapsed.Seconds}s ({stopwatch.Elapsed.TotalSeconds}s)";
+
+
+        }
+
+        public async Task CreaImmaginiParallel(Options options)
+        {
+            var dataToProcess = new List<FileData>();
+            if (options.AggiornaSottodirectory && options.CreaSottocartelle)
+            {
+                var helper = new FileHelperSharp();
+                dataToProcess = helper.GetFilesRecursive(new DirectoryInfo(options.SourcePath), new DirectoryInfo(options.DestinationPath),
+                    "*.jpg", new FileHelperOptions()
+                    {
+                        FilesPerFolder = options.FilePerCartella,
+                        Suffix = options.SuffissoCartelle,
+                        CounterSize = options.CifreContatore,
+                        NumerationType = options.NumerazioneType
+                    });
+            }
+            else if (!options.CreaSottocartelle)
+            {
+                var files = Directory.EnumerateFiles(options.SourcePath, "*.jpg",
+                    options.AggiornaSottodirectory
+                        ? SearchOption.AllDirectories
+                        : SearchOption.TopDirectoryOnly);
+
+                dataToProcess = files.Select(x =>
+                {
+                    var fInfo = new FileInfo(x);
+                    var filePath = fInfo.DirectoryName;
+                    var trimmedSourcePath = options.SourcePath.TrimEnd('\\');
+                    var newFilePath = fInfo.FullName.Replace(trimmedSourcePath, "").TrimStart('\\');
+                    newFilePath = Path.Combine(options.DestinationPath, newFilePath);
+
+                    var destFolderPath = new FileInfo(newFilePath).DirectoryName;
+                    var destFolderInfo = new DirectoryInfo(destFolderPath);
+                    destFolderInfo.EnsureDirectoryExists();
+
+                    return new FileData(fInfo, new DirectoryInfo(new FileInfo(newFilePath).DirectoryName));
+                }).ToList();
+
+                //// TODO
+                //dataToProcess =
+                //    (from f in Directory.EnumerateFiles(options.SourcePath, "*.jpg",
+                //            options.AggiornaSottodirectory
+                //                ? SearchOption.AllDirectories
+                //                : SearchOption.TopDirectoryOnly)
+                //     select new FileData(new FileInfo(f),
+                //         new DirectoryInfo(options.DestinationPath.PathCombine(
+                //             new FileInfo(f).DirectoryName.Replace(options.SourcePath.TrimEnd(new char[] {'\\'}), "")
+                //             )
+                //         )
+                //         )
+                //        )
+                //    .ToList();
+            }
+
+            var threads = options.MaxThreads == 0 ? Environment.ProcessorCount * 2 : options.MaxThreads;
+            var scheduler = new ConcurrentExclusiveSchedulerPair(TaskScheduler.Default, threads)
+                .ConcurrentScheduler;
+
+            //var allTasks = new List<Task>();
+            var test = from d in dataToProcess
+                       select Task.Factory.StartNew(async () =>
+                       {
+                           await new ImageCreatorSharp(d.File, d.Directory).CreaImmagineThread(d.File.Name);
+
+                           //var imgC = new ImageCreatorSharp(d.File, d.Directory);
+                           //imgC.CreaImmagineThread(d.File.Name);
+                           //imgC = null;
+                       }, CancellationToken.None, TaskCreationOptions.None, scheduler);
+            if (options.LinearExecution)
+            {
+                foreach (var task in test)
+                {
+                    await task;
+                }
+            }
+            else
+            {
+                if (options.ChunksSize == 0)
+                {
+
+
+                    var opts = new ParallelOptions() { MaxDegreeOfParallelism = threads };
+                    await dataToProcess.ParallelForEachAsync(async fileData =>
+                   {
+                       await new ImageCreatorSharp(fileData.File, fileData.Directory).CreaImmagineThread(fileData.File.Name);
+                   }, maxDegreeOfParallelism: threads);
+
+
+                    //var throttler = new SemaphoreSlim(initialCount: threads);
+                    //foreach (var fileData in dataToProcess)
+                    //{
+                    //    await throttler.WaitAsync();
+                    //    allTasks.Add(Task.Factory.StartNew(() => {
+                    //        try
+                    //        {
+                    //            new ImageCreatorSharp(fileData.File, fileData.Directory).CreaImmagineThread(
+                    //                fileData.File.Name);
+                    //        }
+                    //        finally
+                    //        {
+                    //            throttler.Release();
+                    //        }
+                    //    },  CancellationToken.None, TaskCreationOptions.None, scheduler));
+                    //}
+
+                    //await Task.WhenAll(test);
+                }
+                else
+                {
+
+                    var asdf = SplitList(dataToProcess.ToList(), dataToProcess.Count() / options.ChunksSize).ToList();
+                    //var sadf = asdf[0];
+
+                    //var sadf1 = asdf[1];
+
+                    foreach (var sdaf in asdf)
+                    {
+                        await sdaf.ParallelForEachAsync(async fileData =>
+                        {
+                            await new ImageCreatorSharp(fileData.File, fileData.Directory).CreaImmagineThread(fileData.File.Name);
+                        }, maxDegreeOfParallelism: threads);
+                    }
+
+
+
+                    //foreach (var chunk in asdf)
+                    //{
+                    //    await Task.WhenAll(chunk);
+                    //    GC.Collect();
+                    //    //GC.WaitForPendingFinalizers();
+                    //    //GC.Collect();
+                    //}
+
+                }
+            }
+
+            //foreach (var task in test)
+            //{
+            //    await task;
+            //}
+
+
+        }
+        public static IEnumerable<List<T>> SplitList<T>(List<T> bigList, int nSize = 3)
+        {
+            for (int i = 0; i < bigList.Count; i += nSize)
+            {
+                yield return bigList.GetRange(i, Math.Min(nSize, bigList.Count - i));
+            }
+        }
+    }
+}
diff --git a/MaddoShared/ImageCreatorSharp.cs b/MaddoShared/ImageCreatorSharp.cs
new file mode 100644
index 0000000..13f0d8e
--- /dev/null
+++ b/MaddoShared/ImageCreatorSharp.cs
@@ -0,0 +1,1021 @@
+using System;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.Globalization;
+using System.IO;
+using System.Linq;
+using System.Reflection;
+using System.Runtime.CompilerServices;
+using System.Security;
+using System.Text;
+using System.Threading.Tasks;
+using Microsoft.VisualBasic;
+using System.Drawing;
+using System.Drawing.Drawing2D;
+using System.Drawing.Imaging;
+using System.Windows.Forms;
+using CatalogVbLib;
+using SixLabors.ImageSharp.Metadata.Profiles.Exif;
+
+// Imports System.Threading
+
+public class ImageCreatorSharp
+{
+    private bool FotoRuotaADestra = false;
+    private bool FotoRuotaASinistra = false;
+
+    private string TempMinText = "";
+    // Private crFont1 As Font
+    private string _NomeFileChild;
+
+    private DirectoryInfo _SourceDir;
+    private DirectoryInfo _DestDirStart;
+    private DirectoryInfo _DestDir;
+
+    private FileInfo _workFile;
+
+    private string testoFirma;
+    private string testoFirmaV;
+    private int alphaScelta;
+    private int DimensioneStandard;
+    private int DimensioneStandardMiniatura;
+    private DateTime dataFoto;
+    private DateTime dataPartenzaI;
+    private string testoOrario;
+    private string testoFirmaPiccola;
+    private Size thumbSizeSmall;
+    private Size thumbSizeBig;
+    private string nomeFileSmall;
+    private string nomeFileBig;
+    private string nomeFileBig2;
+
+    private float yPosFromBottom;
+    private float yPosFromBottom1;
+    private float yPosFromBottom2;
+    private float yPosFromBottom3;
+    private float yPosFromBottom4;
+
+    private ExifReader.Orientations _orientation;
+    private DateTime? _creationDate;
+
+    public ImageCreatorSharp()
+    {
+    }
+
+    public ImageCreatorSharp(string nomeFileChild, DirectoryInfo sourceDir, DirectoryInfo destDir, DirectoryInfo destDirStart)
+    {
+        this.NomeFileChild = nomeFileChild;
+        this.SourceDir = sourceDir;
+        this.DestDir = destDir;
+        this.DestDirStart = destDirStart;
+        this.WorkFile = new FileInfo(nomeFileChild);
+    }
+
+    public ImageCreatorSharp(string nomeFileChild, DirectoryInfo sourceDir, DirectoryInfo destDir)
+    {
+        this.NomeFileChild = nomeFileChild;
+        this.DestDir = destDir;
+    }
+
+    public ImageCreatorSharp(FileInfo file, DirectoryInfo destination)
+    {
+        this.WorkFile = file;
+        this.DestDir = destination;
+    }
+
+    public async Task CreaImmagineThread(string Info)
+    {
+        try
+        {
+            await Task.Run(() =>
+            {
+                Console.WriteLine($"File: {WorkFile} Dest: {DestDir}");
+                preparaVariabili();
+                ExtractExif();
+                // Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(Path.Combine(SourceDir.FullName, NomeFileChild))
+                using (Image g = Image.FromFile(WorkFile.FullName))
+                {
+
+                    // Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(WorkFile.FullName)
+
+                    // Imposta testo extra
+                    impostaTestoExtra(g);
+
+                    // Ruota l'immagine in base ai dati EXIF
+                    Rotation(g);
+
+                    // Forza jpeg se è selezionata l'opzione
+                    System.Drawing.Imaging.ImageFormat thisFormat = g.RawFormat;
+                    if (PicSettings.UsaForzaJpg == true)
+                        thisFormat = System.Drawing.Imaging.ImageFormat.Jpeg;
+
+                    prepareThumbnailSize(g);
+
+                    using (Bitmap imgOutputBig = new Bitmap(g, thumbSizeBig.Width, thumbSizeBig.Height))
+                    {
+                        //Bitmap imgOutputBig = new Bitmap(g, thumbSizeBig.Width, thumbSizeBig.Height);
+                        imgOutputBig.SetResolution(g.HorizontalResolution, g.VerticalResolution);
+
+                        // Crea le miniature
+                        creaMiniature(g, imgOutputBig, thisFormat);
+
+                        AggiungiTesto(g, imgOutputBig);
+
+                        aggiungiLogo(imgOutputBig);
+
+                        SalvaFoto(imgOutputBig, thumbSizeBig, nomeFileBig, nomeFileSmall, thumbSizeSmall, thisFormat);
+                    }
+
+
+                }
+            });
+
+            // g.Dispose()
+
+            //GC.Collect();
+        }
+
+        // PicSettings.mainForm.stepProgressBar()
+
+        catch (Exception ex)
+        {
+            var e = ex.Demystify();
+            Console.WriteLine(e);
+            Console.WriteLine(e.Message);
+            Console.WriteLine(e.StackTrace);
+        }
+    }
+
+    private void ExtractExif()
+    {
+        using (var img = SixLabors.ImageSharp.Image.Load(_workFile.FullName))
+        {
+            ExifReader.Orientations finalOrientation;
+            var rotation = img.Metadata?.ExifProfile?.GetValue(ExifTag.Orientation);
+            if (rotation == null)
+            {
+                finalOrientation = ExifReader.Orientations.TopLeft;
+            }
+            else
+            {
+                finalOrientation = (ExifReader.Orientations)rotation.Value;
+            }
+
+            _orientation = finalOrientation;
+
+            var creation = img.Metadata?.ExifProfile?.GetValue(ExifTag.DateTime);
+            if (creation != null)
+            {
+                var succ = DateTime.TryParse(creation.Value, out var crDate);
+                if (succ)
+                {
+                    _creationDate = crDate;
+                }
+                else
+                {
+                    _creationDate = null;
+                }
+            }
+            else
+            {
+                _creationDate = null;
+            }
+
+
+        }
+    }
+
+    private void Rotation(System.Drawing.Image g)
+    {
+        FotoRuotaADestra = false;
+        FotoRuotaASinistra = false;
+
+        if (PicSettings.UsaRotazioneAutomatica == true)
+        {
+            if (g.PropertyIdList.Length > 0)
+            {
+
+
+                //ExifReader DatiExif = new ExifReader((Bitmap)g);
+
+                switch (_orientation /*DatiExif.Orientation*/)
+                {
+                    case ExifReader.Orientations.BottomLeft:
+                    case ExifReader.Orientations.BottomRight:
+                    case ExifReader.Orientations.LeftTop:
+                    case ExifReader.Orientations.LftBottom:
+                        FotoRuotaASinistra = true;
+                        break;
+                    case ExifReader.Orientations.RightBottom:
+                    case ExifReader.Orientations.RightTop:
+                    case ExifReader.Orientations.TopLeft:
+                    case ExifReader.Orientations.TopRight:
+                        break;
+
+                }
+            }
+        }
+
+        if (FotoRuotaASinistra == true)
+            g.RotateFlip(RotateFlipType.Rotate270FlipNone);
+        if (FotoRuotaADestra == true)
+            g.RotateFlip(RotateFlipType.Rotate90FlipNone);
+    }
+    /// <summary>
+    ///     ''' Aggiunge Orario, tempo gara e altri
+    ///     ''' </summary>
+    ///     ''' <param name="g">Image</param>
+    ///     ''' <remarks></remarks>
+    private void impostaTestoExtra(Image g)
+    {
+        if (PicSettings.UsaOrarioTestoApplicare | PicSettings.UsaTempoGaraTestoApplicare | PicSettings.UsaOrarioMiniatura | PicSettings.TestoMin | PicSettings.AggTempoGaraMin | PicSettings.AggNumTempMin)
+        {
+            if (g.PropertyIdList.Length > 0)
+            {
+                //ExifReader DatiExif = new ExifReader((Bitmap)g);
+                dataFoto = _creationDate ?? DateTime.Now; //DatiExif.DateTimeOriginal;
+                testoFirma = PicSettings.TestoFirmaStart;
+                testoFirmaV = PicSettings.TestoFirmaStartV;
+
+                if (dataFoto.Year != 1)
+                {
+                    testoFirmaPiccola = dataFoto.ToShortTimeString();
+                    if (PicSettings.UsaOrarioTestoApplicare == true)
+                    {
+                        testoFirma += " " + dataFoto.ToShortDateString() + " " + dataFoto.ToLongTimeString();
+                        testoFirmaV += " " + dataFoto.ToShortDateString() + " " + dataFoto.ToLongTimeString();
+                    }
+                    if (PicSettings.UsaTempoGaraTestoApplicare == true)
+                    {
+
+                        var diff = dataPartenzaI - dataFoto;
+                        var diffA = diff.TotalSeconds * 10000000;
+
+                        TimeSpan Orario = new TimeSpan(0, 0, 0, (int)diffA);
+                        testoFirma += " " + testoOrario + Orario.Hours.ToString("00") + ":" + Orario.Minutes.ToString("00") + ":" + Orario.Seconds.ToString("00");
+                        testoFirmaV += " " + testoOrario + Orario.Hours.ToString("00") + ":" + Orario.Minutes.ToString("00") + ":" + Orario.Seconds.ToString("00");
+                    }
+                }
+            }
+        }
+        else
+        {
+            testoFirma = PicSettings.TestoFirmaStart;
+            testoFirmaV = PicSettings.TestoFirmaStartV;
+        }
+    }
+
+    /// <summary>
+    ///     ''' Prepara diverse variabili azzerandole, elaborandole e prendendole dalle impostazioni
+    ///     ''' </summary>
+    ///     ''' <remarks></remarks>
+    private void preparaVariabili()
+    {
+        alphaScelta = System.Convert.ToInt32((255 * (100 - PicSettings.Trasparenza) / (double)100));
+        testoFirma = "";
+        testoFirmaV = "";
+        dataPartenzaI = PicSettings.DataPartenza;
+        testoOrario = PicSettings.TestoOrario;
+        if (testoOrario.Length > 0)
+            testoOrario += " ";
+        testoFirmaPiccola = "";
+        thumbSizeSmall = new Size();
+        thumbSizeBig = new Size();
+        nomeFileSmall = "";
+        nomeFileBig2 = "";
+        nomeFileBig = "";
+        DimensioneStandard = PicSettings.DimStandard;
+        DimensioneStandardMiniatura = PicSettings.DimStandardMiniatura;
+        // nomeFileSmall = Suffisso & NomeFileChild
+        // nomeFileBig = NomeFileChild
+        nomeFileSmall = PicSettings.Suffisso + WorkFile.Name;
+        nomeFileBig = WorkFile.Name;
+    }
+
+    private void prepareThumbnailSize(Image g)
+    {
+        if (g.Width > g.Height)
+        {
+            thumbSizeSmall = NewthumbSize(g.Width, g.Height, PicSettings.LarghezzaSmall, "Larghezza");
+            Size SizeOrig = new Size(g.Width, g.Height);
+            thumbSizeBig = SizeOrig;
+        }
+        else
+        {
+            thumbSizeSmall = NewthumbSize(g.Width, g.Height, PicSettings.AltezzaSmall, "Altezza");
+            Size SizeOrig = new Size(g.Width, g.Height);
+            thumbSizeBig = SizeOrig;
+        }
+    }
+
+    private void creaMiniature(Image g, Bitmap imgOutputBig, ImageFormat thisFormat)
+    {
+        if (PicSettings.TestoMin)
+            testoFirmaPiccola = nomeFileBig;
+        else if (PicSettings.AggNumTempMin)
+            testoFirmaPiccola = nomeFileBig + " ";
+        // Dim yPosFromBottom4 As Single
+
+        Font crFont1 = null/* TODO Change to default(_) if this is not a reference type */;
+        Font crFont2 = null/* TODO Change to default(_) if this is not a reference type */;
+        SizeF crSize1 = new SizeF();
+        SizeF crSize2 = new SizeF();
+
+        if (PicSettings.CreaMiniature == true)
+        {
+            if (PicSettings.AggiungiScritteMiniature == false)
+            {
+                if (string.Equals(PicSettings.DirectorySorgente, PicSettings.DirectoryDestinazione, StringComparison.OrdinalIgnoreCase))
+                    nomeFileSmall = nomeFileSmall.Substring(0, nomeFileSmall.Length - 4) + PicSettings.Codice + nomeFileSmall.Substring(nomeFileSmall.Length - 4);
+                if (PicSettings.UsaOrarioMiniatura | PicSettings.TestoMin | PicSettings.AggTempoGaraMin | PicSettings.AggNumTempMin)
+                {
+                    if (testoFirmaPiccola.Length > 0)
+                    {
+                        using (var imgOutputSmall = (Bitmap)imgOutputBig.Clone())
+                        {
+                            Graphics grPhoto1;
+                            grPhoto1 = Graphics.FromImage(imgOutputSmall);
+                            grPhoto1.SmoothingMode = SmoothingMode.AntiAlias;
+
+                            int LarghezzaStandard1;
+                            // quick fix
+                            DimensioneStandardMiniatura = 50;
+                            if (PicSettings.Grassetto == true)
+                            {
+                                crFont1 = new Font(PicSettings.IlFont, DimensioneStandardMiniatura, FontStyle.Bold);
+                                crFont2 = new Font(PicSettings.IlFont, DimensioneStandard, FontStyle.Bold);
+                            }
+                            else
+                            {
+                                crFont1 = new Font(PicSettings.IlFont, DimensioneStandardMiniatura);
+                                crFont2 = new Font(PicSettings.IlFont, DimensioneStandard);
+                            }
+
+                            crSize1 = grPhoto1.MeasureString(testoFirmaPiccola, crFont1);
+                            crSize2 = grPhoto1.MeasureString(testoFirma, crFont1);
+                            LarghezzaStandard1 = System.Convert.ToInt32(crSize1.Width);
+
+                            if (crSize1.Width > System.Convert.ToSingle(g.Width))
+                            {
+                                int Conta = DimensioneStandardMiniatura;
+                                do
+                                {
+                                    if (Conta > 20)
+                                        Conta -= 5;
+                                    else
+                                        Conta -= 1;
+                                    if (PicSettings.Grassetto == true)
+                                        crFont1 = new Font(PicSettings.IlFont, Conta, FontStyle.Bold);
+                                    else
+                                        crFont1 = new Font(PicSettings.IlFont, Conta);
+                                    crSize1 = grPhoto1.MeasureString(testoFirmaPiccola, crFont1);
+                                    if (crSize1.Width < System.Convert.ToSingle(g.Width))
+                                    {
+                                        LarghezzaStandard1 = System.Convert.ToInt32(crSize1.Width);
+                                        break;
+                                    }
+
+                                    if (Conta <= 5)
+                                        break;
+                                }
+                                while (true);
+                                DimensioneStandardMiniatura = Conta;
+                            }
+
+                            switch (PicSettings.Posizione.ToUpper())
+                            {
+                                case "ALTO":
+                                    {
+                                        yPosFromBottom1 = (PicSettings.Margine);
+                                        yPosFromBottom4 = (PicSettings.MargVert);
+                                        break;
+                                    }
+
+                                case "BASSO":
+                                    {
+                                        yPosFromBottom1 = System.Convert.ToSingle((g.Height - crSize1.Height - (g.Height * PicSettings.Margine / (double)100)));
+                                        yPosFromBottom4 = System.Convert.ToSingle((g.Height - crSize1.Height - (g.Height * PicSettings.MargVert / (double)100)));
+                                        break;
+                                    }
+                            }
+
+                            float xCenterOfImg1 = 0;
+
+                            StringFormat StrFormat1 = new StringFormat();
+                            switch (PicSettings.Allineamento.ToUpper())
+                            {
+                                case "SINISTRA":
+                                    {
+                                        xCenterOfImg1 = System.Convert.ToSingle((PicSettings.Margine + (LarghezzaStandard1 / (double)2)));
+
+                                        if ((LarghezzaStandard1 / (double)2) > (g.Width / (double)2) - PicSettings.Margine)
+                                            xCenterOfImg1 = System.Convert.ToSingle((g.Width / (double)2));
+                                        break;
+                                    }
+
+                                case "CENTRO":
+                                    {
+                                        xCenterOfImg1 = System.Convert.ToSingle((g.Width / (double)2));
+                                        break;
+                                    }
+
+                                case "DESTRA":
+                                    {
+                                        xCenterOfImg1 = System.Convert.ToSingle((g.Width - PicSettings.Margine - (LarghezzaStandard1 / (double)2)));
+
+                                        if ((LarghezzaStandard1 / (double)2) > (g.Width / (double)2) - PicSettings.Margine)
+                                            xCenterOfImg1 = System.Convert.ToSingle((g.Width / (double)2));
+                                        break;
+                                    }
+                            }
+                            StrFormat1.Alignment = StringAlignment.Center;
+
+                            SolidBrush semiTransBrush21 = new SolidBrush(Color.FromArgb(alphaScelta, 0, 0, 0));
+                            SolidBrush semiTransBrush1 = new SolidBrush(Color.FromArgb(alphaScelta, PicSettings.fontColoreRGB));
+
+                            // quick fix
+                            DimensioneStandardMiniatura = PicSettings.DimMin;
+
+                            if (PicSettings.Grassetto == true)
+                                crFont1 = new Font(PicSettings.IlFont, DimensioneStandardMiniatura, FontStyle.Bold);
+                            else
+                                crFont1 = new Font(PicSettings.IlFont, DimensioneStandardMiniatura);
+                            // asdgadfhdfhjgfsjgfjygfdhsdafa
+                            if (PicSettings.TestoMin)
+                            {
+                                grPhoto1.DrawString(nomeFileBig, crFont1, semiTransBrush21, new PointF(xCenterOfImg1 + 1, yPosFromBottom1 + 1), StrFormat1);
+                                grPhoto1.DrawString(nomeFileBig, crFont1, semiTransBrush1, new PointF(xCenterOfImg1, yPosFromBottom1), StrFormat1);
+                            }
+                            else if (PicSettings.AggTempoGaraMin & PicSettings.UsaTempoGaraTestoApplicare)
+                            {
+                                var diff = dataPartenzaI - dataFoto;
+                                var diffA = diff.TotalSeconds * 10000000;
+
+                                TimeSpan Orario = new TimeSpan(0, 0, (int)diffA);/* new TimeSpan(DateTime.DateDiff(DateInterval.Second, dataPartenzaI, dataFoto) * 10000000);*/
+                                string tempstr = "";
+
+
+                                tempstr += Environment.NewLine + testoOrario + Orario.Hours.ToString("00") + ":" + Orario.Minutes.ToString("00") + ":" + Orario.Seconds.ToString("00");
+
+
+                                grPhoto1.DrawString(tempstr, crFont1, semiTransBrush21, new PointF(xCenterOfImg1 + 1, yPosFromBottom1 + 1), StrFormat1);
+                                grPhoto1.DrawString(tempstr, crFont1, semiTransBrush1, new PointF(xCenterOfImg1, yPosFromBottom1), StrFormat1);
+                            }
+                            else if (PicSettings.AggNumTempMin)
+                            {
+                                var diff = dataPartenzaI - dataFoto;
+                                var diffA = diff.TotalSeconds * 10000000;
+                                TimeSpan Orario = new TimeSpan(0, 0, (int)diffA);
+                                string tempstr = "";
+                                tempstr += nomeFileBig;
+
+                                tempstr += Environment.NewLine + testoOrario + Orario.Hours.ToString("00") + ":" + Orario.Minutes.ToString("00") + ":" + Orario.Seconds.ToString("00");
+
+
+                                grPhoto1.DrawString(tempstr, crFont1, semiTransBrush21, new PointF(xCenterOfImg1 + 1, yPosFromBottom1 + 1), StrFormat1);
+                                grPhoto1.DrawString(tempstr, crFont1, semiTransBrush1, new PointF(xCenterOfImg1, yPosFromBottom1), StrFormat1);
+                            }
+                            else
+                            {
+                                grPhoto1.DrawString(testoFirmaPiccola, crFont1, semiTransBrush21, new PointF(xCenterOfImg1 + 1, yPosFromBottom1 + 1), StrFormat1);
+                                grPhoto1.DrawString(testoFirmaPiccola, crFont1, semiTransBrush1, new PointF(xCenterOfImg1, yPosFromBottom1), StrFormat1);
+                            }
+
+                            // Salva la miniatura
+                            //using (var g22 = Image.FromHbitmap(imgOutputSmall))
+
+
+                            using (var imgOutputSmall2 = new Bitmap(imgOutputSmall, thumbSizeSmall.Width, thumbSizeSmall.Height))
+                            {
+                                imgOutputSmall2.Save(Path.Combine(DestDir.FullName, nomeFileSmall), thisFormat);
+
+                                //imgOutputSmall2.Dispose();
+                            }
+
+                            //imgOutputSmall.Dispose();
+                        }
+
+
+                        //File.Delete(Path.Combine(DestDir.FullName, "Temp_" + nomeFileSmall));
+                        //FileSystem.Kill();
+                    }
+                    else
+                    {
+                        using (Bitmap imgOutputSmall = new Bitmap(g, thumbSizeSmall.Width, thumbSizeSmall.Height))
+                        {
+                            imgOutputSmall.Save(Path.Combine(DestDir.FullName, nomeFileSmall), thisFormat);
+                            //imgOutputSmall.Dispose();
+                        }
+                    }
+                }
+                else
+                {
+                    using (Bitmap imgOutputSmall = new Bitmap(g, thumbSizeSmall.Width, thumbSizeSmall.Height))
+                    {
+                        imgOutputSmall.Save(Path.Combine(DestDir.FullName, nomeFileSmall), thisFormat);
+                        //imgOutputSmall.Dispose();
+                    }
+                }
+            }
+        }
+
+        crFont1?.Dispose();
+        crFont2?.Dispose();
+    }
+
+    private void AggiungiTesto(Image g, Bitmap imgOutputBig)
+    {
+        using (var grPhoto = Graphics.FromImage(imgOutputBig))
+        {
+            grPhoto.SmoothingMode = SmoothingMode.AntiAlias;
+
+            Font crFont = null/* TODO Change to default(_) if this is not a reference type */;
+            SizeF crSize = new SizeF();
+            int LarghezzaStandard;
+
+            if (PicSettings.Grassetto == true)
+                crFont = new Font(PicSettings.IlFont, DimensioneStandard, FontStyle.Bold);
+            else
+                crFont = new Font(PicSettings.IlFont, DimensioneStandard);
+            crSize = grPhoto.MeasureString(testoFirma, crFont);
+            LarghezzaStandard = System.Convert.ToInt32(crSize.Width);
+
+            if (crSize.Width > System.Convert.ToSingle(g.Width))
+            {
+                int Conta = DimensioneStandard;
+                do
+                {
+                    if (Conta > 20)
+                        Conta -= 5;
+                    else
+                        Conta -= 1;
+                    if (PicSettings.Grassetto == true)
+                        crFont = new Font(PicSettings.IlFont, Conta, FontStyle.Bold);
+                    else
+                        crFont = new Font(PicSettings.IlFont, Conta);
+                    crSize = grPhoto.MeasureString(testoFirma, crFont);
+                    if (crSize.Width < System.Convert.ToSingle(g.Width))
+                    {
+                        LarghezzaStandard = System.Convert.ToInt32(crSize.Width);
+                        break;
+                    }
+
+                    if (Conta <= 5)
+                        break;
+                }
+                while (true);
+                DimensioneStandard = Conta;
+            }
+
+
+            switch (PicSettings.Posizione.ToUpper())
+            {
+                case "ALTO":
+                    {
+                        yPosFromBottom = (PicSettings.Margine);
+                        yPosFromBottom3 = (PicSettings.MargVert);
+                        break;
+                    }
+
+                case "BASSO":
+                    {
+                        yPosFromBottom = System.Convert.ToSingle((g.Height - crSize.Height - (g.Height * PicSettings.Margine / (double)100)));
+                        yPosFromBottom3 = System.Convert.ToSingle((g.Height - crSize.Height - (g.Height * PicSettings.MargVert / (double)100)));
+                        break;
+                    }
+            }
+
+            float xCenterOfImg = 0;
+            float xCenterOfImg3 = 0;
+            StringFormat StrFormat = new StringFormat();
+            switch (PicSettings.Allineamento.ToUpper())
+            {
+                case "SINISTRA":
+                    {
+                        xCenterOfImg = System.Convert.ToSingle((PicSettings.Margine + (LarghezzaStandard / (double)2)));
+                        xCenterOfImg3 = System.Convert.ToSingle((PicSettings.MargVert + (LarghezzaStandard / (double)2)));
+                        if ((LarghezzaStandard / (double)2) > (g.Width / (double)2) - PicSettings.Margine)
+                            xCenterOfImg = System.Convert.ToSingle((g.Width / (double)2));
+                        if ((LarghezzaStandard / (double)2) > (g.Width / (double)2) - PicSettings.MargVert)
+                            xCenterOfImg3 = System.Convert.ToSingle((g.Width / (double)2));
+                        break;
+                    }
+
+                case "CENTRO":
+                    {
+                        xCenterOfImg = System.Convert.ToSingle((g.Width / (double)2));
+                        break;
+                    }
+
+                case "DESTRA":
+                    {
+                        xCenterOfImg = System.Convert.ToSingle((g.Width - PicSettings.Margine - (LarghezzaStandard / (double)2)));
+                        xCenterOfImg3 = System.Convert.ToSingle((g.Width - PicSettings.MargVert - (LarghezzaStandard / (double)2)));
+                        if ((LarghezzaStandard / (double)2) > (g.Width / (double)2) - PicSettings.Margine)
+                            xCenterOfImg = System.Convert.ToSingle((g.Width / (double)2));
+                        if ((LarghezzaStandard / (double)2) > (g.Width / (double)2) - PicSettings.MargVert)
+                            xCenterOfImg3 = System.Convert.ToSingle((g.Width / (double)2));
+                        break;
+                    }
+            }
+            StrFormat.Alignment = StringAlignment.Center;
+
+            SolidBrush semiTransBrush2 = new SolidBrush(Color.FromArgb(alphaScelta, 0, 0, 0));
+            // Dim semiTransBrush As SolidBrush = New SolidBrush(Color.FromArgb(AlphaScelta, _FontColoreR, _FontColoreG, _FontColoreB))
+            SolidBrush semiTransBrush = new SolidBrush(Color.FromArgb(alphaScelta, PicSettings.fontColoreRGB));
+
+            if (FotoRuotaADestra | FotoRuotaASinistra)
+            {
+                if (PicSettings.Grassetto == true)
+                    crFont = new Font(PicSettings.IlFont, PicSettings.DimVert, FontStyle.Bold);
+                else
+                    crFont = new Font(PicSettings.IlFont, PicSettings.DimVert);
+            }
+            else if (PicSettings.Grassetto == true)
+                crFont = new Font(PicSettings.IlFont, DimensioneStandard, FontStyle.Bold);
+            else
+                crFont = new Font(PicSettings.IlFont, DimensioneStandard);
+
+
+            // qui scrive il testo (nomefilebig)
+            if (PicSettings.TestoNome)
+            {
+                if (PicSettings.NomeData & g.PropertyIdList.Length > 0)
+                {
+                    //ExifReader DatiExif = new ExifReader((Bitmap)g);
+                    dataFoto = _creationDate ?? DateTime.Now; //DatiExif.DateTimeOriginal;
+
+                    grPhoto.DrawString((nomeFileBig + " " + dataFoto.ToShortDateString()), crFont, semiTransBrush2, new PointF(xCenterOfImg + 1, yPosFromBottom + 1), StrFormat);
+                    grPhoto.DrawString((nomeFileBig + " " + dataFoto.ToShortDateString()), crFont, semiTransBrush, new PointF(xCenterOfImg, yPosFromBottom), StrFormat);
+                }
+                else
+                {
+                    grPhoto.DrawString(nomeFileBig, crFont, semiTransBrush2, new PointF(xCenterOfImg + 1, yPosFromBottom + 1), StrFormat);
+                    grPhoto.DrawString(nomeFileBig, crFont, semiTransBrush, new PointF(xCenterOfImg, yPosFromBottom), StrFormat);
+                }
+            }
+
+            if (PicSettings.TestoNome == false)
+            {
+                if (FotoRuotaADestra | FotoRuotaASinistra)
+                {
+                    if (PicSettings.TestoMin == false)
+                    {
+                        grPhoto.DrawString(testoFirmaV, crFont, semiTransBrush2, new PointF(xCenterOfImg + 1, yPosFromBottom3 + 1), StrFormat);
+                        grPhoto.DrawString(testoFirmaV, crFont, semiTransBrush, new PointF(xCenterOfImg, yPosFromBottom3), StrFormat);
+                    }
+                    if (PicSettings.TestoMin == true)
+                    {
+                        grPhoto.DrawString(testoFirmaV, crFont, semiTransBrush2, new PointF(xCenterOfImg + 1, yPosFromBottom4 + 1), StrFormat);
+                        grPhoto.DrawString(testoFirmaV, crFont, semiTransBrush, new PointF(xCenterOfImg, yPosFromBottom4), StrFormat);
+                    }
+                }
+                else
+                {
+                    grPhoto.DrawString(testoFirma, crFont, semiTransBrush2, new PointF(xCenterOfImg + 1, yPosFromBottom + 1), StrFormat);
+                    grPhoto.DrawString(testoFirma, crFont, semiTransBrush, new PointF(xCenterOfImg, yPosFromBottom), StrFormat);
+                }
+            }
+
+            if (string.Equals(PicSettings.DirectorySorgente, PicSettings.DirectoryDestinazione, StringComparison.OrdinalIgnoreCase))
+            {
+                nomeFileBig2 = nomeFileBig;
+                nomeFileBig = nomeFileBig.Substring(0, nomeFileBig.Length - 4) + PicSettings.Codice + nomeFileBig.Substring(nomeFileBig.Length - 4);
+            }
+            //grPhoto.Dispose();
+
+            crFont?.Dispose();
+        }
+
+
+    }
+
+
+
+
+    private void aggiungiLogo(Bitmap imgOutputBig)
+    {
+        // imgOutputBig
+        if (PicSettings.LogoAggiungi == true & File.Exists(PicSettings.LogoNomeFile))
+        {
+            Image ImmagineLogo = Image.FromFile(PicSettings.LogoNomeFile);
+
+            Color LogoColoreTrasparente = Color.White;
+            // Dim bmWatermark As Bitmap
+
+            // * Create a Bitmap based on the previously modified photograph Bitmap
+            // bmWatermark = New Bitmap(imgOutputBig)
+            // bmWatermark.SetResolution(imgOutputBig.HorizontalResolution, imgOutputBig.VerticalResolution)
+
+            // * Load this Bitmap into a new Graphic Object
+            using (Graphics grWatermark = Graphics.FromImage(imgOutputBig))
+            {
+                ImageAttributes imageAttributes = new ImageAttributes();
+
+                // * The first step replace the background color with one that is transparent (Alpha=0, R=0, G=0, B=0)
+                ColorMap colorMap = new ColorMap();
+
+                // * background this will be the color we search for and replace with transparency
+                colorMap.OldColor = LogoColoreTrasparente;
+                colorMap.NewColor = Color.FromArgb(0, 0, 0, 0);
+
+                ColorMap[] remapTable = new[] { colorMap };
+                imageAttributes.SetRemapTable(remapTable, ColorAdjustType.Bitmap);
+
+                // * The second color manipulation is used to change the opacity by setting the 3rd row and 3rd column to 0.3f
+                float[][] colorMatrixElements = new[] { new float[] { 1.0F, 0.0F, 0.0F, 0.0F, 0.0F }, new float[] { 0.0F, 1.0F, 0.0F, 0.0F, 0.0F }, new float[] { 0.0F, 0.0F, 1.0F, 0.0F, 0.0F }, new float[] { 0.0F, 0.0F, 0.0F, System.Convert.ToSingle(PicSettings.LogoTrasparenza) / 100F, 0.0F }, new float[] { 0.0F, 0.0F, 0.0F, 0.0F, 1.0F } };
+                ColorMatrix wmColorMatrix = new ColorMatrix(colorMatrixElements);
+                imageAttributes.SetColorMatrix(wmColorMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap);
+
+                int FotoLogoH = PicSettings.LogoAltezza;
+                int FotoLogoW = PicSettings.LogoLarghezza;
+                double FattoreAlt = ImmagineLogo.Height / (double)FotoLogoH;
+                double FattoreLarg = ImmagineLogo.Width / (double)FotoLogoW;
+                Size NuovaSize;
+                if (FattoreLarg > FattoreAlt)
+                    NuovaSize = NewthumbSize(ImmagineLogo.Width, ImmagineLogo.Height, FotoLogoW, "Larghezza");
+                else
+                    NuovaSize = NewthumbSize(ImmagineLogo.Width, ImmagineLogo.Height, FotoLogoH, "Altezza");
+
+                int MargineUsato;
+                int MargineL;
+                bool InPercentualeL;
+                if (PicSettings.LogoMargine.EndsWith("%") == true)
+                    InPercentualeL = true;
+                else
+                    InPercentualeL = false;
+                MargineL = System.Convert.ToInt32(PicSettings.LogoMargine);
+                if (InPercentualeL == true)
+                    MargineUsato = System.Convert.ToInt32(imgOutputBig.Height * MargineL / (double)100);
+                else
+                    MargineUsato = MargineL;
+
+                int xPosOfWm = 0;
+                int yPosOfWm = 0;
+                switch (PicSettings.LogoPosizioneH.ToUpper())
+                {
+                    case "SINISTRA":
+                    case "NESSUNA":
+                        {
+                            xPosOfWm = MargineUsato;
+                            break;
+                        }
+
+                    case "CENTRO":
+                        {
+                            xPosOfWm = System.Convert.ToInt32((imgOutputBig.Width - NuovaSize.Width) / (double)2);
+                            break;
+                        }
+
+                    case "DESTRA":
+                        {
+                            xPosOfWm = ((imgOutputBig.Width - NuovaSize.Width) - MargineUsato);
+                            break;
+                        }
+                }
+                switch (PicSettings.LogoPosizioneV.ToUpper())
+                {
+                    case "ALTO":
+                    case "NESSUNA":
+                        {
+                            yPosOfWm = MargineUsato;
+                            break;
+                        }
+
+                    case "CENTRO":
+                        {
+                            yPosOfWm = System.Convert.ToInt32((imgOutputBig.Height - NuovaSize.Height) / (double)2);
+                            break;
+                        }
+
+                    case "BASSO":
+                        {
+                            yPosOfWm = ((imgOutputBig.Height - NuovaSize.Height) - MargineUsato);
+                            break;
+                        }
+                }
+
+                grWatermark.DrawImage(ImmagineLogo, new Rectangle(xPosOfWm, yPosOfWm, NuovaSize.Width, NuovaSize.Height), 0, 0, ImmagineLogo.Width, ImmagineLogo.Height, GraphicsUnit.Pixel, imageAttributes);
+                //grWatermark.Dispose();
+            }
+        }
+    }
+
+
+    private void SalvaFoto(Bitmap imgOutputBig, Size thumbSizeBig, string NomeFileBig, string NomeFileSmall, Size thumbSizeSmall, ImageFormat thisFormat)
+    {
+        using (var image1Stream = new MemoryStream())
+        {
+
+
+
+            if (PicSettings.FotoGrandeDimOrigina == false)
+            {
+                // attenzione non controlla se è png
+                // imgOutputBig.Save(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileBig), thisFormat)
+                if (thisFormat.Equals(ImageFormat.Jpeg))
+                {
+                    MakeImageCustomQuality(imgOutputBig, image1Stream);
+                }
+                //SalvaImmagineCustomQuality(imgOutputBig, Path.Combine(DestDir.FullName, "Temp_" + NomeFileBig), PicSettings.jpegQuality);
+                else
+                {
+                    imgOutputBig.Save(image1Stream, thisFormat);
+                }
+                //imgOutputBig.Save(Path.Combine(DestDir.FullName, "Temp_" + NomeFileBig), thisFormat);
+                image1Stream.Seek(0, SeekOrigin.Begin);
+                using (var g2 = Image.FromStream(image1Stream))
+                {
+                    thumbSizeBig = g2.Width > g2.Height ? NewthumbSize(g2.Width, g2.Height, PicSettings.LarghezzaBig, "Larghezza") : NewthumbSize(g2.Width, g2.Height, PicSettings.AltezzaBig, "Altezza");
+                    using (Bitmap imgOutputBig2 = new Bitmap(g2, thumbSizeBig.Width, thumbSizeBig.Height))
+                    {
+                        if (thisFormat.Equals(ImageFormat.Jpeg))
+                            SalvaImmagineCustomQuality(imgOutputBig2, Path.Combine(DestDir.FullName, NomeFileBig), PicSettings.jpegQuality);
+                        else
+                            imgOutputBig2.Save(Path.Combine(DestDir.FullName, NomeFileBig), thisFormat);
+
+                        //imgOutputBig2.Dispose();
+                    }
+                }
+
+                //imgOutputBig.Dispose();
+                //g2.Dispose();
+            }
+            else
+            {
+                // 
+                if (thisFormat.Equals(ImageFormat.Jpeg))
+                    SalvaImmagineCustomQuality(imgOutputBig, Path.Combine(DestDir.FullName, NomeFileBig), PicSettings.jpegQuality);
+                else
+                    imgOutputBig.Save(Path.Combine(DestDir.FullName, NomeFileBig), thisFormat);
+
+                //imgOutputBig.Dispose();
+            }
+            image1Stream.Seek(0, SeekOrigin.Begin);
+
+            if (PicSettings.CreaMiniature)
+            {
+                if (PicSettings.AggiungiScritteMiniature)
+                {
+                    using (System.Drawing.Image g1 = PicSettings.FotoGrandeDimOrigina ? (Image)imgOutputBig.Clone() : Image.FromStream(image1Stream))
+                    {
+                        //if (PicSettings.FotoGrandeDimOrigina == false)
+                        //    g1 = Image.FromStream(image1Stream);
+                        ////g1 = System.Drawing.Image.FromFile(Path.Combine(DestDir.FullName, "Temp_" + NomeFileBig));
+                        //else
+                        //    g1 = (Image)imgOutputBig.Clone();
+                        //g1 = System.Drawing.Image.FromFile(Path.Combine(DestDir.FullName, NomeFileBig));
+                        using (Bitmap imgOutputSmall = new Bitmap(g1, thumbSizeSmall.Width, thumbSizeSmall.Height))
+                        {
+                            if (string.Equals(PicSettings.DirectorySorgente, PicSettings.DirectoryDestinazione, StringComparison.OrdinalIgnoreCase))
+                                NomeFileSmall = NomeFileSmall.Substring(0, NomeFileSmall.Length - 4) + PicSettings.Codice + NomeFileSmall.Substring(NomeFileSmall.Length - 4);
+                            // 
+                            if (thisFormat.Equals(ImageFormat.Jpeg))
+                                SalvaImmagineCustomQuality(imgOutputSmall, Path.Combine(DestDir.FullName, NomeFileSmall), PicSettings.jpegQualityMin);
+                            else
+                                imgOutputSmall.Save(Path.Combine(_DestDir.FullName, NomeFileSmall), thisFormat);
+
+                            //imgOutputSmall.Dispose();
+                        }
+
+                        //g1.Dispose();
+                    }
+                }
+            }
+
+            //if (File.Exists(Path.Combine(DestDir.FullName, "Temp_" + NomeFileBig)))
+            //    File.Delete(Path.Combine(DestDir.FullName, "Temp_" + NomeFileBig));
+
+        }
+    }
+
+    private void SalvaImmagineCustomQuality(Bitmap imageToSave, string nomeFileFinale, long quality)
+    {
+        ImageCodecInfo JgpEncoder = GetEncoder(ImageFormat.Jpeg);
+        System.Drawing.Imaging.Encoder MyEncoder = System.Drawing.Imaging.Encoder.Quality;
+
+        EncoderParameters MyEncoderParameters = new EncoderParameters(1);
+
+        EncoderParameter MyEncoderParameter = new EncoderParameter(MyEncoder, PicSettings.jpegQuality);
+        MyEncoderParameters.Param[0] = MyEncoderParameter;
+        imageToSave.Save(nomeFileFinale, JgpEncoder, MyEncoderParameters);
+        //imageToSave.Dispose();
+    }
+
+    private void MakeImageCustomQuality(Bitmap imageToSave, Stream destinationStream)
+    {
+        ImageCodecInfo JgpEncoder = GetEncoder(ImageFormat.Jpeg);
+        System.Drawing.Imaging.Encoder MyEncoder = System.Drawing.Imaging.Encoder.Quality;
+
+        EncoderParameters MyEncoderParameters = new EncoderParameters(1);
+
+        EncoderParameter MyEncoderParameter = new EncoderParameter(MyEncoder, PicSettings.jpegQuality);
+        MyEncoderParameters.Param[0] = MyEncoderParameter;
+        destinationStream.Seek(0, SeekOrigin.Begin);
+        imageToSave.Save(destinationStream, JgpEncoder, MyEncoderParameters);
+        //imageToSave.Dispose();
+    }
+
+
+    private ImageCodecInfo GetEncoder(ImageFormat format)
+    {
+        ImageCodecInfo[] codecs = ImageCodecInfo.GetImageDecoders();
+
+
+        foreach (var codec in codecs)
+        {
+            if (codec.FormatID == format.Guid)
+                return codec;
+        }
+        return null/* TODO Change to default(_) if this is not a reference type */;
+    }
+
+
+
+
+
+
+    /// <summary>
+    ///     ''' Calculate the Size of the New image
+    ///     ''' </summary>
+    ///     ''' <param name="currentwidth">Larghezza</param>
+    ///     ''' <param name="currentheight">Altezza</param>
+    ///     ''' <param name="MaxPixel"></param>
+    ///     ''' <param name="TipoSize"></param>
+    ///     ''' <returns></returns>
+    ///     ''' <remarks></remarks>
+    private Size NewthumbSize(int currentwidth, int currentheight, int MaxPixel, string TipoSize)
+    {
+        // e  
+        // *** Larghezza, Altezza, Auto
+
+        double tempMultiplier;
+
+        if (TipoSize.ToUpper() == "Larghezza".ToUpper())
+            tempMultiplier = MaxPixel / (double)currentwidth;
+        else if (TipoSize.ToUpper() == "Altezza".ToUpper())
+            tempMultiplier = MaxPixel / (double)currentheight;
+        else if (currentheight > currentwidth)
+            tempMultiplier = MaxPixel / (double)currentheight;
+        else
+            tempMultiplier = MaxPixel / (double)currentwidth;
+
+        Size NewSize = new Size(System.Convert.ToInt32(currentwidth * tempMultiplier), System.Convert.ToInt32(currentheight * tempMultiplier));
+
+        return NewSize;
+    }
+
+    public FileInfo WorkFile
+    {
+        get
+        {
+            return _workFile;
+        }
+        set
+        {
+            _workFile = value;
+        }
+    }
+
+    public DirectoryInfo DestDir
+    {
+        get => _DestDir;
+        set => _DestDir = value;
+    }
+
+    public DirectoryInfo SourceDir
+    {
+        get
+        {
+            return _SourceDir;
+        }
+        set
+        {
+            _SourceDir = value;
+        }
+    }
+
+    public DirectoryInfo DestDirStart
+    {
+        get
+        {
+            return _DestDirStart;
+        }
+        set
+        {
+            _DestDirStart = value;
+        }
+    }
+
+    public string NomeFileChild
+    {
+        get
+        {
+            return _NomeFileChild;
+        }
+        set
+        {
+            _NomeFileChild = value;
+        }
+    }
+}
diff --git a/MaddoShared/MaddoShared.csproj b/MaddoShared/MaddoShared.csproj
new file mode 100644
index 0000000..03c762e
--- /dev/null
+++ b/MaddoShared/MaddoShared.csproj
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{AEBFE9E3-277C-4A7B-8448-145D1B11998B}</ProjectGuid>
+    <OutputType>Library</OutputType>
+    <AppDesignerFolder>Properties</AppDesignerFolder>
+    <RootNamespace>MaddoShared</RootNamespace>
+    <AssemblyName>MaddoShared</AssemblyName>
+    <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
+    <FileAlignment>512</FileAlignment>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineConstants>TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="AsyncEnumerable, Version=4.0.2.0, Culture=neutral, PublicKeyToken=0426b068161bd1d1, processorArchitecture=MSIL">
+      <HintPath>..\packages\AsyncEnumerator.4.0.2\lib\net461\AsyncEnumerable.dll</HintPath>
+    </Reference>
+    <Reference Include="Ben.Demystifier, Version=0.3.0.0, Culture=neutral, PublicKeyToken=a6d206e05440431a, processorArchitecture=MSIL">
+      <HintPath>..\packages\Ben.Demystifier.0.3.0\lib\net45\Ben.Demystifier.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=5.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.5.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+    </Reference>
+    <Reference Include="SixLabors.ImageSharp, Version=1.0.0.0, Culture=neutral, PublicKeyToken=d998eea7b14cab13, processorArchitecture=MSIL">
+      <HintPath>..\packages\SixLabors.ImageSharp.1.0.3\lib\net472\SixLabors.ImageSharp.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Collections.Immutable, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Collections.Immutable.5.0.0\lib\net461\System.Collections.Immutable.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Core" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Memory, Version=4.0.1.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Numerics" />
+    <Reference Include="System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Reflection.Metadata, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Reflection.Metadata.5.0.0\lib\net461\System.Reflection.Metadata.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.5.0.0\lib\net45\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Net.Http" />
+    <Reference Include="System.Xml" />
+    <Reference Include="Z.ExtensionMethods, Version=2.1.1.0, Culture=neutral, PublicKeyToken=59b66d028979105b, processorArchitecture=MSIL">
+      <HintPath>..\packages\Z.ExtensionMethods.2.1.1\lib\net45\Z.ExtensionMethods.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ImageCreationStuff.cs" />
+    <Compile Include="ImageCreatorSharp.cs" />
+    <Compile Include="ThreadingHelper.cs" />
+    <Compile Include="FileData.cs" />
+    <Compile Include="FileHelperSharp.cs" />
+    <Compile Include="Properties\AssemblyInfo.cs" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\CatalogVbLib\CatalogVbLib.vbproj">
+      <Project>{44465926-240d-473f-90b8-786ba4384406}</Project>
+      <Name>CatalogVbLib</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="app.config" />
+    <None Include="packages.config" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
+</Project>
\ No newline at end of file
diff --git a/MaddoShared/Properties/AssemblyInfo.cs b/MaddoShared/Properties/AssemblyInfo.cs
new file mode 100644
index 0000000..52a601e
--- /dev/null
+++ b/MaddoShared/Properties/AssemblyInfo.cs
@@ -0,0 +1,36 @@
+using System.Reflection;
+using System.Runtime.CompilerServices;
+using System.Runtime.InteropServices;
+
+// General Information about an assembly is controlled through the following
+// set of attributes. Change these attribute values to modify the information
+// associated with an assembly.
+[assembly: AssemblyTitle("MaddoShared")]
+[assembly: AssemblyDescription("")]
+[assembly: AssemblyConfiguration("")]
+[assembly: AssemblyCompany("")]
+[assembly: AssemblyProduct("MaddoShared")]
+[assembly: AssemblyCopyright("Copyright ©  2021")]
+[assembly: AssemblyTrademark("")]
+[assembly: AssemblyCulture("")]
+
+// Setting ComVisible to false makes the types in this assembly not visible
+// to COM components.  If you need to access a type in this assembly from
+// COM, set the ComVisible attribute to true on that type.
+[assembly: ComVisible(false)]
+
+// The following GUID is for the ID of the typelib if this project is exposed to COM
+[assembly: Guid("aebfe9e3-277c-4a7b-8448-145d1b11998b")]
+
+// Version information for an assembly consists of the following four values:
+//
+//      Major Version
+//      Minor Version
+//      Build Number
+//      Revision
+//
+// You can specify all the values or you can default the Build and Revision Numbers
+// by using the '*' as shown below:
+// [assembly: AssemblyVersion("1.0.*")]
+[assembly: AssemblyVersion("1.0.0.0")]
+[assembly: AssemblyFileVersion("1.0.0.0")]
diff --git a/MaddoShared/ThreadingHelper.cs b/MaddoShared/ThreadingHelper.cs
new file mode 100644
index 0000000..f0ce4db
--- /dev/null
+++ b/MaddoShared/ThreadingHelper.cs
@@ -0,0 +1,60 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading;
+using System.Threading.Tasks;
+
+namespace MaddoShared
+{
+    public static class ThreadingHelper
+    {
+        /// <summary>
+        /// Starts the given tasks and waits for them to complete. This will run, at most, the specified number of tasks in parallel.
+        /// <para>NOTE: If one of the given tasks has already been started, an exception will be thrown.</para>
+        /// </summary>
+        /// <param name="tasksToRun">The tasks to run.</param>
+        /// <param name="maxTasksToRunInParallel">The maximum number of tasks to run in parallel.</param>
+        /// <param name="cancellationToken">The cancellation token.</param>
+        public static void StartAndWaitAllThrottled(IEnumerable<Task> tasksToRun, int maxTasksToRunInParallel, CancellationToken cancellationToken = new CancellationToken())
+        {
+            StartAndWaitAllThrottled(tasksToRun, maxTasksToRunInParallel, -1, cancellationToken);
+        }
+
+        /// <summary>
+        /// Starts the given tasks and waits for them to complete. This will run, at most, the specified number of tasks in parallel.
+        /// <para>NOTE: If one of the given tasks has already been started, an exception will be thrown.</para>
+        /// </summary>
+        /// <param name="tasksToRun">The tasks to run.</param>
+        /// <param name="maxTasksToRunInParallel">The maximum number of tasks to run in parallel.</param>
+        /// <param name="timeoutInMilliseconds">The maximum milliseconds we should allow the max tasks to run in parallel before allowing another task to start. Specify -1 to wait indefinitely.</param>
+        /// <param name="cancellationToken">The cancellation token.</param>
+        public static void StartAndWaitAllThrottled(IEnumerable<Task> tasksToRun, int maxTasksToRunInParallel, int timeoutInMilliseconds, CancellationToken cancellationToken = new CancellationToken())
+        {
+            // Convert to a list of tasks so that we don&#39;t enumerate over it multiple times needlessly.
+            var tasks = tasksToRun.ToList();
+
+            using (var throttler = new SemaphoreSlim(maxTasksToRunInParallel))
+            {
+                var postTaskTasks = new List<Task>();
+
+                // Have each task notify the throttler when it completes so that it decrements the number of tasks currently running.
+                tasks.ForEach(t => postTaskTasks.Add(t.ContinueWith(tsk => throttler.Release())));
+
+                // Start running each task.
+                foreach (var task in tasks)
+                {
+                    // Increment the number of tasks currently running and wait if too many are running.
+                    throttler.Wait(timeoutInMilliseconds, cancellationToken);
+
+                    cancellationToken.ThrowIfCancellationRequested();
+                    task.Start();
+                }
+
+                // Wait for all of the provided tasks to complete.
+                // We wait on the list of "post" tasks instead of the original tasks, otherwise there is a potential race condition where the throttler&#39;s using block is exited before some Tasks have had their "post" action completed, which references the throttler, resulting in an exception due to accessing a disposed object.
+                Task.WaitAll(postTaskTasks.ToArray(), cancellationToken);
+            }
+        }
+    }
+}
diff --git a/MaddoShared/app.config b/MaddoShared/app.config
new file mode 100644
index 0000000..8d59e6b
--- /dev/null
+++ b/MaddoShared/app.config
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Bcl.AsyncInterfaces" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</configuration>
\ No newline at end of file
diff --git a/MaddoShared/packages.config b/MaddoShared/packages.config
new file mode 100644
index 0000000..e229a26
--- /dev/null
+++ b/MaddoShared/packages.config
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="AsyncEnumerator" version="4.0.2" targetFramework="net472" />
+  <package id="Ben.Demystifier" version="0.3.0" targetFramework="net472" />
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="5.0.0" targetFramework="net472" />
+  <package id="SixLabors.ImageSharp" version="1.0.3" targetFramework="net472" />
+  <package id="System.Buffers" version="4.5.1" targetFramework="net472" />
+  <package id="System.Collections.Immutable" version="5.0.0" targetFramework="net472" />
+  <package id="System.Memory" version="4.5.4" targetFramework="net472" />
+  <package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net472" />
+  <package id="System.Reflection.Metadata" version="5.0.0" targetFramework="net472" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="5.0.0" targetFramework="net472" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net472" />
+  <package id="Z.ExtensionMethods" version="2.1.1" targetFramework="net472" />
+</packages>
\ No newline at end of file
diff --git a/imagecatalog/FileHelper.vb b/imagecatalog/FileHelper.vb
index 8d203c3..d8b9f3d 100644
--- a/imagecatalog/FileHelper.vb
+++ b/imagecatalog/FileHelper.vb
@@ -1,5 +1,7 @@
-Imports System.IO
+Imports System.Collections.Concurrent
+Imports System.IO
 Imports System.Collections.Generic
+Imports MaddoShared
 
 Public Class FileHelper
     'Private dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo)
@@ -28,7 +30,7 @@ Public Class FileHelper
         Me.filesPerFolder = filesPerFolder
         Me.suffix = suffix
         Me.counterSize = counterSize
-        me.numerationType = numerationType
+        Me.numerationType = numerationType
         Me.separateFiles = True
     End Sub
 
@@ -37,7 +39,7 @@ Public Class FileHelper
     ''' </summary>
     ''' <remarks></remarks>
     Public Sub New()
-        me.separateFiles = False
+        Me.separateFiles = False
     End Sub
 
 
@@ -77,13 +79,71 @@ Public Class FileHelper
 
                 Next
             Catch ex As Exception
-
+                Dim e As Exception = ex.Demystify()
+                Console.WriteLine(e)
+                Console.WriteLine(e.Message)
+                Console.WriteLine(e.StackTrace)
             End Try
         Loop
 
         Return dirSourceDest
     End Function
 
+    'Public Class FileData
+    '    Public File As FileInfo
+    '    Public Directory As DirectoryInfo
+    '    Public Sub New(newFile As FileInfo, newDirectory As DirectoryInfo)
+    '        File = newFile
+    '        Directory = newDirectory
+    '    End Sub
+    'End Class
+
+    'Public Function GetFilesRecursiveParallel(ByVal root As DirectoryInfo, ByVal destRoot As DirectoryInfo, ByVal filter As String) As List(Of FileData)
+
+
+    '    Dim dirSourceDest As New ConcurrentDictionary(Of FileInfo, DirectoryInfo)
+    '    Dim result As New List(Of FileInfo)
+
+    '    'Dim stack As New Stack(Of DirectoryInfo)
+    '    Dim stack As New Stack(Of KeyValuePair(Of DirectoryInfo, DirectoryInfo))
+
+
+    '    Me.filter = filter
+    '    Dim pair As New KeyValuePair(Of DirectoryInfo, DirectoryInfo)
+
+
+    '    'stack.Push(root)
+    '    stack.Push(New KeyValuePair(Of DirectoryInfo, DirectoryInfo)(root, destRoot))
+
+    '    Do While (stack.Count > 0)
+    '        Dim curDirKV As KeyValuePair(Of DirectoryInfo, DirectoryInfo) = stack.Pop
+    '        'curDirKP = stack.Pop()
+    '        Dim dir As DirectoryInfo = curDirKV.Key
+    '        Dim dDir As DirectoryInfo = curDirKV.Value
+    '        Try
+    '            'result.AddRange(dir.GetFiles(filter, SearchOption.TopDirectoryOnly))
+    '            ' dividere file qui
+    '            If filesPerFolder > 0 And separateFiles Then
+    '                AppendDictionaryConcurrent(dirSourceDest, DividiFilesInDirConcurrent(dir, dDir))
+    '            Else
+    '                AppendDictionaryConcurrent(dirSourceDest, DividiFilesInDirConcurrent(dir, dDir))
+    '            End If
+
+    '            For Each subDirectory As DirectoryInfo In dir.GetDirectories
+    '                stack.Push(New KeyValuePair(Of DirectoryInfo, DirectoryInfo)(subDirectory, New DirectoryInfo(Path.Combine(dDir.FullName, subDirectory.Name))))
+
+    '            Next
+    '        Catch ex As Exception
+    '            ' TODO: FARE QUALCOSA
+    '        End Try
+    '    Loop
+
+    '    Dim resultData As New List(Of FileData)
+    '    resultData.AddRange(From p In dirSourceDest Select New FileData(p.Key, p.Value))
+    '    Return resultData
+    '    'Return dirSourceDest
+    'End Function
+
     Public Function appendDictionary(ByVal dictA As Dictionary(Of FileInfo, DirectoryInfo), ByVal dictB As Dictionary(Of FileInfo, DirectoryInfo)) As Dictionary(Of FileInfo, DirectoryInfo)
         For Each pair As KeyValuePair(Of FileInfo, DirectoryInfo) In dictB
             dictA.Add(pair.Key, pair.Value)
@@ -91,6 +151,14 @@ Public Class FileHelper
         Return dictA
     End Function
 
+    'Public Function AppendDictionaryConcurrent(ByVal dictA As ConcurrentDictionary(Of FileInfo, DirectoryInfo), ByVal dictB As ConcurrentDictionary(Of FileInfo, DirectoryInfo)) As ConcurrentDictionary(Of FileInfo, DirectoryInfo)
+    '    For Each pair As KeyValuePair(Of FileInfo, DirectoryInfo) In dictB
+    '        dictA.TryAdd(pair.Key, pair.Value)
+    '        'dictA.Add(pair.Key, pair.Value)
+    '    Next
+    '    Return dictA
+    'End Function
+
     Public Function getAllFilesInDir(dir As DirectoryInfo, dirDest As DirectoryInfo) As Dictionary(Of FileInfo, DirectoryInfo)
         Dim dict As New Dictionary(Of FileInfo, DirectoryInfo)
         For Each File As FileInfo In dir.GetFiles(filter)
@@ -140,4 +208,45 @@ Public Class FileHelper
 
         Return foldersDict
     End Function
+
+    Private Function DividiFilesInDirConcurrent(dir As DirectoryInfo, dirDest As DirectoryInfo) As ConcurrentDictionary(Of FileInfo, DirectoryInfo)
+        Dim filesCount As Integer = dir.GetFiles(filter).Count
+        Dim contaFilePerDir As Integer = 0
+        Dim contaDirPerDir As Integer = 0
+        Dim tempText As String = String.Empty
+        Dim foldersDict As New ConcurrentDictionary(Of FileInfo, DirectoryInfo)
+
+        Dim destDir As DirectoryInfo
+        destDir = New DirectoryInfo(Path.Combine(dirDest.FullName))
+        For Each file As FileInfo In dir.GetFiles(filter)
+
+            contaFilePerDir += 1
+
+            If contaFilePerDir = (contaDirPerDir * filesPerFolder) + 1 Then
+                contaDirPerDir += 1
+
+                If numerationType = numerazione.Progressiva Then
+                    tempText = contaDirPerDir.ToString
+                Else
+                    tempText = (contaDirPerDir * filesPerFolder).ToString
+                End If
+                Dim i As Integer
+                For i = 1 To (counterSize - tempText.Length)
+                    tempText = "0" & tempText
+                Next
+                destDir = New DirectoryInfo(Path.Combine(dirDest.FullName, suffix + tempText))
+
+
+
+            End If
+
+            If Not destDir.Exists Then
+                destDir.Create()
+            End If
+
+            foldersDict.TryAdd(file, destDir)
+        Next
+
+        Return foldersDict
+    End Function
 End Class
diff --git a/imagecatalog/Form1.vb b/imagecatalog/Form1.vb
index 8a271f5..5c4aae6 100644
--- a/imagecatalog/Form1.vb
+++ b/imagecatalog/Form1.vb
@@ -3,6 +3,7 @@ Imports System.Drawing.Drawing2D
 Imports System.Drawing.Imaging
 Imports System.Threading
 Imports System.Collections.Generic
+Imports CatalogVbLib
 
 Public Delegate Sub XyThreadAddold(ByVal Info As String)
 
diff --git a/imagecatalog/ImageCatalog 2.vbproj b/imagecatalog/ImageCatalog 2.vbproj
index 172cbc4..d254204 100644
--- a/imagecatalog/ImageCatalog 2.vbproj	
+++ b/imagecatalog/ImageCatalog 2.vbproj	
@@ -40,6 +40,8 @@
     <SccLocalPath>SAK</SccLocalPath>
     <SccAuxPath>SAK</SccAuxPath>
     <SccProvider>SAK</SccProvider>
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
     <PublishUrl>http://localhost/ImageCatalog/</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Web</InstallFrom>
@@ -54,8 +56,6 @@
     <ApplicationVersion>1.8.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
-    <NuGetPackageImportStamp>
-    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <OutputPath>bin\</OutputPath>
@@ -169,10 +169,19 @@
     <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="Ben.Demystifier, Version=0.3.0.0, Culture=neutral, PublicKeyToken=a6d206e05440431a, processorArchitecture=MSIL">
+      <HintPath>..\packages\Ben.Demystifier.0.3.0\lib\net45\Ben.Demystifier.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.VisualBasic.PowerPacks.Vs, Version=10.0.0.0" />
     <Reference Include="System">
       <Name>System</Name>
     </Reference>
+    <Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Collections.Immutable, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Collections.Immutable.5.0.0\lib\net461\System.Collections.Immutable.dll</HintPath>
+    </Reference>
     <Reference Include="System.Core">
       <RequiredTargetFramework>3.5</RequiredTargetFramework>
       <Private>True</Private>
@@ -185,6 +194,22 @@
       <Name>System.Drawing</Name>
       <Private>True</Private>
     </Reference>
+    <Reference Include="System.Memory, Version=4.0.1.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Numerics" />
+    <Reference Include="System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Reflection.Metadata, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Reflection.Metadata.5.0.0\lib\net461\System.Reflection.Metadata.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.3\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
     <Reference Include="System.Windows.Forms">
       <Name>System.Windows.Forms</Name>
     </Reference>
@@ -207,7 +232,6 @@
       <SubType>Code</SubType>
     </Compile>
     <Compile Include="FileHelper.vb" />
-    <Compile Include="ImageCreator.vb" />
     <Compile Include="CreaImmagineSeparateMultiCore.vb" />
     <Compile Include="CreaImmagineSeparateThread.vb" />
     <Compile Include="ExifReader.vb">
@@ -260,6 +284,7 @@
       <Generator>SettingsSingleFileGenerator</Generator>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
+    <None Include="packages.config" />
   </ItemGroup>
   <ItemGroup>
     <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
@@ -296,6 +321,16 @@
   <ItemGroup>
     <Folder Include="Sorgenti\" />
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\CatalogVbLib\CatalogVbLib.vbproj">
+      <Project>{44465926-240d-473f-90b8-786ba4384406}</Project>
+      <Name>CatalogVbLib</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\MaddoShared\MaddoShared.csproj">
+      <Project>{aebfe9e3-277c-4a7b-8448-145d1b11998b}</Project>
+      <Name>MaddoShared</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PreBuildEvent>
diff --git a/imagecatalog/MainForm.Designer.vb b/imagecatalog/MainForm.Designer.vb
index 42cef0f..0150130 100644
--- a/imagecatalog/MainForm.Designer.vb
+++ b/imagecatalog/MainForm.Designer.vb
@@ -160,6 +160,7 @@ Partial Class MainForm
         Me.Label10 = New System.Windows.Forms.Label()
         Me.btnCreaCatalogo = New System.Windows.Forms.Button()
         Me.Button6 = New System.Windows.Forms.Button()
+        Me.btnCreaCatalogoAsync = New System.Windows.Forms.Button()
         Me.TabControl1.SuspendLayout()
         Me.TabPage5.SuspendLayout()
         Me.GroupBox11.SuspendLayout()
@@ -289,9 +290,9 @@ Partial Class MainForm
         Me.Label8.AutoSize = True
         Me.Label8.Location = New System.Drawing.Point(64, 26)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(61, 13)
+        Me.Label8.Size = New System.Drawing.Size(111, 13)
         Me.Label8.TabIndex = 3
-        Me.Label8.Text = "Min Thread"
+        Me.Label8.Text = "Chunk Size (0 = MAX)"
         '
         'TextBox8
         '
@@ -299,16 +300,16 @@ Partial Class MainForm
         Me.TextBox8.Name = "TextBox8"
         Me.TextBox8.Size = New System.Drawing.Size(47, 20)
         Me.TextBox8.TabIndex = 2
-        Me.TextBox8.Text = "4"
+        Me.TextBox8.Text = "0"
         '
         'Label7
         '
         Me.Label7.AutoSize = True
         Me.Label7.Location = New System.Drawing.Point(61, 48)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(64, 13)
+        Me.Label7.Size = New System.Drawing.Size(108, 13)
         Me.Label7.TabIndex = 1
-        Me.Label7.Text = "Max Thread"
+        Me.Label7.Text = "Threads (0 = CPU *2)"
         '
         'TextBox7
         '
@@ -316,7 +317,7 @@ Partial Class MainForm
         Me.TextBox7.Name = "TextBox7"
         Me.TextBox7.Size = New System.Drawing.Size(47, 20)
         Me.TextBox7.TabIndex = 0
-        Me.TextBox7.Text = "4"
+        Me.TextBox7.Text = "0"
         '
         'GroupBox3
         '
@@ -1493,7 +1494,7 @@ Partial Class MainForm
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(140, 20)
         Me.Label27.TabIndex = 62
-        Me.Label27.Text = "Versione 2.1 2019"
+        Me.Label27.Text = "Versione 2.2 2021"
         Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         '
         'Button7
@@ -1568,7 +1569,7 @@ Partial Class MainForm
         Me.btnCreaCatalogo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnCreaCatalogo.Location = New System.Drawing.Point(539, 77)
         Me.btnCreaCatalogo.Name = "btnCreaCatalogo"
-        Me.btnCreaCatalogo.Size = New System.Drawing.Size(192, 39)
+        Me.btnCreaCatalogo.Size = New System.Drawing.Size(102, 39)
         Me.btnCreaCatalogo.TabIndex = 53
         Me.btnCreaCatalogo.Text = "crea catalogo"
         '
@@ -1581,11 +1582,21 @@ Partial Class MainForm
         Me.Button6.TabIndex = 54
         Me.Button6.Text = "Carica impostazioni"
         '
+        'btnCreaCatalogoAsync
+        '
+        Me.btnCreaCatalogoAsync.Location = New System.Drawing.Point(647, 78)
+        Me.btnCreaCatalogoAsync.Name = "btnCreaCatalogoAsync"
+        Me.btnCreaCatalogoAsync.Size = New System.Drawing.Size(84, 38)
+        Me.btnCreaCatalogoAsync.TabIndex = 68
+        Me.btnCreaCatalogoAsync.Text = "Crea 2"
+        Me.btnCreaCatalogoAsync.UseVisualStyleBackColor = True
+        '
         'MainForm
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(739, 401)
+        Me.Controls.Add(Me.btnCreaCatalogoAsync)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.CheckBox22)
         Me.Controls.Add(Me.Label43)
@@ -1783,4 +1794,5 @@ Partial Class MainForm
     Friend WithEvents rdbVecchioMetodo As System.Windows.Forms.RadioButton
     Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
     Friend WithEvents chkSovrascriviFile As System.Windows.Forms.CheckBox
+    Friend WithEvents btnCreaCatalogoAsync As Button
 End Class
diff --git a/imagecatalog/MainForm.vb b/imagecatalog/MainForm.vb
index 9343ae8..63a7373 100644
--- a/imagecatalog/MainForm.vb
+++ b/imagecatalog/MainForm.vb
@@ -1,9 +1,14 @@
-Imports System.IO
+Imports System.Collections.Concurrent
+Imports System.IO
 Imports System.Drawing.Drawing2D
 Imports System.Drawing.Imaging
 Imports System.Threading
 Imports System.Collections.Generic
 Imports System.Drawing.Text
+Imports System.Runtime.InteropServices
+Imports System.Threading.Tasks
+Imports CatalogVbLib
+Imports MaddoShared
 
 Public Delegate Sub XyThreadAdd(ByVal Info As String)
 
@@ -97,12 +102,20 @@ Public Class MainForm
         ComboBox5.Items.Add("Basso")
         ComboBox5.SelectedIndex = 2
     End Sub
+    <DllImport("kernel32.dll", SetLastError:=True)>
+    Private Shared Function AllocConsole() As Boolean
+
+    End Function
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Application.EnableVisualStyles()
 
         setDefaults()
+#If Not DEBUG Then
+        AllocConsole()
+#End If
 
+        Console.WriteLine("Programma avviato")
     End Sub
 
     Private Sub FixPaths()
@@ -160,6 +173,7 @@ Public Class MainForm
         End If
     End Sub
 
+
     Private Sub creaCatalogoThread()
         Dim timeStart As Date = TimeOfDay
         MyPool.StopThreadPool()
@@ -878,7 +892,7 @@ Public Class MainForm
 
 
 
-                Dim ClsCreaImmagine As New ImageCreator(childFile.Name, SourceDir, DestDir, DestDirStart)
+                Dim ClsCreaImmagine As New ImageCreatorSharp(childFile.Name, SourceDir, DestDir, DestDirStart)
                 '                ClsCreaImmagine.NomeFileChild = childFile.Name
                 '                ClsCreaImmagine.DestDir = DestDir
                 '                ClsCreaImmagine.SourceDir = SourceDir
@@ -898,7 +912,7 @@ Public Class MainForm
     End Sub
 
     Private Function getNumerazione() As Integer
-        dim numerazione As Integer
+        Dim numerazione As Integer
         If rdbNumProgressiva.Checked Then
             numerazione = FileHelper.numerazione.Progressiva
         Else
@@ -907,6 +921,16 @@ Public Class MainForm
         Return numerazione
     End Function
 
+    Private Function GetNumerazioneEnum() As NumerazioneType
+        Dim numerazioneType As NumerazioneType
+        If rdbNumProgressiva.Checked Then
+            numerazioneType = NumerazioneType.Progressiva ' FileHelper.numerazione.Progressiva
+        Else
+            numerazioneType = NumerazioneType.Files ' FileHelper.numerazione.Files
+        End If
+        Return numerazioneType
+    End Function
+
     Private Sub creaimmaginiWithThreadDict(ByVal SourcePath As String, ByVal DestPath As String)
         Dim dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo) = New Dictionary(Of FileInfo, DirectoryInfo)
         If chkAggiornaSottodirectory.Checked And chkCreaSottocartelle.Checked Then
@@ -922,12 +946,12 @@ Public Class MainForm
 
         Dim pair As KeyValuePair(Of FileInfo, DirectoryInfo)
         For Each pair In dirSourceDest
-
             setLabel10Text("File: " & pair.Key.Name)
             Dim b As String = (CType(Label18.Text, Integer) + 1).ToString
 
-            Dim ClsCreaImmagine As New ImageCreator(pair.Key, pair.Value)
+            Dim ClsCreaImmagine As New ImageCreatorSharp(pair.Key, pair.Value)
             ContaImmaginiThread += 1
+
             MyPool.InsertWorkItem(pair.Key.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {pair.Key.Name}, True)
 
         Next
@@ -1312,7 +1336,157 @@ Public Class MainForm
         CheckBox18.Checked = False
     End Sub
 
+    Private Sub Label27_Click(sender As Object, e As EventArgs) Handles Label27.Click
 
+    End Sub
+
+    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCreaCatalogoAsync.Click
+        lockUI()
+        'Dim timeStart As Date
+        'Dim timeStop As Date
+
+        'timeStart = TimeOfDay
+        FixPaths()
+        Label10.Text = "Elaborazione in corso..."
+        lblFotoTotaliNum.Text = "0"
+        Label18.Text = "0"
+        Label43.Text = "-s"
+
+        setPicSettings(txtSorgente.Text, txtDestinazione.Text)
+        ProgressBar1.Minimum = 0
+        ProgressBar1.Step = 1
+        ProgressBar1.Value = 0
+
+        'Await CreaCatalogoParallel()
+        Dim imgStf As ImageCreationStuff = New ImageCreationStuff()
+
+        Dim imageCreationOptions As ImageCreationStuff.Options = New ImageCreationStuff.Options()
+        With imageCreationOptions
+            .AggiornaSottodirectory = chkAggiornaSottodirectory.Checked
+            .CreaSottocartelle = chkCreaSottocartelle.Checked
+            .FilePerCartella = CInt(txtFilePerCartella.Text)
+            .SuffissoCartelle = txtSuffissoCartelle.Text
+            .CifreContatore = CInt(txtCifreContatore.Text)
+            .NumerazioneType = GetNumerazioneEnum()
+            .SourcePath = txtSorgente.Text
+            .DestinationPath = txtDestinazione.Text
+            .MaxThreads = CInt(TextBox7.Text)
+            .ChunksSize = CInt(TextBox8.Text)
+            .LinearExecution = rdbVecchioMetodo.Checked
+        End With
+
+        Dim time As String = Await imgStf.CreaCatalogoParallel(imageCreationOptions)
+        Label43.Text = time
+        Label10.Text = "Finito"
+        unlockUI()
+
+    End Sub
+    Private Sub UpdateCounter(text As String)
+        Label10.Invoke(Sub()
+                           Label10.Text = text
+
+                       End Sub)
+    End Sub
+    Private Async Function CreaCatalogoParallel() As Task
+        Dim timeStart As Date = TimeOfDay
+        ContaImmaginiThread = 0
+        setLabel10Text("Elaborazione in corso...")
+        Dim imgStf As ImageCreationStuff = New ImageCreationStuff()
+
+        Dim imageCreationOptions As ImageCreationStuff.Options = New ImageCreationStuff.Options()
+        With imageCreationOptions
+            .AggiornaSottodirectory = chkAggiornaSottodirectory.Checked
+            .CreaSottocartelle = chkCreaSottocartelle.Checked
+            .FilePerCartella = CInt(txtFilePerCartella.Text)
+            .SuffissoCartelle = txtSuffissoCartelle.Text
+            .CifreContatore = CInt(txtCifreContatore.Text)
+            .NumerazioneType = GetNumerazioneEnum()
+            .SourcePath = txtSorgente.Text
+            .DestinationPath = txtDestinazione.Text
+        End With
+
+        Await imgStf.CreaImmaginiParallel(imageCreationOptions)
+
+        'Await CreaImmaginiParallel(txtSorgente.Text, txtDestinazione.Text)
+
+        setLabel10Text("Finito")
+        Dim timeStop As Date = TimeOfDay
+        setLabel43Text(CalcTime(timeStart, timeStop, ContaImmaginiThread))
+    End Function
+
+    'Private Async Function CreaImmaginiParallel(ByVal SourcePath As String, ByVal DestPath As String) As Task
+    '    Dim dataToProcess As List(Of FileData) = New List(Of FileData)
+
+    '    'Dim dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo) = New Dictionary(Of FileInfo, DirectoryInfo)
+    '    If chkAggiornaSottodirectory.Checked And chkCreaSottocartelle.Checked Then
+
+    '        Dim helperSharp As New FileHelperSharp()
+
+    '        'Dim helper As New FileHelper(CInt(txtFilePerCartella.Text), txtSuffissoCartelle.Text, CInt(txtCifreContatore.Text), getNumerazione())
+    '        'getfilesrecursive
+
+    '        Dim fileHelperOptions As FileHelperOptions = New FileHelperOptions()
+    '        fileHelperOptions.FilesPerFolder = CInt(txtFilePerCartella.Text)
+    '        fileHelperOptions.Suffix = txtSuffissoCartelle.Text
+    '        fileHelperOptions.CounterSize = CInt(txtCifreContatore.Text)
+    '        fileHelperOptions.NumerationType = GetNumerazioneEnum()
+
+    '        dataToProcess = helperSharp.GetFilesRecursive(New DirectoryInfo(SourcePath), New DirectoryInfo(DestPath), "*.jpg", fileHelperOptions)
+
+    '        'dataToProcess = helper.GetFilesRecursiveParallel(New DirectoryInfo(SourcePath), New DirectoryInfo(DestPath), "*.jpg")
+    '    ElseIf chkAggiornaSottodirectory.Checked And Not chkCreaSottocartelle.Checked Then
+    '        ' TODO manca tutto?!?!?!?
+    '    End If
+
+    '    Dim scheduler As TaskScheduler = New ConcurrentExclusiveSchedulerPair(TaskScheduler.Default, Environment.ProcessorCount * 2).ConcurrentScheduler
+
+    '    Dim test As IEnumerable(Of Task) = From d In dataToProcess Select Task.Factory.StartNew(Sub()
+    '                                                                                                'setLabel10Text("File: " & p.File.Name)
+
+    '                                                                                                Dim b As String = (CType(Label18.Text, Integer) + 1).ToString
+
+    '                                                                                                Dim clsCreaImmagine As New ImageCreator(d.File, d.Directory)
+
+    '                                                                                                clsCreaImmagine.CreaImmagineThread(d.File.Name)
+
+    '                                                                                                ContaImmaginiThread += 1
+    '                                                                                                UpdateCounter(ContaImmaginiThread & " " & d.File.Name)
+    '                                                                                            End Sub, CancellationToken.None, TaskCreationOptions.LongRunning, scheduler) 'TODO Cancellation Token
+
+    '    'ThreadingHelper.StartAndWaitAllThrottled(test, CType(TextBox7.Text, Integer))
+
+    '    Await Task.WhenAll(test)
+
+    '    '= getDirsDict(SourcePath, DestPath)
+    '    'Parallel.ForEach(dataToProcess,
+    '    '                 Sub(p, state)
+    '    '                     'setLabel10Text("File: " & p.File.Name)
+
+    '    '                     Dim b As String = (CType(Label18.Text, Integer) + 1).ToString
+
+    '    '                     Dim clsCreaImmagine As New ImageCreator(p.File, p.Directory)
+
+    '    '                     clsCreaImmagine.CreaImmagineThread(p.File.Name)
+
+    '    '                     ContaImmaginiThread += 1
+    '    '                     UpdateCounter(ContaImmaginiThread & " " & p.File.Name)
+    '    '                     'MyPool.InsertWorkItem(p.File.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {p.File.Name}, True)
+    '    '                     ' TODO: BREAK ON STOP state.stop()
+
+    '    '                 End Sub)
+
+    '    'Dim pair As KeyValuePair(Of FileInfo, DirectoryInfo)
+    '    'For Each pair In dirSourceDest
+
+    '    '    setLabel10Text("File: " & pair.Key.Name)
+    '    '    Dim b As String = (CType(Label18.Text, Integer) + 1).ToString
+
+    '    '    Dim ClsCreaImmagine As New ImageCreator(pair.Key, pair.Value)
+    '    '    ContaImmaginiThread += 1
+    '    '    MyPool.InsertWorkItem(pair.Key.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {pair.Key.Name}, True)
+
+    '    'Next
+    'End Function
 End Class
 
 Public Class PicInfo
diff --git a/imagecatalog/My Project/Application.Designer.vb b/imagecatalog/My Project/Application.Designer.vb
index b8a8e28..24fc37f 100644
--- a/imagecatalog/My Project/Application.Designer.vb	
+++ b/imagecatalog/My Project/Application.Designer.vb	
@@ -8,7 +8,7 @@
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
-Option Strict On
+Option Strict Off
 Option Explicit On
 
 
diff --git a/imagecatalog/My Project/Settings.Designer.vb b/imagecatalog/My Project/Settings.Designer.vb
index fc7d24f..75ffa5f 100644
--- a/imagecatalog/My Project/Settings.Designer.vb	
+++ b/imagecatalog/My Project/Settings.Designer.vb	
@@ -8,7 +8,7 @@
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
-Option Strict On
+Option Strict Off
 Option Explicit On
 
 
diff --git a/imagecatalog/PicSettings.vb b/imagecatalog/PicSettings.vb
index 5d9942f..b82a77d 100644
--- a/imagecatalog/PicSettings.vb
+++ b/imagecatalog/PicSettings.vb
@@ -2,603 +2,603 @@
 Imports System.Drawing.Drawing2D
 Imports System.Drawing.Imaging
 
-Module PicSettings
+'Module PicSettings
 
-    Private _DirectorySorgente As String
-    Private _DirectoryDestinazione As String
+'    Private _DirectorySorgente As String
+'    Private _DirectoryDestinazione As String
 
-    Private _DimVert As Integer
-    Private _MargVert As Integer
+'    Private _DimVert As Integer
+'    Private _MargVert As Integer
 
-   
-    Private _DimStandard As Integer
-    Private _DimStandardMiniatura As Integer
 
-    Private _NomeData As Boolean
-    Private _TestoNome As Boolean
-    Private _UsaOrarioMiniatura As Boolean
-    Private _UsaOrarioTestoApplicare As Boolean
-    Private _UsaTempoGaraTestoApplicare As Boolean
-    Private _TestoFirmaStart As String
-    Private _TestoFirmaStartV As String
-    Private _DataPartenza As DateTime
-    Private _TestoOrario As String
-
-    Private _UsaRotazioneAutomatica As Boolean
-    Private _UsaForzaJpg As Boolean
-
-    Private _LarghezzaSmall As Integer
-    Private _AltezzaSmall As Integer
-
-    Private _CreaMiniature As Boolean
-    Private _AggiungiScritteMiniature As Boolean
-    Private _AggTempoGaraMin As Boolean
-    Private _AggNumTempMin As Boolean
-
-    Private _Suffisso As String
-    Private _Codice As String
-
-    Private _Trasparenza As Integer
-    Private _IlFont As String
-    Private _Grassetto As Boolean
-
-    Private _Posizione As String
-    Private _Allineamento As String
-    Private _Margine As Integer
-
-    Private _LogoAltezza As Integer
-    Private _LogoLarghezza As Integer
-
-    Private _fontColoreRGB As Color
-
-    Private _LogoAggiungi As Boolean
-    Private _LogoNomeFile As String
-    Private _LogoTrasparenza As String
-    Private _LogoMargine As String
-    Private _LogoPosizioneH As String
-    Private _LogoPosizioneV As String
-
-    Private _FotoGrandeDimOrigina As Boolean
-    Private _AltezzaBig As Integer
-    Private _LarghezzaBig As Integer
-    Private _DestDir As DirectoryInfo
-    Private _DimMin As Integer
-
-    Private _TestoMin As Boolean
-
-    Private _SecretDefault As Boolean
-    Private _SecretBig As Boolean
-    Private _SecretSmall As Boolean
-
-    Private _SecretPathSmall As String
-    Private _SecretPathBig As String
-
-    Private _jpegQuality As Long
-    Private _jpegQualityMin As Long
-
-    Private FotoRuotaADestra As Boolean = False
-    Private FotoRuotaASinistra As Boolean = False
-
-    Private TempMinText As String = ""
-
-    Private _mainForm As MainForm
-
-    'Private progressBar As System.Windows.Forms.ProgressBar
-
-
-
-    Public Property mainForm() As MainForm
-        Get
-            Return _mainForm
-        End Get
-        Set(ByVal value As MainForm)
-            _mainForm = value
-        End Set
-    End Property
-
-    Public Property DirectorySorgente() As String
-        Get
-            Return _DirectorySorgente
-        End Get
-        Set(ByVal value As String)
-            _DirectorySorgente = value
-        End Set
-    End Property
-
-    Public Property DirectoryDestinazione() As String
-        Get
-            Return _DirectoryDestinazione
-        End Get
-        Set(ByVal value As String)
-            _DirectoryDestinazione = value
-        End Set
-    End Property
-
-    Public Property TestoFirmaStart() As String
-        Get
-            Return _TestoFirmaStart
-        End Get
-        Set(ByVal value As String)
-            _TestoFirmaStart = value
-        End Set
-    End Property
-
-    Public Property TestoFirmaStartV() As String
-        Get
-            Return _TestoFirmaStartV
-        End Get
-
-        Set(ByVal value As String)
-            _TestoFirmaStartV = value
-        End Set
-    End Property
-
-    Public Property DataPartenza() As DateTime
-        Get
-            Return _DataPartenza
-        End Get
-        Set(ByVal value As DateTime)
-            _DataPartenza = value
-        End Set
-    End Property
-
-    Public Property TestoOrario() As String
-        Get
-            Return _TestoOrario
-        End Get
-        Set(ByVal value As String)
-            _TestoOrario = value
-        End Set
-    End Property
-
-    Public Property DimStandard() As Integer
-        Get
-            Return _DimStandard
-        End Get
-        Set(ByVal value As Integer)
-            _DimStandard = value
-        End Set
-    End Property
-
-    Public Property DimStandardMiniatura() As Integer
-        Get
-            Return _DimStandardMiniatura
-        End Get
-        Set(ByVal value As Integer)
-            _DimStandardMiniatura = value
-        End Set
-    End Property
-
-    Public Property NomeData() As Boolean
-        Get
-            Return _NomeData
-        End Get
-        Set(ByVal value As Boolean)
-            _NomeData = value
-        End Set
-    End Property
-
-    Public Property TestoNome() As Boolean
-        Get
-            Return _TestoNome
-        End Get
-        Set(ByVal value As Boolean)
-            _TestoNome = value
-        End Set
-    End Property
-
-    Public Property UsaOrarioMiniatura() As Boolean
-        Get
-            Return _UsaOrarioMiniatura
-        End Get
-        Set(ByVal value As Boolean)
-            _UsaOrarioMiniatura = value
-        End Set
-    End Property
-
-    Public Property UsaOrarioTestoApplicare() As Boolean
-        Get
-            Return _UsaOrarioTestoApplicare
-        End Get
-        Set(ByVal value As Boolean)
-            _UsaOrarioTestoApplicare = value
-        End Set
-    End Property
-
-    Public Property UsaTempoGaraTestoApplicare() As Boolean
-        Get
-            Return _UsaTempoGaraTestoApplicare
-        End Get
-        Set(ByVal value As Boolean)
-            _UsaTempoGaraTestoApplicare = value
-        End Set
-    End Property
-
-    Public Property UsaRotazioneAutomatica() As Boolean
-        Get
-            Return _UsaRotazioneAutomatica
-        End Get
-        Set(ByVal value As Boolean)
-            _UsaRotazioneAutomatica = value
-        End Set
-    End Property
-
-    Public Property UsaForzaJpg() As Boolean
-        Get
-            Return _UsaForzaJpg
-        End Get
-        Set(ByVal value As Boolean)
-            _UsaForzaJpg = value
-        End Set
-    End Property
-
-
-
-    Public Property LarghezzaSmall() As Integer
-        Get
-            Return _LarghezzaSmall
-        End Get
-        Set(ByVal value As Integer)
-            _LarghezzaSmall = value
-        End Set
-    End Property
-
-    Public Property AltezzaSmall() As Integer
-        Get
-            Return _AltezzaSmall
-        End Get
-        Set(ByVal value As Integer)
-            _AltezzaSmall = value
-        End Set
-    End Property
-
-
-    Public Property CreaMiniature() As Boolean
-        Get
-            Return _CreaMiniature
-        End Get
-        Set(ByVal value As Boolean)
-            _CreaMiniature = value
-        End Set
-    End Property
-
-    Public Property AggiungiScritteMiniature() As Boolean
-        Get
-            Return _AggiungiScritteMiniature
-        End Get
-        Set(ByVal value As Boolean)
-            _AggiungiScritteMiniature = value
-        End Set
-    End Property
-
-
-    Public Property Suffisso() As String
-        Get
-            Return _Suffisso
-        End Get
-        Set(ByVal value As String)
-            _Suffisso = value
-        End Set
-    End Property
-
-    Public Property Codice() As String
-        Get
-            Return _Codice
-        End Get
-        Set(ByVal value As String)
-            _Codice = value
-        End Set
-    End Property
-
-
-    Public Property Trasparenza() As Integer
-        Get
-            Return _Trasparenza
-        End Get
-        Set(ByVal value As Integer)
-            _Trasparenza = value
-        End Set
-    End Property
-
-    Public Property IlFont() As String
-        Get
-            Return _IlFont
-        End Get
-        Set(ByVal value As String)
-            _IlFont = value
-        End Set
-    End Property
-
-    Public Property Grassetto() As Boolean
-        Get
-            Return _Grassetto
-        End Get
-        Set(ByVal value As Boolean)
-            _Grassetto = value
-        End Set
-    End Property
-
-    Public Property Posizione() As String
-        Get
-            Return _Posizione
-        End Get
-        Set(ByVal value As String)
-            _Posizione = value
-        End Set
-    End Property
-
-    Public Property Allineamento() As String
-        Get
-            Return _Allineamento
-        End Get
-        Set(ByVal value As String)
-            _Allineamento = value
-        End Set
-    End Property
-
-    Public Property Margine() As Integer
-        Get
-            Return _Margine
-        End Get
-        Set(ByVal value As Integer)
-            _Margine = value
-        End Set
-    End Property
-
-    Public Property LogoAltezza() As Integer
-        Get
-            Return _LogoAltezza
-        End Get
-        Set(ByVal value As Integer)
-            _LogoAltezza = value
-        End Set
-    End Property
-
-    Public Property LogoLarghezza() As Integer
-        Get
-            Return _LogoLarghezza
-        End Get
-        Set(ByVal value As Integer)
-            _LogoLarghezza = value
-        End Set
-    End Property
-
-    Public Property fontColoreRGB() As Color
-        Get
-            Return _fontColoreRGB
-        End Get
-        Set(ByVal value As Color)
-            _fontColoreRGB = value
-        End Set
-    End Property
-
-    Public Property LogoAggiungi() As Boolean
-        Get
-            Return _LogoAggiungi
-        End Get
-        Set(ByVal value As Boolean)
-            _LogoAggiungi = value
-        End Set
-    End Property
-
-    Public Property LogoNomeFile() As String
-        Get
-            Return _LogoNomeFile
-        End Get
-        Set(ByVal value As String)
-            _LogoNomeFile = value
-        End Set
-    End Property
-
-    Public Property LogoTrasparenza() As String
-        Get
-            Return _LogoTrasparenza
-        End Get
-        Set(ByVal value As String)
-            _LogoTrasparenza = value
-        End Set
-    End Property
-
-    Public Property LogoMargine() As String
-        Get
-            Return _LogoMargine
-        End Get
-        Set(ByVal value As String)
-            _LogoMargine = value
-        End Set
-    End Property
-
-    Public Property LogoPosizioneH() As String
-        Get
-            Return _LogoPosizioneH
-        End Get
-        Set(ByVal value As String)
-            _LogoPosizioneH = value
-        End Set
-    End Property
-
-    Public Property LogoPosizioneV() As String
-        Get
-            Return _LogoPosizioneV
-        End Get
-        Set(ByVal value As String)
-            _LogoPosizioneV = value
-        End Set
-    End Property
-
-    Public Property FotoGrandeDimOrigina() As Boolean
-        Get
-            Return _FotoGrandeDimOrigina
-        End Get
-        Set(ByVal value As Boolean)
-            _FotoGrandeDimOrigina = value
-        End Set
-    End Property
-
-    Public Property AltezzaBig() As Integer
-        Get
-            Return _AltezzaBig
-        End Get
-        Set(ByVal value As Integer)
-            _AltezzaBig = value
-        End Set
-    End Property
-
-    Public Property LarghezzaBig() As Integer
-        Get
-            Return _LarghezzaBig
-        End Get
-        Set(ByVal value As Integer)
-            _LarghezzaBig = value
-        End Set
-    End Property
-
-    Public Property DestDir() As DirectoryInfo
-        Get
-            Return _DestDir
-        End Get
-        Set(ByVal value As DirectoryInfo)
-            _DestDir = value
-        End Set
-    End Property
-
-    Public Property DimVert() As Integer
-        Get
-            Return _DimVert
-
-        End Get
-        Set(ByVal value As Integer)
-            _DimVert = value
-
-        End Set
-    End Property
-
-    Public Property MargVert() As Integer
-        Get
-            Return _MargVert
-
-        End Get
-        Set(ByVal value As Integer)
-            _MargVert = value
-        End Set
-    End Property
-
-    Public Property TestoMin() As Boolean
-        Get
-            Return _TestoMin
-
-        End Get
-        Set(ByVal value As Boolean)
-            _TestoMin = value
-
-        End Set
-    End Property
-
-    Public Property DimMin() As Integer
-        Get
-            Return _DimMin
-
-        End Get
-        Set(ByVal value As Integer)
-            _DimMin = value
-
-        End Set
-    End Property
-
-    Public Property SecretDefault() As Boolean
-        Get
-            Return _SecretDefault
-
-        End Get
-        Set(ByVal value As Boolean)
-            _SecretDefault = value
-
-        End Set
-    End Property
-
-    Public Property SecretBig() As Boolean
-        Get
-            Return _SecretBig
-
-        End Get
-        Set(ByVal value As Boolean)
-            _SecretBig = value
-
-        End Set
-    End Property
-
-    Public Property SecretSmall() As Boolean
-        Get
-            Return _SecretSmall
-
-        End Get
-        Set(ByVal value As Boolean)
-            _SecretSmall = value
-
-        End Set
-    End Property
-
-    Public Property SecretPathSmall() As String
-        Get
-            Return _SecretPathSmall
-
-        End Get
-        Set(ByVal value As String)
-            _SecretPathSmall = value
-
-        End Set
-    End Property
-
-    Public Property SecretPathBig() As String
-        Get
-            Return _SecretPathBig
+'    Private _DimStandard As Integer
+'    Private _DimStandardMiniatura As Integer
 
-        End Get
-        Set(ByVal value As String)
-            _SecretPathBig = value
+'    Private _NomeData As Boolean
+'    Private _TestoNome As Boolean
+'    Private _UsaOrarioMiniatura As Boolean
+'    Private _UsaOrarioTestoApplicare As Boolean
+'    Private _UsaTempoGaraTestoApplicare As Boolean
+'    Private _TestoFirmaStart As String
+'    Private _TestoFirmaStartV As String
+'    Private _DataPartenza As DateTime
+'    Private _TestoOrario As String
 
-        End Set
-    End Property
+'    Private _UsaRotazioneAutomatica As Boolean
+'    Private _UsaForzaJpg As Boolean
+
+'    Private _LarghezzaSmall As Integer
+'    Private _AltezzaSmall As Integer
+
+'    Private _CreaMiniature As Boolean
+'    Private _AggiungiScritteMiniature As Boolean
+'    Private _AggTempoGaraMin As Boolean
+'    Private _AggNumTempMin As Boolean
+
+'    Private _Suffisso As String
+'    Private _Codice As String
+
+'    Private _Trasparenza As Integer
+'    Private _IlFont As String
+'    Private _Grassetto As Boolean
+
+'    Private _Posizione As String
+'    Private _Allineamento As String
+'    Private _Margine As Integer
+
+'    Private _LogoAltezza As Integer
+'    Private _LogoLarghezza As Integer
+
+'    Private _fontColoreRGB As Color
+
+'    Private _LogoAggiungi As Boolean
+'    Private _LogoNomeFile As String
+'    Private _LogoTrasparenza As String
+'    Private _LogoMargine As String
+'    Private _LogoPosizioneH As String
+'    Private _LogoPosizioneV As String
+
+'    Private _FotoGrandeDimOrigina As Boolean
+'    Private _AltezzaBig As Integer
+'    Private _LarghezzaBig As Integer
+'    Private _DestDir As DirectoryInfo
+'    Private _DimMin As Integer
+
+'    Private _TestoMin As Boolean
+
+'    Private _SecretDefault As Boolean
+'    Private _SecretBig As Boolean
+'    Private _SecretSmall As Boolean
+
+'    Private _SecretPathSmall As String
+'    Private _SecretPathBig As String
+
+'    Private _jpegQuality As Long
+'    Private _jpegQualityMin As Long
+
+'    Private FotoRuotaADestra As Boolean = False
+'    Private FotoRuotaASinistra As Boolean = False
+
+'    Private TempMinText As String = ""
+
+'    Private _mainForm As MainForm
+
+'    'Private progressBar As System.Windows.Forms.ProgressBar
+
+
+
+'    Public Property mainForm() As MainForm
+'        Get
+'            Return _mainForm
+'        End Get
+'        Set(ByVal value As MainForm)
+'            _mainForm = value
+'        End Set
+'    End Property
+
+'    Public Property DirectorySorgente() As String
+'        Get
+'            Return _DirectorySorgente
+'        End Get
+'        Set(ByVal value As String)
+'            _DirectorySorgente = value
+'        End Set
+'    End Property
+
+'    Public Property DirectoryDestinazione() As String
+'        Get
+'            Return _DirectoryDestinazione
+'        End Get
+'        Set(ByVal value As String)
+'            _DirectoryDestinazione = value
+'        End Set
+'    End Property
+
+'    Public Property TestoFirmaStart() As String
+'        Get
+'            Return _TestoFirmaStart
+'        End Get
+'        Set(ByVal value As String)
+'            _TestoFirmaStart = value
+'        End Set
+'    End Property
+
+'    Public Property TestoFirmaStartV() As String
+'        Get
+'            Return _TestoFirmaStartV
+'        End Get
+
+'        Set(ByVal value As String)
+'            _TestoFirmaStartV = value
+'        End Set
+'    End Property
+
+'    Public Property DataPartenza() As DateTime
+'        Get
+'            Return _DataPartenza
+'        End Get
+'        Set(ByVal value As DateTime)
+'            _DataPartenza = value
+'        End Set
+'    End Property
+
+'    Public Property TestoOrario() As String
+'        Get
+'            Return _TestoOrario
+'        End Get
+'        Set(ByVal value As String)
+'            _TestoOrario = value
+'        End Set
+'    End Property
+
+'    Public Property DimStandard() As Integer
+'        Get
+'            Return _DimStandard
+'        End Get
+'        Set(ByVal value As Integer)
+'            _DimStandard = value
+'        End Set
+'    End Property
+
+'    Public Property DimStandardMiniatura() As Integer
+'        Get
+'            Return _DimStandardMiniatura
+'        End Get
+'        Set(ByVal value As Integer)
+'            _DimStandardMiniatura = value
+'        End Set
+'    End Property
+
+'    Public Property NomeData() As Boolean
+'        Get
+'            Return _NomeData
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _NomeData = value
+'        End Set
+'    End Property
+
+'    Public Property TestoNome() As Boolean
+'        Get
+'            Return _TestoNome
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _TestoNome = value
+'        End Set
+'    End Property
+
+'    Public Property UsaOrarioMiniatura() As Boolean
+'        Get
+'            Return _UsaOrarioMiniatura
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _UsaOrarioMiniatura = value
+'        End Set
+'    End Property
+
+'    Public Property UsaOrarioTestoApplicare() As Boolean
+'        Get
+'            Return _UsaOrarioTestoApplicare
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _UsaOrarioTestoApplicare = value
+'        End Set
+'    End Property
+
+'    Public Property UsaTempoGaraTestoApplicare() As Boolean
+'        Get
+'            Return _UsaTempoGaraTestoApplicare
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _UsaTempoGaraTestoApplicare = value
+'        End Set
+'    End Property
+
+'    Public Property UsaRotazioneAutomatica() As Boolean
+'        Get
+'            Return _UsaRotazioneAutomatica
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _UsaRotazioneAutomatica = value
+'        End Set
+'    End Property
+
+'    Public Property UsaForzaJpg() As Boolean
+'        Get
+'            Return _UsaForzaJpg
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _UsaForzaJpg = value
+'        End Set
+'    End Property
+
+
+
+'    Public Property LarghezzaSmall() As Integer
+'        Get
+'            Return _LarghezzaSmall
+'        End Get
+'        Set(ByVal value As Integer)
+'            _LarghezzaSmall = value
+'        End Set
+'    End Property
+
+'    Public Property AltezzaSmall() As Integer
+'        Get
+'            Return _AltezzaSmall
+'        End Get
+'        Set(ByVal value As Integer)
+'            _AltezzaSmall = value
+'        End Set
+'    End Property
+
+
+'    Public Property CreaMiniature() As Boolean
+'        Get
+'            Return _CreaMiniature
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _CreaMiniature = value
+'        End Set
+'    End Property
+
+'    Public Property AggiungiScritteMiniature() As Boolean
+'        Get
+'            Return _AggiungiScritteMiniature
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _AggiungiScritteMiniature = value
+'        End Set
+'    End Property
+
+
+'    Public Property Suffisso() As String
+'        Get
+'            Return _Suffisso
+'        End Get
+'        Set(ByVal value As String)
+'            _Suffisso = value
+'        End Set
+'    End Property
+
+'    Public Property Codice() As String
+'        Get
+'            Return _Codice
+'        End Get
+'        Set(ByVal value As String)
+'            _Codice = value
+'        End Set
+'    End Property
+
+
+'    Public Property Trasparenza() As Integer
+'        Get
+'            Return _Trasparenza
+'        End Get
+'        Set(ByVal value As Integer)
+'            _Trasparenza = value
+'        End Set
+'    End Property
+
+'    Public Property IlFont() As String
+'        Get
+'            Return _IlFont
+'        End Get
+'        Set(ByVal value As String)
+'            _IlFont = value
+'        End Set
+'    End Property
+
+'    Public Property Grassetto() As Boolean
+'        Get
+'            Return _Grassetto
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _Grassetto = value
+'        End Set
+'    End Property
+
+'    Public Property Posizione() As String
+'        Get
+'            Return _Posizione
+'        End Get
+'        Set(ByVal value As String)
+'            _Posizione = value
+'        End Set
+'    End Property
+
+'    Public Property Allineamento() As String
+'        Get
+'            Return _Allineamento
+'        End Get
+'        Set(ByVal value As String)
+'            _Allineamento = value
+'        End Set
+'    End Property
+
+'    Public Property Margine() As Integer
+'        Get
+'            Return _Margine
+'        End Get
+'        Set(ByVal value As Integer)
+'            _Margine = value
+'        End Set
+'    End Property
+
+'    Public Property LogoAltezza() As Integer
+'        Get
+'            Return _LogoAltezza
+'        End Get
+'        Set(ByVal value As Integer)
+'            _LogoAltezza = value
+'        End Set
+'    End Property
+
+'    Public Property LogoLarghezza() As Integer
+'        Get
+'            Return _LogoLarghezza
+'        End Get
+'        Set(ByVal value As Integer)
+'            _LogoLarghezza = value
+'        End Set
+'    End Property
+
+'    Public Property fontColoreRGB() As Color
+'        Get
+'            Return _fontColoreRGB
+'        End Get
+'        Set(ByVal value As Color)
+'            _fontColoreRGB = value
+'        End Set
+'    End Property
+
+'    Public Property LogoAggiungi() As Boolean
+'        Get
+'            Return _LogoAggiungi
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _LogoAggiungi = value
+'        End Set
+'    End Property
+
+'    Public Property LogoNomeFile() As String
+'        Get
+'            Return _LogoNomeFile
+'        End Get
+'        Set(ByVal value As String)
+'            _LogoNomeFile = value
+'        End Set
+'    End Property
+
+'    Public Property LogoTrasparenza() As String
+'        Get
+'            Return _LogoTrasparenza
+'        End Get
+'        Set(ByVal value As String)
+'            _LogoTrasparenza = value
+'        End Set
+'    End Property
+
+'    Public Property LogoMargine() As String
+'        Get
+'            Return _LogoMargine
+'        End Get
+'        Set(ByVal value As String)
+'            _LogoMargine = value
+'        End Set
+'    End Property
+
+'    Public Property LogoPosizioneH() As String
+'        Get
+'            Return _LogoPosizioneH
+'        End Get
+'        Set(ByVal value As String)
+'            _LogoPosizioneH = value
+'        End Set
+'    End Property
+
+'    Public Property LogoPosizioneV() As String
+'        Get
+'            Return _LogoPosizioneV
+'        End Get
+'        Set(ByVal value As String)
+'            _LogoPosizioneV = value
+'        End Set
+'    End Property
+
+'    Public Property FotoGrandeDimOrigina() As Boolean
+'        Get
+'            Return _FotoGrandeDimOrigina
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _FotoGrandeDimOrigina = value
+'        End Set
+'    End Property
+
+'    Public Property AltezzaBig() As Integer
+'        Get
+'            Return _AltezzaBig
+'        End Get
+'        Set(ByVal value As Integer)
+'            _AltezzaBig = value
+'        End Set
+'    End Property
+
+'    Public Property LarghezzaBig() As Integer
+'        Get
+'            Return _LarghezzaBig
+'        End Get
+'        Set(ByVal value As Integer)
+'            _LarghezzaBig = value
+'        End Set
+'    End Property
+
+'    Public Property DestDir() As DirectoryInfo
+'        Get
+'            Return _DestDir
+'        End Get
+'        Set(ByVal value As DirectoryInfo)
+'            _DestDir = value
+'        End Set
+'    End Property
+
+'    Public Property DimVert() As Integer
+'        Get
+'            Return _DimVert
+
+'        End Get
+'        Set(ByVal value As Integer)
+'            _DimVert = value
+
+'        End Set
+'    End Property
+
+'    Public Property MargVert() As Integer
+'        Get
+'            Return _MargVert
+
+'        End Get
+'        Set(ByVal value As Integer)
+'            _MargVert = value
+'        End Set
+'    End Property
+
+'    Public Property TestoMin() As Boolean
+'        Get
+'            Return _TestoMin
+
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _TestoMin = value
+
+'        End Set
+'    End Property
+
+'    Public Property DimMin() As Integer
+'        Get
+'            Return _DimMin
+
+'        End Get
+'        Set(ByVal value As Integer)
+'            _DimMin = value
+
+'        End Set
+'    End Property
+
+'    Public Property SecretDefault() As Boolean
+'        Get
+'            Return _SecretDefault
+
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _SecretDefault = value
+
+'        End Set
+'    End Property
+
+'    Public Property SecretBig() As Boolean
+'        Get
+'            Return _SecretBig
+
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _SecretBig = value
+
+'        End Set
+'    End Property
+
+'    Public Property SecretSmall() As Boolean
+'        Get
+'            Return _SecretSmall
+
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _SecretSmall = value
+
+'        End Set
+'    End Property
+
+'    Public Property SecretPathSmall() As String
+'        Get
+'            Return _SecretPathSmall
+
+'        End Get
+'        Set(ByVal value As String)
+'            _SecretPathSmall = value
+
+'        End Set
+'    End Property
+
+'    Public Property SecretPathBig() As String
+'        Get
+'            Return _SecretPathBig
 
-    Public Property AggTempoGaraMin() As Boolean
-        Get
-            Return _AggTempoGaraMin
+'        End Get
+'        Set(ByVal value As String)
+'            _SecretPathBig = value
 
-        End Get
-        Set(ByVal value As Boolean)
-            _AggTempoGaraMin = value
+'        End Set
+'    End Property
 
-        End Set
-    End Property
+'    Public Property AggTempoGaraMin() As Boolean
+'        Get
+'            Return _AggTempoGaraMin
 
-    Public Property AggNumTempMin() As Boolean
-        Get
-            Return _AggNumTempMin
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _AggTempoGaraMin = value
 
-        End Get
-        Set(ByVal value As Boolean)
-            _AggNumTempMin = value
+'        End Set
+'    End Property
 
-        End Set
-    End Property
+'    Public Property AggNumTempMin() As Boolean
+'        Get
+'            Return _AggNumTempMin
 
-    Public Property jpegQuality() As Long
-        Get
-            Return _jpegQuality
-        End Get
-        Set(ByVal value As Long)
-            _jpegQuality = value
-        End Set
+'        End Get
+'        Set(ByVal value As Boolean)
+'            _AggNumTempMin = value
 
-    End Property
+'        End Set
+'    End Property
 
-    Public Property jpegQualityMin() As Long
-        Get
-            Return _jpegQualityMin
-        End Get
-        Set(ByVal value As Long)
-            _jpegQualityMin = value
-        End Set
+'    Public Property jpegQuality() As Long
+'        Get
+'            Return _jpegQuality
+'        End Get
+'        Set(ByVal value As Long)
+'            _jpegQuality = value
+'        End Set
 
-    End Property
-End Module
+'    End Property
+
+'    Public Property jpegQualityMin() As Long
+'        Get
+'            Return _jpegQualityMin
+'        End Get
+'        Set(ByVal value As Long)
+'            _jpegQualityMin = value
+'        End Set
+
+'    End Property
+'End Module
diff --git a/imagecatalog/XYThreadPool.vb b/imagecatalog/XYThreadPool.vb
index d80789a..63460d9 100644
--- a/imagecatalog/XYThreadPool.vb
+++ b/imagecatalog/XYThreadPool.vb
@@ -1,5 +1,5 @@
 Option Explicit On
-Option Strict On
+Option Strict Off
 
 Imports System.Threading
 Imports System.Collections
diff --git a/imagecatalog/app.config b/imagecatalog/app.config
index e875fb8..a2b3d96 100644
--- a/imagecatalog/app.config
+++ b/imagecatalog/app.config
@@ -1,23 +1,36 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <system.diagnostics>
         <sources>
             <!-- Questa sezione definisce la configurazione di registrazione per My.Application.Log -->
             <source name="DefaultSource" switchName="DefaultSwitch">
                 <listeners>
-                    <add name="FileLog"/>
+                    <add name="FileLog" />
                     <!-- Per scrivere nel log eventi dell'applicazione, rimuovere il commento dalla sezione sottostante -->
                     <!--<add name="EventLog"/>-->
                 </listeners>
             </source>
         </sources>
         <switches>
-            <add name="DefaultSwitch" value="Information"/>
+            <add name="DefaultSwitch" value="Information" />
         </switches>
         <sharedListeners>
-            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
             <!-- Per scrivere nel log eventi dell'applicazione, rimuovere il commento dalla sezione sottostante e sostituire APPLICATION_NAME con il nome dell'applicazione -->
             <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
         </sharedListeners>
     </system.diagnostics>
-<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2"/></startup></configuration>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" /></startup>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Bcl.AsyncInterfaces" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</configuration>
diff --git a/imagecatalog/packages.config b/imagecatalog/packages.config
new file mode 100644
index 0000000..61c13e3
--- /dev/null
+++ b/imagecatalog/packages.config
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Ben.Demystifier" version="0.3.0" targetFramework="net472" />
+  <package id="System.Buffers" version="4.5.1" targetFramework="net472" />
+  <package id="System.Collections.Immutable" version="5.0.0" targetFramework="net472" />
+  <package id="System.Memory" version="4.5.4" targetFramework="net472" />
+  <package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net472" />
+  <package id="System.Reflection.Metadata" version="5.0.0" targetFramework="net472" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="4.5.3" targetFramework="net472" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net472" />
+</packages>
\ No newline at end of file