Catalog/imagecatalog/Form1.vb

Imports System.IO
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)

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Label27 As System.Windows.Forms.Label
    Friend WithEvents TextBox13 As System.Windows.Forms.TextBox
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents Label43 As System.Windows.Forms.Label
    Friend WithEvents CheckBox22 As System.Windows.Forms.CheckBox
    Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox19 As System.Windows.Forms.TextBox
    Friend WithEvents Label28 As System.Windows.Forms.Label
    Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox15 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox14 As System.Windows.Forms.TextBox
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents TextBox16 As System.Windows.Forms.TextBox
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
    Friend WithEvents Label29 As System.Windows.Forms.Label
    Friend WithEvents Label30 As System.Windows.Forms.Label
    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton7 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox26 As System.Windows.Forms.TextBox
    Friend WithEvents Label37 As System.Windows.Forms.Label
    Friend WithEvents Label38 As System.Windows.Forms.Label
    Friend WithEvents TextBox27 As System.Windows.Forms.TextBox
    Friend WithEvents Label39 As System.Windows.Forms.Label
    Friend WithEvents TextBox28 As System.Windows.Forms.TextBox
    Friend WithEvents CheckBox15 As System.Windows.Forms.CheckBox
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
    Friend WithEvents Label42 As System.Windows.Forms.Label
    Friend WithEvents Label41 As System.Windows.Forms.Label
    Friend WithEvents TextBox31 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox30 As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
    Friend WithEvents CheckBox17 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox16 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Label36 As System.Windows.Forms.Label
    Friend WithEvents TextBox25 As System.Windows.Forms.TextBox
    Friend WithEvents Label35 As System.Windows.Forms.Label
    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents Label40 As System.Windows.Forms.Label
    Friend WithEvents TextBox29 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox18 As System.Windows.Forms.TextBox
    Friend WithEvents Label26 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
    Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
    Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents TextBox21 As System.Windows.Forms.TextBox
    Friend WithEvents Label34 As System.Windows.Forms.Label
    Friend WithEvents TextBox20 As System.Windows.Forms.TextBox
    Friend WithEvents Label33 As System.Windows.Forms.Label
    Friend WithEvents Label31 As System.Windows.Forms.Label
    Friend WithEvents CheckBox11 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox17 As System.Windows.Forms.TextBox
    Friend WithEvents Label32 As System.Windows.Forms.Label
    Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
    Friend WithEvents CheckBox10 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox9 As System.Windows.Forms.CheckBox
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents Label45 As System.Windows.Forms.Label
    Friend WithEvents TextBox32 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox33 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox34 As System.Windows.Forms.TextBox
    Friend WithEvents Label46 As System.Windows.Forms.Label
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents CheckBox18 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox12 As System.Windows.Forms.CheckBox
    Friend WithEvents Label44 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.Label27 = New System.Windows.Forms.Label()
        Me.TextBox13 = New System.Windows.Forms.TextBox()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.TextBox7 = New System.Windows.Forms.TextBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.TextBox8 = New System.Windows.Forms.TextBox()
        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
        Me.Label43 = New System.Windows.Forms.Label()
        Me.CheckBox22 = New System.Windows.Forms.CheckBox()
        Me.Label44 = New System.Windows.Forms.Label()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
        Me.TextBox19 = New System.Windows.Forms.TextBox()
        Me.Label28 = New System.Windows.Forms.Label()
        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
        Me.TextBox15 = New System.Windows.Forms.TextBox()
        Me.TextBox14 = New System.Windows.Forms.TextBox()
        Me.Label25 = New System.Windows.Forms.Label()
        Me.TextBox16 = New System.Windows.Forms.TextBox()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.TextBox10 = New System.Windows.Forms.TextBox()
        Me.Label29 = New System.Windows.Forms.Label()
        Me.Label30 = New System.Windows.Forms.Label()
        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Label46 = New System.Windows.Forms.Label()
        Me.TextBox33 = New System.Windows.Forms.TextBox()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
        Me.RadioButton7 = New System.Windows.Forms.RadioButton()
        Me.RadioButton4 = New System.Windows.Forms.RadioButton()
        Me.RadioButton6 = New System.Windows.Forms.RadioButton()
        Me.RadioButton5 = New System.Windows.Forms.RadioButton()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.TextBox6 = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.Label45 = New System.Windows.Forms.Label()
        Me.TextBox32 = New System.Windows.Forms.TextBox()
        Me.TextBox26 = New System.Windows.Forms.TextBox()
        Me.Label37 = New System.Windows.Forms.Label()
        Me.Label38 = New System.Windows.Forms.Label()
        Me.TextBox27 = New System.Windows.Forms.TextBox()
        Me.Label39 = New System.Windows.Forms.Label()
        Me.TextBox28 = New System.Windows.Forms.TextBox()
        Me.CheckBox15 = New System.Windows.Forms.CheckBox()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
        Me.Label42 = New System.Windows.Forms.Label()
        Me.Label41 = New System.Windows.Forms.Label()
        Me.TextBox31 = New System.Windows.Forms.TextBox()
        Me.TextBox30 = New System.Windows.Forms.TextBox()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
        Me.CheckBox17 = New System.Windows.Forms.CheckBox()
        Me.CheckBox16 = New System.Windows.Forms.CheckBox()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.TextBox34 = New System.Windows.Forms.TextBox()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Label36 = New System.Windows.Forms.Label()
        Me.TextBox25 = New System.Windows.Forms.TextBox()
        Me.Label35 = New System.Windows.Forms.Label()
        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
        Me.TextBox11 = New System.Windows.Forms.TextBox()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.Label40 = New System.Windows.Forms.Label()
        Me.TextBox29 = New System.Windows.Forms.TextBox()
        Me.TextBox18 = New System.Windows.Forms.TextBox()
        Me.Label26 = New System.Windows.Forms.Label()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
        Me.CheckBox8 = New System.Windows.Forms.CheckBox()
        Me.TextBox9 = New System.Windows.Forms.TextBox()
        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.TextBox12 = New System.Windows.Forms.TextBox()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.TabPage5 = New System.Windows.Forms.TabPage()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
        Me.RadioButton2 = New System.Windows.Forms.RadioButton()
        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
        Me.TextBox21 = New System.Windows.Forms.TextBox()
        Me.Label34 = New System.Windows.Forms.Label()
        Me.TextBox20 = New System.Windows.Forms.TextBox()
        Me.Label33 = New System.Windows.Forms.Label()
        Me.Label31 = New System.Windows.Forms.Label()
        Me.CheckBox11 = New System.Windows.Forms.CheckBox()
        Me.TextBox17 = New System.Windows.Forms.TextBox()
        Me.Label32 = New System.Windows.Forms.Label()
        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
        Me.CheckBox10 = New System.Windows.Forms.CheckBox()
        Me.CheckBox9 = New System.Windows.Forms.CheckBox()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
        Me.CheckBox12 = New System.Windows.Forms.CheckBox()
        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
        Me.CheckBox18 = New System.Windows.Forms.CheckBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.TabPage4.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage1.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.GroupBox10.SuspendLayout()
        Me.GroupBox9.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.TabPage5.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox8.SuspendLayout()
        Me.GroupBox7.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.Location = New System.Drawing.Point(539, 77)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(192, 39)
        Me.Button1.TabIndex = 2
        Me.Button1.Text = "crea catalogo"
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.Location = New System.Drawing.Point(539, 163)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(192, 72)
        Me.Label10.TabIndex = 21
        Me.Label10.Text = "file"
        '
        'Label17
        '
        Me.Label17.AutoSize = True
        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label17.Location = New System.Drawing.Point(643, 243)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(19, 20)
        Me.Label17.TabIndex = 38
        Me.Label17.Text = "0"
        '
        'Label18
        '
        Me.Label18.AutoSize = True
        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label18.Location = New System.Drawing.Point(643, 262)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(19, 20)
        Me.Label18.TabIndex = 39
        Me.Label18.Text = "0"
        '
        'Label19
        '
        Me.Label19.AutoSize = True
        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label19.Location = New System.Drawing.Point(539, 243)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(80, 16)
        Me.Label19.TabIndex = 40
        Me.Label19.Text = "foto totali: "
        '
        'Label20
        '
        Me.Label20.AutoSize = True
        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label20.Location = New System.Drawing.Point(539, 262)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(104, 16)
        Me.Label20.TabIndex = 41
        Me.Label20.Text = "foto generate:"
        '
        'Button6
        '
        Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button6.Location = New System.Drawing.Point(539, 12)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(192, 32)
        Me.Button6.TabIndex = 12
        Me.Button6.Text = "Carica impostazioni"
        '
        'Button5
        '
        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button5.Location = New System.Drawing.Point(539, 43)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(192, 32)
        Me.Button5.TabIndex = 43
        Me.Button5.Text = "Salva impostazioni"
        '
        'Button7
        '
        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button7.Location = New System.Drawing.Point(539, 120)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(192, 40)
        Me.Button7.TabIndex = 44
        Me.Button7.Text = "stop creazione"
        '
        'Label27
        '
        Me.Label27.Location = New System.Drawing.Point(591, 346)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(140, 20)
        Me.Label27.TabIndex = 46
        Me.Label27.Text = "Versione 2.0 BETA 1"
        Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox13
        '
        Me.TextBox13.Location = New System.Drawing.Point(224, 48)
        Me.TextBox13.Name = "TextBox13"
        Me.TextBox13.Size = New System.Drawing.Size(56, 20)
        Me.TextBox13.TabIndex = 20
        Me.TextBox13.Text = "TextBox13"
        '
        'Label16
        '
        Me.Label16.ForeColor = System.Drawing.Color.Black
        Me.Label16.Location = New System.Drawing.Point(168, 48)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(48, 16)
        Me.Label16.TabIndex = 19
        Me.Label16.Text = "Suffisso"
        Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.ForeColor = System.Drawing.Color.Black
        Me.Label7.Location = New System.Drawing.Point(24, 24)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(41, 13)
        Me.Label7.TabIndex = 16
        Me.Label7.Text = "Altezza"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(72, 24)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(72, 20)
        Me.TextBox7.TabIndex = 14
        Me.TextBox7.Text = "TextBox7"
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.ForeColor = System.Drawing.Color.Black
        Me.Label8.Location = New System.Drawing.Point(8, 48)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 13)
        Me.Label8.TabIndex = 17
        Me.Label8.Text = "Larghezza"
        '
        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(72, 48)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(72, 20)
        Me.TextBox8.TabIndex = 15
        Me.TextBox8.Text = "TextBox8"
        '
        'CheckBox2
        '
        Me.CheckBox2.Checked = True
        Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckBox2.ForeColor = System.Drawing.Color.Black
        Me.CheckBox2.Location = New System.Drawing.Point(168, 16)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.Size = New System.Drawing.Size(120, 32)
        Me.CheckBox2.TabIndex = 18
        Me.CheckBox2.Text = "Mantieni dimensioni originali"
        '
        'Label43
        '
        Me.Label43.AutoSize = True
        Me.Label43.Location = New System.Drawing.Point(651, 303)
        Me.Label43.Name = "Label43"
        Me.Label43.Size = New System.Drawing.Size(25, 13)
        Me.Label43.TabIndex = 49
        Me.Label43.Text = "000"
        '
        'CheckBox22
        '
        Me.CheckBox22.AutoSize = True
        Me.CheckBox22.Location = New System.Drawing.Point(539, 326)
        Me.CheckBox22.Name = "CheckBox22"
        Me.CheckBox22.Size = New System.Drawing.Size(104, 17)
        Me.CheckBox22.TabIndex = 50
        Me.CheckBox22.Text = "Arresta il sistema"
        Me.CheckBox22.UseVisualStyleBackColor = True
        '
        'Label44
        '
        Me.Label44.AutoSize = True
        Me.Label44.Location = New System.Drawing.Point(539, 303)
        Me.Label44.Name = "Label44"
        Me.Label44.Size = New System.Drawing.Size(106, 13)
        Me.Label44.TabIndex = 51
        Me.Label44.Text = "Tempo elaborazione:"
        '
        'TabPage4
        '
        Me.TabPage4.Controls.Add(Me.GroupBox6)
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage4.Size = New System.Drawing.Size(513, 326)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Logo"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.PictureBox2)
        Me.GroupBox6.Controls.Add(Me.PictureBox1)
        Me.GroupBox6.Controls.Add(Me.ComboBox5)
        Me.GroupBox6.Controls.Add(Me.ComboBox4)
        Me.GroupBox6.Controls.Add(Me.TextBox19)
        Me.GroupBox6.Controls.Add(Me.Label28)
        Me.GroupBox6.Controls.Add(Me.CheckBox5)
        Me.GroupBox6.Controls.Add(Me.TextBox15)
        Me.GroupBox6.Controls.Add(Me.TextBox14)
        Me.GroupBox6.Controls.Add(Me.Label25)
        Me.GroupBox6.Controls.Add(Me.TextBox16)
        Me.GroupBox6.Controls.Add(Me.Label24)
        Me.GroupBox6.Controls.Add(Me.Label22)
        Me.GroupBox6.Controls.Add(Me.Label23)
        Me.GroupBox6.Controls.Add(Me.Button4)
        Me.GroupBox6.Controls.Add(Me.TextBox10)
        Me.GroupBox6.Controls.Add(Me.Label29)
        Me.GroupBox6.Controls.Add(Me.Label30)
        Me.GroupBox6.Controls.Add(Me.PictureBox3)
        Me.GroupBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox6.Location = New System.Drawing.Point(6, 6)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(496, 224)
        Me.GroupBox6.TabIndex = 42
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Logo"
        '
        'PictureBox2
        '
        Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.PictureBox2.Location = New System.Drawing.Point(144, 192)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(24, 24)
        Me.PictureBox2.TabIndex = 44
        Me.PictureBox2.TabStop = False
        Me.PictureBox2.Visible = False
        '
        'PictureBox1
        '
        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Cross
        Me.PictureBox1.Location = New System.Drawing.Point(256, 56)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(224, 160)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 43
        Me.PictureBox1.TabStop = False
        '
        'ComboBox5
        '
        Me.ComboBox5.Location = New System.Drawing.Point(144, 168)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(96, 21)
        Me.ComboBox5.TabIndex = 42
        Me.ComboBox5.Text = "ComboBox5"
        '
        'ComboBox4
        '
        Me.ComboBox4.Location = New System.Drawing.Point(144, 144)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(96, 21)
        Me.ComboBox4.TabIndex = 41
        Me.ComboBox4.Text = "ComboBox4"
        '
        'TextBox19
        '
        Me.TextBox19.Location = New System.Drawing.Point(144, 96)
        Me.TextBox19.Name = "TextBox19"
        Me.TextBox19.Size = New System.Drawing.Size(96, 20)
        Me.TextBox19.TabIndex = 40
        Me.TextBox19.Text = "TextBox19"
        '
        'Label28
        '
        Me.Label28.ForeColor = System.Drawing.Color.Black
        Me.Label28.Location = New System.Drawing.Point(17, 97)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(120, 16)
        Me.Label28.TabIndex = 39
        Me.Label28.Text = "Trasparenza (0-100%)"
        Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'CheckBox5
        '
        Me.CheckBox5.ForeColor = System.Drawing.Color.Black
        Me.CheckBox5.Location = New System.Drawing.Point(0, 26)
        Me.CheckBox5.Name = "CheckBox5"
        Me.CheckBox5.Size = New System.Drawing.Size(72, 20)
        Me.CheckBox5.TabIndex = 38
        Me.CheckBox5.Text = "Aggiungi"
        '
        'TextBox15
        '
        Me.TextBox15.Location = New System.Drawing.Point(144, 72)
        Me.TextBox15.Name = "TextBox15"
        Me.TextBox15.Size = New System.Drawing.Size(96, 20)
        Me.TextBox15.TabIndex = 19
        Me.TextBox15.Text = "TextBox15"
        '
        'TextBox14
        '
        Me.TextBox14.Location = New System.Drawing.Point(144, 48)
        Me.TextBox14.Name = "TextBox14"
        Me.TextBox14.Size = New System.Drawing.Size(96, 20)
        Me.TextBox14.TabIndex = 18
        Me.TextBox14.Text = "TextBox14"
        '
        'Label25
        '
        Me.Label25.AutoSize = True
        Me.Label25.ForeColor = System.Drawing.Color.Black
        Me.Label25.Location = New System.Drawing.Point(17, 168)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(95, 13)
        Me.Label25.TabIndex = 36
        Me.Label25.Text = "Posizione verticale"
        Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'TextBox16
        '
        Me.TextBox16.Location = New System.Drawing.Point(144, 120)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.Size = New System.Drawing.Size(96, 20)
        Me.TextBox16.TabIndex = 35
        Me.TextBox16.Text = "TextBox16"
        '
        'Label24
        '
        Me.Label24.AutoSize = True
        Me.Label24.ForeColor = System.Drawing.Color.Black
        Me.Label24.Location = New System.Drawing.Point(19, 123)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(88, 13)
        Me.Label24.TabIndex = 34
        Me.Label24.Text = "Margine (pixel/%)"
        Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label22
        '
        Me.Label22.AutoSize = True
        Me.Label22.ForeColor = System.Drawing.Color.Black
        Me.Label22.Location = New System.Drawing.Point(19, 51)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(41, 13)
        Me.Label22.TabIndex = 20
        Me.Label22.Text = "Altezza"
        Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label23
        '
        Me.Label23.AutoSize = True
        Me.Label23.ForeColor = System.Drawing.Color.Black
        Me.Label23.Location = New System.Drawing.Point(19, 75)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(56, 13)
        Me.Label23.TabIndex = 21
        Me.Label23.Text = "Larghezza"
        Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(464, 24)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(24, 20)
        Me.Button4.TabIndex = 8
        Me.Button4.Text = "..."
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(144, 24)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(312, 20)
        Me.TextBox10.TabIndex = 6
        Me.TextBox10.Text = "TextBox10"
        '
        'Label29
        '
        Me.Label29.AutoSize = True
        Me.Label29.ForeColor = System.Drawing.Color.Black
        Me.Label29.Location = New System.Drawing.Point(17, 147)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(105, 13)
        Me.Label29.TabIndex = 36
        Me.Label29.Text = "Posizione orizzontale"
        Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label30
        '
        Me.Label30.AutoSize = True
        Me.Label30.ForeColor = System.Drawing.Color.Black
        Me.Label30.Location = New System.Drawing.Point(19, 203)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(93, 13)
        Me.Label30.TabIndex = 36
        Me.Label30.Text = "Colore trasparente"
        Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Label30.Visible = False
        '
        'PictureBox3
        '
        Me.PictureBox3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.PictureBox3.Location = New System.Drawing.Point(216, 192)
        Me.PictureBox3.Name = "PictureBox3"
        Me.PictureBox3.Size = New System.Drawing.Size(24, 24)
        Me.PictureBox3.TabIndex = 44
        Me.PictureBox3.TabStop = False
        Me.PictureBox3.Visible = False
        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.Panel1)
        Me.TabPage1.Controls.Add(Me.GroupBox1)
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage1.Size = New System.Drawing.Size(513, 326)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Miniature"
        Me.TabPage1.UseVisualStyleBackColor = True
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Label46)
        Me.GroupBox1.Controls.Add(Me.TextBox33)
        Me.GroupBox1.Controls.Add(Me.Panel2)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.TextBox5)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.TextBox6)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.TextBox3)
        Me.GroupBox1.Controls.Add(Me.CheckBox1)
        Me.GroupBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox1.Location = New System.Drawing.Point(6, 5)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(350, 210)
        Me.GroupBox1.TabIndex = 25
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Miniature"
        '
        'Label46
        '
        Me.Label46.AutoSize = True
        Me.Label46.Location = New System.Drawing.Point(198, 43)
        Me.Label46.Name = "Label46"
        Me.Label46.Size = New System.Drawing.Size(40, 13)
        Me.Label46.TabIndex = 21
        Me.Label46.Text = "Qualit<EFBFBD>"
        '
        'TextBox33
        '
        Me.TextBox33.Location = New System.Drawing.Point(244, 40)
        Me.TextBox33.Name = "TextBox33"
        Me.TextBox33.Size = New System.Drawing.Size(100, 20)
        Me.TextBox33.TabIndex = 20
        '
        'Panel2
        '
        Me.Panel2.Controls.Add(Me.RadioButton3)
        Me.Panel2.Controls.Add(Me.RadioButton7)
        Me.Panel2.Controls.Add(Me.RadioButton4)
        Me.Panel2.Controls.Add(Me.RadioButton6)
        Me.Panel2.Controls.Add(Me.RadioButton5)
        Me.Panel2.Location = New System.Drawing.Point(56, 114)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(235, 90)
        Me.Panel2.TabIndex = 19
        '
        'RadioButton3
        '
        Me.RadioButton3.AutoSize = True
        Me.RadioButton3.Location = New System.Drawing.Point(15, 16)
        Me.RadioButton3.Name = "RadioButton3"
        Me.RadioButton3.Size = New System.Drawing.Size(99, 17)
        Me.RadioButton3.TabIndex = 14
        Me.RadioButton3.TabStop = True
        Me.RadioButton3.Text = "Aggiungi Scritta"
        Me.RadioButton3.UseVisualStyleBackColor = True
        '
        'RadioButton7
        '
        Me.RadioButton7.AutoSize = True
        Me.RadioButton7.Location = New System.Drawing.Point(129, 40)
        Me.RadioButton7.Name = "RadioButton7"
        Me.RadioButton7.Size = New System.Drawing.Size(95, 17)
        Me.RadioButton7.TabIndex = 18
        Me.RadioButton7.TabStop = True
        Me.RadioButton7.Text = "numero+tempo"
        Me.RadioButton7.UseVisualStyleBackColor = True
        '
        'RadioButton4
        '
        Me.RadioButton4.AutoSize = True
        Me.RadioButton4.Location = New System.Drawing.Point(15, 40)
        Me.RadioButton4.Name = "RadioButton4"
        Me.RadioButton4.Size = New System.Drawing.Size(95, 17)
        Me.RadioButton4.TabIndex = 15
        Me.RadioButton4.TabStop = True
        Me.RadioButton4.Text = "Aggiungi orario"
        Me.RadioButton4.UseVisualStyleBackColor = True
        '
        'RadioButton6
        '
        Me.RadioButton6.AutoSize = True
        Me.RadioButton6.Location = New System.Drawing.Point(129, 16)
        Me.RadioButton6.Name = "RadioButton6"
        Me.RadioButton6.Size = New System.Drawing.Size(83, 17)
        Me.RadioButton6.TabIndex = 17
        Me.RadioButton6.TabStop = True
        Me.RadioButton6.Text = "Numero foto"
        Me.RadioButton6.UseVisualStyleBackColor = True
        '
        'RadioButton5
        '
        Me.RadioButton5.AutoSize = True
        Me.RadioButton5.Location = New System.Drawing.Point(15, 65)
        Me.RadioButton5.Name = "RadioButton5"
        Me.RadioButton5.Size = New System.Drawing.Size(84, 17)
        Me.RadioButton5.TabIndex = 16
        Me.RadioButton5.TabStop = True
        Me.RadioButton5.Text = "Tempo Gara"
        Me.RadioButton5.UseVisualStyleBackColor = True
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.ForeColor = System.Drawing.Color.Black
        Me.Label5.Location = New System.Drawing.Point(24, 88)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(41, 13)
        Me.Label5.TabIndex = 12
        Me.Label5.Text = "Altezza"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(72, 64)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(88, 20)
        Me.TextBox5.TabIndex = 10
        Me.TextBox5.Text = "TextBox5"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.ForeColor = System.Drawing.Color.Black
        Me.Label6.Location = New System.Drawing.Point(8, 64)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 13)
        Me.Label6.TabIndex = 13
        Me.Label6.Text = "Larghezza"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(72, 88)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(88, 20)
        Me.TextBox6.TabIndex = 11
        Me.TextBox6.Text = "TextBox6"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.ForeColor = System.Drawing.Color.Black
        Me.Label3.Location = New System.Drawing.Point(24, 40)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(44, 13)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "Suffisso"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(72, 40)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(88, 20)
        Me.TextBox3.TabIndex = 6
        Me.TextBox3.Text = "TextBox3"
        '
        'CheckBox1
        '
        Me.CheckBox1.ForeColor = System.Drawing.Color.Black
        Me.CheckBox1.Location = New System.Drawing.Point(72, 16)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(104, 24)
        Me.CheckBox1.TabIndex = 5
        Me.CheckBox1.Text = "Crea miniature"
        '
        'TabPage2
        '
        Me.TabPage2.Controls.Add(Me.GroupBox2)
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage2.Size = New System.Drawing.Size(513, 326)
        Me.TabPage2.TabIndex = 5
        Me.TabPage2.Text = "Foto"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label45)
        Me.GroupBox2.Controls.Add(Me.TextBox32)
        Me.GroupBox2.Controls.Add(Me.TextBox26)
        Me.GroupBox2.Controls.Add(Me.Label37)
        Me.GroupBox2.Controls.Add(Me.Label38)
        Me.GroupBox2.Controls.Add(Me.TextBox27)
        Me.GroupBox2.Controls.Add(Me.Label39)
        Me.GroupBox2.Controls.Add(Me.TextBox28)
        Me.GroupBox2.Controls.Add(Me.CheckBox15)
        Me.GroupBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox2.Location = New System.Drawing.Point(3, 6)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(304, 156)
        Me.GroupBox2.TabIndex = 36
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Foto grande"
        '
        'Label45
        '
        Me.Label45.AutoSize = True
        Me.Label45.Location = New System.Drawing.Point(11, 86)
        Me.Label45.Name = "Label45"
        Me.Label45.Size = New System.Drawing.Size(40, 13)
        Me.Label45.TabIndex = 22
        Me.Label45.Text = "Qualit<EFBFBD>"
        '
        'TextBox32
        '
        Me.TextBox32.Location = New System.Drawing.Point(72, 80)
        Me.TextBox32.Name = "TextBox32"
        Me.TextBox32.Size = New System.Drawing.Size(72, 20)
        Me.TextBox32.TabIndex = 21
        Me.TextBox32.Text = "100"
        '
        'TextBox26
        '
        Me.TextBox26.Location = New System.Drawing.Point(224, 48)
        Me.TextBox26.Name = "TextBox26"
        Me.TextBox26.Size = New System.Drawing.Size(56, 20)
        Me.TextBox26.TabIndex = 20
        Me.TextBox26.Text = "TextBox26"
        '
        'Label37
        '
        Me.Label37.ForeColor = System.Drawing.Color.Black
        Me.Label37.Location = New System.Drawing.Point(168, 48)
        Me.Label37.Name = "Label37"
        Me.Label37.Size = New System.Drawing.Size(48, 16)
        Me.Label37.TabIndex = 19
        Me.Label37.Text = "Suffisso"
        Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label38
        '
        Me.Label38.AutoSize = True
        Me.Label38.ForeColor = System.Drawing.Color.Black
        Me.Label38.Location = New System.Drawing.Point(24, 24)
        Me.Label38.Name = "Label38"
        Me.Label38.Size = New System.Drawing.Size(41, 13)
        Me.Label38.TabIndex = 16
        Me.Label38.Text = "Altezza"
        '
        'TextBox27
        '
        Me.TextBox27.Location = New System.Drawing.Point(72, 24)
        Me.TextBox27.Name = "TextBox27"
        Me.TextBox27.Size = New System.Drawing.Size(72, 20)
        Me.TextBox27.TabIndex = 14
        Me.TextBox27.Text = "TextBox27"
        '
        'Label39
        '
        Me.Label39.AutoSize = True
        Me.Label39.ForeColor = System.Drawing.Color.Black
        Me.Label39.Location = New System.Drawing.Point(8, 48)
        Me.Label39.Name = "Label39"
        Me.Label39.Size = New System.Drawing.Size(56, 13)
        Me.Label39.TabIndex = 17
        Me.Label39.Text = "Larghezza"
        '
        'TextBox28
        '
        Me.TextBox28.Location = New System.Drawing.Point(72, 48)
        Me.TextBox28.Name = "TextBox28"
        Me.TextBox28.Size = New System.Drawing.Size(72, 20)
        Me.TextBox28.TabIndex = 15
        Me.TextBox28.Text = "TextBox28"
        '
        'CheckBox15
        '
        Me.CheckBox15.Checked = True
        Me.CheckBox15.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckBox15.ForeColor = System.Drawing.Color.Black
        Me.CheckBox15.Location = New System.Drawing.Point(168, 16)
        Me.CheckBox15.Name = "CheckBox15"
        Me.CheckBox15.Size = New System.Drawing.Size(120, 32)
        Me.CheckBox15.TabIndex = 18
        Me.CheckBox15.Text = "Mantieni dimensioni originali"
        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.GroupBox10)
        Me.TabPage3.Controls.Add(Me.GroupBox9)
        Me.TabPage3.Controls.Add(Me.GroupBox5)
        Me.TabPage3.Controls.Add(Me.GroupBox4)
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage3.Size = New System.Drawing.Size(513, 326)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Testo"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
        'GroupBox10
        '
        Me.GroupBox10.Controls.Add(Me.Label42)
        Me.GroupBox10.Controls.Add(Me.Label41)
        Me.GroupBox10.Controls.Add(Me.TextBox31)
        Me.GroupBox10.Controls.Add(Me.TextBox30)
        Me.GroupBox10.Location = New System.Drawing.Point(316, 53)
        Me.GroupBox10.Name = "GroupBox10"
        Me.GroupBox10.Size = New System.Drawing.Size(186, 73)
        Me.GroupBox10.TabIndex = 39
        Me.GroupBox10.TabStop = False
        Me.GroupBox10.Text = "Testo foto verticali"
        '
        'Label42
        '
        Me.Label42.AutoSize = True
        Me.Label42.Location = New System.Drawing.Point(7, 46)
        Me.Label42.Name = "Label42"
        Me.Label42.Size = New System.Drawing.Size(45, 13)
        Me.Label42.TabIndex = 3
        Me.Label42.Text = "Margine"
        '
        'Label41
        '
        Me.Label41.AutoSize = True
        Me.Label41.Location = New System.Drawing.Point(7, 25)
        Me.Label41.Name = "Label41"
        Me.Label41.Size = New System.Drawing.Size(108, 13)
        Me.Label41.TabIndex = 2
        Me.Label41.Text = "Dimensione Carattere"
        '
        'TextBox31
        '
        Me.TextBox31.Location = New System.Drawing.Point(131, 46)
        Me.TextBox31.Name = "TextBox31"
        Me.TextBox31.Size = New System.Drawing.Size(39, 20)
        Me.TextBox31.TabIndex = 1
        '
        'TextBox30
        '
        Me.TextBox30.Location = New System.Drawing.Point(131, 22)
        Me.TextBox30.Name = "TextBox30"
        Me.TextBox30.Size = New System.Drawing.Size(39, 20)
        Me.TextBox30.TabIndex = 0
        '
        'GroupBox9
        '
        Me.GroupBox9.Controls.Add(Me.CheckBox17)
        Me.GroupBox9.Controls.Add(Me.CheckBox16)
        Me.GroupBox9.Location = New System.Drawing.Point(316, 6)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(186, 45)
        Me.GroupBox9.TabIndex = 38
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Text = "Slide show"
        '
        'CheckBox17
        '
        Me.CheckBox17.AutoSize = True
        Me.CheckBox17.Location = New System.Drawing.Point(96, 18)
        Me.CheckBox17.Name = "CheckBox17"
        Me.CheckBox17.Size = New System.Drawing.Size(84, 17)
        Me.CheckBox17.TabIndex = 1
        Me.CheckBox17.Text = "Numero foto"
        Me.CheckBox17.UseVisualStyleBackColor = True
        '
        'CheckBox16
        '
        Me.CheckBox16.AutoSize = True
        Me.CheckBox16.Location = New System.Drawing.Point(6, 19)
        Me.CheckBox16.Name = "CheckBox16"
        Me.CheckBox16.Size = New System.Drawing.Size(49, 17)
        Me.CheckBox16.TabIndex = 0
        Me.CheckBox16.Text = "Data"
        Me.CheckBox16.UseVisualStyleBackColor = True
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.TextBox34)
        Me.GroupBox5.Controls.Add(Me.Button8)
        Me.GroupBox5.Controls.Add(Me.Label36)
        Me.GroupBox5.Controls.Add(Me.TextBox25)
        Me.GroupBox5.Controls.Add(Me.Label35)
        Me.GroupBox5.Controls.Add(Me.ComboBox3)
        Me.GroupBox5.Controls.Add(Me.TextBox11)
        Me.GroupBox5.Controls.Add(Me.Label12)
        Me.GroupBox5.Controls.Add(Me.Label11)
        Me.GroupBox5.Controls.Add(Me.CheckBox3)
        Me.GroupBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox5.Location = New System.Drawing.Point(6, 6)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(304, 120)
        Me.GroupBox5.TabIndex = 37
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Carattere"
        '
        'TextBox34
        '
        Me.TextBox34.Location = New System.Drawing.Point(160, 91)
        Me.TextBox34.Name = "TextBox34"
        Me.TextBox34.Size = New System.Drawing.Size(56, 20)
        Me.TextBox34.TabIndex = 36
        Me.TextBox34.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Button8
        '
        Me.Button8.ForeColor = System.Drawing.Color.Black
        Me.Button8.Location = New System.Drawing.Point(222, 89)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(74, 24)
        Me.Button8.TabIndex = 35
        Me.Button8.Text = "Scegli..."
        '
        'Label36
        '
        Me.Label36.ForeColor = System.Drawing.Color.Black
        Me.Label36.Location = New System.Drawing.Point(8, 60)
        Me.Label36.Name = "Label36"
        Me.Label36.Size = New System.Drawing.Size(120, 19)
        Me.Label36.TabIndex = 34
        Me.Label36.Text = "Dimensione miniatura"
        Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'TextBox25
        '
        Me.TextBox25.Location = New System.Drawing.Point(160, 59)
        Me.TextBox25.Name = "TextBox25"
        Me.TextBox25.Size = New System.Drawing.Size(56, 20)
        Me.TextBox25.TabIndex = 33
        Me.TextBox25.Text = "TextBox25"
        '
        'Label35
        '
        Me.Label35.ForeColor = System.Drawing.Color.Black
        Me.Label35.Location = New System.Drawing.Point(8, 93)
        Me.Label35.Name = "Label35"
        Me.Label35.Size = New System.Drawing.Size(72, 16)
        Me.Label35.TabIndex = 32
        Me.Label35.Text = "Colore RGB"
        Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'ComboBox3
        '
        Me.ComboBox3.Location = New System.Drawing.Point(96, 8)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(120, 21)
        Me.ComboBox3.TabIndex = 28
        Me.ComboBox3.Text = "ComboBox3"
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(160, 35)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(56, 20)
        Me.TextBox11.TabIndex = 27
        Me.TextBox11.Text = "TextBox11"
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.ForeColor = System.Drawing.Color.Black
        Me.Label12.Location = New System.Drawing.Point(8, 38)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(62, 13)
        Me.Label12.TabIndex = 26
        Me.Label12.Text = "Dimensione"
        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label11
        '
        Me.Label11.AutoSize = True
        Me.Label11.ForeColor = System.Drawing.Color.Black
        Me.Label11.Location = New System.Drawing.Point(56, 8)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(28, 13)
        Me.Label11.TabIndex = 22
        Me.Label11.Text = "Font"
        '
        'CheckBox3
        '
        Me.CheckBox3.ForeColor = System.Drawing.Color.Black
        Me.CheckBox3.Location = New System.Drawing.Point(224, 8)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.Size = New System.Drawing.Size(72, 24)
        Me.CheckBox3.TabIndex = 24
        Me.CheckBox3.Text = "Grassetto"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Label40)
        Me.GroupBox4.Controls.Add(Me.TextBox29)
        Me.GroupBox4.Controls.Add(Me.TextBox18)
        Me.GroupBox4.Controls.Add(Me.Label26)
        Me.GroupBox4.Controls.Add(Me.DateTimePicker1)
        Me.GroupBox4.Controls.Add(Me.CheckBox8)
        Me.GroupBox4.Controls.Add(Me.TextBox9)
        Me.GroupBox4.Controls.Add(Me.CheckBox7)
        Me.GroupBox4.Controls.Add(Me.Label4)
        Me.GroupBox4.Controls.Add(Me.TextBox4)
        Me.GroupBox4.Controls.Add(Me.Label9)
        Me.GroupBox4.Controls.Add(Me.Label13)
        Me.GroupBox4.Controls.Add(Me.ComboBox1)
        Me.GroupBox4.Controls.Add(Me.ComboBox2)
        Me.GroupBox4.Controls.Add(Me.Label14)
        Me.GroupBox4.Controls.Add(Me.TextBox12)
        Me.GroupBox4.Controls.Add(Me.Label15)
        Me.GroupBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox4.Location = New System.Drawing.Point(6, 132)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(496, 186)
        Me.GroupBox4.TabIndex = 36
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Testo da applicare"
        '
        'Label40
        '
        Me.Label40.AutoSize = True
        Me.Label40.Location = New System.Drawing.Point(8, 52)
        Me.Label40.Name = "Label40"
        Me.Label40.Size = New System.Drawing.Size(48, 13)
        Me.Label40.TabIndex = 40
        Me.Label40.Text = "Verticale"
        '
        'TextBox29
        '
        Me.TextBox29.Location = New System.Drawing.Point(72, 49)
        Me.TextBox29.Multiline = True
        Me.TextBox29.Name = "TextBox29"
        Me.TextBox29.Size = New System.Drawing.Size(408, 44)
        Me.TextBox29.TabIndex = 39
        '
        'TextBox18
        '
        Me.TextBox18.Location = New System.Drawing.Point(232, 156)
        Me.TextBox18.Name = "TextBox18"
        Me.TextBox18.Size = New System.Drawing.Size(100, 20)
        Me.TextBox18.TabIndex = 38
        '
        'Label26
        '
        Me.Label26.AutoSize = True
        Me.Label26.ForeColor = System.Drawing.Color.Black
        Me.Label26.Location = New System.Drawing.Point(344, 156)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(48, 13)
        Me.Label26.TabIndex = 37
        Me.Label26.Text = "partenza"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time
        Me.DateTimePicker1.Location = New System.Drawing.Point(392, 156)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(88, 20)
        Me.DateTimePicker1.TabIndex = 36
        '
        'CheckBox8
        '
        Me.CheckBox8.ForeColor = System.Drawing.Color.Black
        Me.CheckBox8.Location = New System.Drawing.Point(72, 156)
        Me.CheckBox8.Name = "CheckBox8"
        Me.CheckBox8.Size = New System.Drawing.Size(56, 16)
        Me.CheckBox8.TabIndex = 35
        Me.CheckBox8.Text = "Orario"
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(120, 108)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(56, 20)
        Me.TextBox9.TabIndex = 20
        Me.TextBox9.Text = "TextBox9"
        '
        'CheckBox7
        '
        Me.CheckBox7.ForeColor = System.Drawing.Color.Black
        Me.CheckBox7.Location = New System.Drawing.Point(136, 156)
        Me.CheckBox7.Name = "CheckBox7"
        Me.CheckBox7.Size = New System.Drawing.Size(88, 16)
        Me.CheckBox7.TabIndex = 34
        Me.CheckBox7.Text = "Tempo gara"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.ForeColor = System.Drawing.Color.Black
        Me.Label4.Location = New System.Drawing.Point(8, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(59, 13)
        Me.Label4.TabIndex = 9
        Me.Label4.Text = "Orizzontale"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(72, 24)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(408, 20)
        Me.TextBox4.TabIndex = 8
        Me.TextBox4.Text = "TextBox4"
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.ForeColor = System.Drawing.Color.Black
        Me.Label9.Location = New System.Drawing.Point(8, 108)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(110, 13)
        Me.Label9.TabIndex = 19
        Me.Label9.Text = "Trasparenza (0-100%)"
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.ForeColor = System.Drawing.Color.Black
        Me.Label13.Location = New System.Drawing.Point(16, 132)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(52, 13)
        Me.Label13.TabIndex = 29
        Me.Label13.Text = "Posizione"
        '
        'ComboBox1
        '
        Me.ComboBox1.Location = New System.Drawing.Point(72, 132)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(104, 21)
        Me.ComboBox1.TabIndex = 28
        Me.ComboBox1.Text = "ComboBox1"
        '
        'ComboBox2
        '
        Me.ComboBox2.Location = New System.Drawing.Point(376, 132)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(104, 21)
        Me.ComboBox2.TabIndex = 31
        Me.ComboBox2.Text = "ComboBox2"
        '
        'Label14
        '
        Me.Label14.AutoSize = True
        Me.Label14.ForeColor = System.Drawing.Color.Black
        Me.Label14.Location = New System.Drawing.Point(304, 132)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(67, 13)
        Me.Label14.TabIndex = 30
        Me.Label14.Text = "Allineamento"
        '
        'TextBox12
        '
        Me.TextBox12.Location = New System.Drawing.Point(376, 108)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.Size = New System.Drawing.Size(104, 20)
        Me.TextBox12.TabIndex = 33
        Me.TextBox12.Text = "TextBox12"
        '
        'Label15
        '
        Me.Label15.AutoSize = True
        Me.Label15.ForeColor = System.Drawing.Color.Black
        Me.Label15.Location = New System.Drawing.Point(296, 108)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(75, 13)
        Me.Label15.TabIndex = 32
        Me.Label15.Text = "Margine (pixel)"
        '
        'TabPage5
        '
        Me.TabPage5.Controls.Add(Me.GroupBox3)
        Me.TabPage5.Controls.Add(Me.GroupBox8)
        Me.TabPage5.Controls.Add(Me.GroupBox7)
        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage5.Size = New System.Drawing.Size(513, 326)
        Me.TabPage5.TabIndex = 4
        Me.TabPage5.Text = "Generale"
        Me.TabPage5.UseVisualStyleBackColor = True
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.CheckBox6)
        Me.GroupBox3.Controls.Add(Me.Button3)
        Me.GroupBox3.Controls.Add(Me.Button2)
        Me.GroupBox3.Controls.Add(Me.Label1)
        Me.GroupBox3.Controls.Add(Me.Label2)
        Me.GroupBox3.Controls.Add(Me.TextBox1)
        Me.GroupBox3.Controls.Add(Me.TextBox2)
        Me.GroupBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox3.Location = New System.Drawing.Point(6, 6)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(496, 101)
        Me.GroupBox3.TabIndex = 35
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Directory"
        '
        'CheckBox6
        '
        Me.CheckBox6.ForeColor = System.Drawing.Color.Black
        Me.CheckBox6.Location = New System.Drawing.Point(80, 64)
        Me.CheckBox6.Name = "CheckBox6"
        Me.CheckBox6.Size = New System.Drawing.Size(152, 24)
        Me.CheckBox6.TabIndex = 25
        Me.CheckBox6.Text = "aggiorna le sottodirectory"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(462, 40)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(24, 20)
        Me.Button3.TabIndex = 6
        Me.Button3.Text = "..."
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(462, 16)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(24, 20)
        Me.Button2.TabIndex = 5
        Me.Button2.Text = "..."
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.Black
        Me.Label1.Location = New System.Drawing.Point(6, 19)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(50, 13)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "Sorgente"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.Black
        Me.Label2.Location = New System.Drawing.Point(6, 43)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(68, 13)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "Destinazione"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(80, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(376, 20)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = "TextBox1"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(80, 40)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(376, 20)
        Me.TextBox2.TabIndex = 1
        Me.TextBox2.Text = "TextBox2"
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.Add(Me.RadioButton2)
        Me.GroupBox8.Controls.Add(Me.RadioButton1)
        Me.GroupBox8.Controls.Add(Me.TextBox21)
        Me.GroupBox8.Controls.Add(Me.Label34)
        Me.GroupBox8.Controls.Add(Me.TextBox20)
        Me.GroupBox8.Controls.Add(Me.Label33)
        Me.GroupBox8.Controls.Add(Me.Label31)
        Me.GroupBox8.Controls.Add(Me.CheckBox11)
        Me.GroupBox8.Controls.Add(Me.TextBox17)
        Me.GroupBox8.Controls.Add(Me.Label32)
        Me.GroupBox8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox8.Location = New System.Drawing.Point(204, 113)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(192, 152)
        Me.GroupBox8.TabIndex = 47
        Me.GroupBox8.TabStop = False
        Me.GroupBox8.Text = "Sottocartelle"
        '
        'RadioButton2
        '
        Me.RadioButton2.ForeColor = System.Drawing.Color.Black
        Me.RadioButton2.Location = New System.Drawing.Point(32, 128)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(136, 16)
        Me.RadioButton2.TabIndex = 38
        Me.RadioButton2.Text = "Numerazione files"
        '
        'RadioButton1
        '
        Me.RadioButton1.Checked = True
        Me.RadioButton1.ForeColor = System.Drawing.Color.Black
        Me.RadioButton1.Location = New System.Drawing.Point(32, 112)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(152, 16)
        Me.RadioButton1.TabIndex = 37
        Me.RadioButton1.TabStop = True
        Me.RadioButton1.Text = "Numerazione progressiva"
        '
        'TextBox21
        '
        Me.TextBox21.Location = New System.Drawing.Point(128, 88)
        Me.TextBox21.Name = "TextBox21"
        Me.TextBox21.Size = New System.Drawing.Size(56, 20)
        Me.TextBox21.TabIndex = 34
        Me.TextBox21.Text = "4"
        '
        'Label34
        '
        Me.Label34.ForeColor = System.Drawing.Color.Black
        Me.Label34.Location = New System.Drawing.Point(8, 88)
        Me.Label34.Name = "Label34"
        Me.Label34.Size = New System.Drawing.Size(112, 16)
        Me.Label34.TabIndex = 33
        Me.Label34.Text = "Num. cifre contatore"
        Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox20
        '
        Me.TextBox20.Location = New System.Drawing.Point(56, 64)
        Me.TextBox20.Name = "TextBox20"
        Me.TextBox20.Size = New System.Drawing.Size(128, 20)
        Me.TextBox20.TabIndex = 32
        Me.TextBox20.Text = "TextBox20"
        '
        'Label33
        '
        Me.Label33.ForeColor = System.Drawing.Color.Black
        Me.Label33.Location = New System.Drawing.Point(6, 67)
        Me.Label33.Name = "Label33"
        Me.Label33.Size = New System.Drawing.Size(48, 16)
        Me.Label33.TabIndex = 31
        Me.Label33.Text = "Suffisso"
        '
        'Label31
        '
        Me.Label31.ForeColor = System.Drawing.Color.Black
        Me.Label31.Location = New System.Drawing.Point(24, 40)
        Me.Label31.Name = "Label31"
        Me.Label31.Size = New System.Drawing.Size(32, 16)
        Me.Label31.TabIndex = 30
        Me.Label31.Text = "ogni"
        '
        'CheckBox11
        '
        Me.CheckBox11.ForeColor = System.Drawing.Color.Black
        Me.CheckBox11.Location = New System.Drawing.Point(56, 16)
        Me.CheckBox11.Name = "CheckBox11"
        Me.CheckBox11.Size = New System.Drawing.Size(112, 16)
        Me.CheckBox11.TabIndex = 29
        Me.CheckBox11.Text = "crea sottocartelle"
        '
        'TextBox17
        '
        Me.TextBox17.Location = New System.Drawing.Point(56, 40)
        Me.TextBox17.Name = "TextBox17"
        Me.TextBox17.Size = New System.Drawing.Size(64, 20)
        Me.TextBox17.TabIndex = 27
        Me.TextBox17.Text = "99"
        '
        'Label32
        '
        Me.Label32.ForeColor = System.Drawing.Color.Black
        Me.Label32.Location = New System.Drawing.Point(128, 40)
        Me.Label32.Name = "Label32"
        Me.Label32.Size = New System.Drawing.Size(24, 16)
        Me.Label32.TabIndex = 28
        Me.Label32.Text = "file"
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.CheckBox10)
        Me.GroupBox7.Controls.Add(Me.CheckBox9)
        Me.GroupBox7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.GroupBox7.Location = New System.Drawing.Point(6, 113)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(192, 88)
        Me.GroupBox7.TabIndex = 45
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "Generale"
        '
        'CheckBox10
        '
        Me.CheckBox10.ForeColor = System.Drawing.Color.Black
        Me.CheckBox10.Location = New System.Drawing.Point(16, 37)
        Me.CheckBox10.Name = "CheckBox10"
        Me.CheckBox10.Size = New System.Drawing.Size(136, 16)
        Me.CheckBox10.TabIndex = 1
        Me.CheckBox10.Text = "Rotazione automatica"
        '
        'CheckBox9
        '
        Me.CheckBox9.Checked = True
        Me.CheckBox9.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckBox9.ForeColor = System.Drawing.Color.Black
        Me.CheckBox9.Location = New System.Drawing.Point(16, 18)
        Me.CheckBox9.Name = "CheckBox9"
        Me.CheckBox9.Size = New System.Drawing.Size(80, 16)
        Me.CheckBox9.TabIndex = 0
        Me.CheckBox9.Text = "Forza Jpg"
        '
        'TabControl1
        '
        Me.TabControl1.Controls.Add(Me.TabPage5)
        Me.TabControl1.Controls.Add(Me.TabPage3)
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage4)
        Me.TabControl1.Location = New System.Drawing.Point(12, 12)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(521, 352)
        Me.TabControl1.TabIndex = 48
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(539, 211)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(192, 23)
        Me.ProgressBar1.TabIndex = 52
        '
        'CheckBox12
        '
        Me.CheckBox12.ForeColor = System.Drawing.Color.Black
        Me.CheckBox12.Location = New System.Drawing.Point(10, 19)
        Me.CheckBox12.Name = "CheckBox12"
        Me.CheckBox12.Size = New System.Drawing.Size(104, 21)
        Me.CheckBox12.TabIndex = 35
        Me.CheckBox12.Text = "Aggiungi orario"
        '
        'CheckBox4
        '
        Me.CheckBox4.ForeColor = System.Drawing.Color.Black
        Me.CheckBox4.Location = New System.Drawing.Point(10, 3)
        Me.CheckBox4.Name = "CheckBox4"
        Me.CheckBox4.Size = New System.Drawing.Size(104, 17)
        Me.CheckBox4.TabIndex = 34
        Me.CheckBox4.Text = "Aggiungi scritta"
        '
        'CheckBox18
        '
        Me.CheckBox18.AutoSize = True
        Me.CheckBox18.Location = New System.Drawing.Point(140, 3)
        Me.CheckBox18.Name = "CheckBox18"
        Me.CheckBox18.Size = New System.Drawing.Size(84, 17)
        Me.CheckBox18.TabIndex = 36
        Me.CheckBox18.Text = "Numero foto"
        Me.CheckBox18.UseVisualStyleBackColor = True
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.CheckBox18)
        Me.Panel1.Controls.Add(Me.CheckBox4)
        Me.Panel1.Controls.Add(Me.CheckBox12)
        Me.Panel1.Location = New System.Drawing.Point(52, 236)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(304, 73)
        Me.Panel1.TabIndex = 26
        Me.Panel1.Visible = False
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(740, 375)
        Me.Controls.Add(Me.ProgressBar1)
        Me.Controls.Add(Me.Label44)
        Me.Controls.Add(Me.CheckBox22)
        Me.Controls.Add(Me.Label43)
        Me.Controls.Add(Me.TabControl1)
        Me.Controls.Add(Me.Label27)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Label20)
        Me.Controls.Add(Me.Label19)
        Me.Controls.Add(Me.Label18)
        Me.Controls.Add(Me.Label17)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Button6)
        Me.MaximizeBox = False
        Me.MaximumSize = New System.Drawing.Size(756, 414)
        Me.MinimumSize = New System.Drawing.Size(756, 414)
        Me.Name = "Form1"
        Me.Text = "Image Catalog"
        Me.TabPage4.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox6.PerformLayout()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage1.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.Panel2.ResumeLayout(False)
        Me.Panel2.PerformLayout()
        Me.TabPage2.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.TabPage3.ResumeLayout(False)
        Me.GroupBox10.ResumeLayout(False)
        Me.GroupBox10.PerformLayout()
        Me.GroupBox9.ResumeLayout(False)
        Me.GroupBox9.PerformLayout()
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox5.PerformLayout()
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox4.PerformLayout()
        Me.TabPage5.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox3.PerformLayout()
        Me.GroupBox8.ResumeLayout(False)
        Me.GroupBox8.PerformLayout()
        Me.GroupBox7.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

#Const MULTI_THREADED = True

    Private StopAttivo As Boolean
    Private WaterSelectColor As Boolean = False

    Private ContaFotoCuori As Integer
    Private TaskCuori() As PicInfo

    Private MyPool As XYThreadPool = New XYThreadPool
    Private ContaImmaginiThread As Integer

    Private Const maxThreads As Integer = 15

    Private Sub setDefaults()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox27.Text = ""
        TextBox28.Text = ""
        TextBox9.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox10.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox19.Text = ""
        TextBox20.Text = ""
        TextBox21.Text = ""
        TextBox25.Text = ""
        TextBox26.Text = ""

        ComboBox1.Items.Add("Alto")
        ComboBox1.Items.Add("Basso")
        ComboBox1.SelectedIndex = 1

        ComboBox2.Items.Add("Sinistra")
        ComboBox2.Items.Add("Centro")
        ComboBox2.Items.Add("Destra")
        ComboBox2.SelectedIndex = 1

        ComboBox3.Items.Add("Arial")
        ComboBox3.Items.Add("Arial Black")
        ComboBox3.Items.Add("Arial Narrow")
        ComboBox3.Items.Add("Comic Sans MS")
        ComboBox3.Items.Add("Courier New")
        ComboBox3.Items.Add("System")
        ComboBox3.Items.Add("Times New Roman")
        ComboBox3.Items.Add("Verdana")
        ComboBox3.Items.Add("Wingdings")
        ComboBox3.SelectedIndex = 7

        ComboBox4.Items.Add("Sinistra")
        ComboBox4.Items.Add("Centro")
        ComboBox4.Items.Add("Destra")
        ComboBox4.SelectedIndex = 2

        ComboBox5.Items.Add("Alto")
        ComboBox5.Items.Add("Centro")
        ComboBox5.Items.Add("Basso")
        ComboBox5.SelectedIndex = 2
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Application.EnableVisualStyles()

        setDefaults()

    End Sub

    Private Sub FixPaths()
        If TextBox1.Text.EndsWith("\") = False Then
            TextBox1.Text &= "\"
        End If
        If TextBox2.Text.EndsWith("\") = False Then
            TextBox2.Text &= "\"
        End If
    End Sub

    Private Sub lockUI()
        TabControl1.Enabled = False
        Button5.Enabled = False
        Button6.Enabled = False
        Button1.Enabled = False

    End Sub

    Private Sub unlockUI()
        TabControl1.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button1.Enabled = True
    End Sub

    Private Sub btnCreaCatalogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lockUI()
        Dim timeStart As Date
        Dim timeStop As Date

        timeStart = TimeOfDay
        FixPaths()

        Label10.Text = ""
        Label17.Text = "0"
        Label18.Text = "0"
        setPicSettings(TextBox1.Text, TextBox2.Text)
#If MULTI_THREADED Then
        ProgressBar1.Minimum = 0
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0

        Dim t1 As New Threading.Thread(AddressOf creaCatalogoThread)
        t1.IsBackground = True
        t1.Start()

#Else
        creaCatalogo(timeStart, timeStop)
        unlockUI()
#End If




    End Sub

    Private Sub creaCatalogoThread()
        Dim timeStart As Date = TimeOfDay
        MyPool.StopThreadPool()
        MyPool.StartThreadPool(0, maxThreads)
        ContaImmaginiThread = 0

        creaImmaginiWithThreadMod(TextBox1.Text, TextBox2.Text)

        Dim ThAttivo As ThreadPoolWorkItem = Nothing
        Dim i As Integer = 0

        Do Until i = ContaImmaginiThread
            Thread.Sleep(100)
            ThAttivo = MyPool.ExtractWorkItem()
            If ThAttivo IsNot Nothing Then
                i += 1
                'stepProgressBar()
                setLabel10Text("File: " & ThAttivo.m_sName)

                'setLabel18Text(ContaImmaginiThread.ToString)
                'setLabel18Text(i.ToString)


                'Label10.Text = "File: " & ThAttivo.m_sName
                'Label18.Text = ContaImmaginiThread.ToString
            End If
        Loop
        MyPool.StopThreadPool()
        Dim timeStop As Date = TimeOfDay

        setLabel10Text("Finito")
        setLabel43Text(CalcTime(timeStart, timeStop))

    End Sub

    Private Sub creaCatalogo(timeStart As Date, timeStop As Date)
        'asdfg
        MyPool.StopThreadPool()
        MyPool.StartThreadPool(0, maxThreads)
        ContaImmaginiThread = 0

        creaImmaginiWithThreadMod(TextBox1.Text, TextBox2.Text)

        Dim ThAttivo As ThreadPoolWorkItem = Nothing
        Dim i As Integer = 0

        Do Until i = ContaImmaginiThread
            Thread.Sleep(100)
            ThAttivo = MyPool.ExtractWorkItem()
            If ThAttivo IsNot Nothing Then
                i += 1
                Label10.Text = "File: " & ThAttivo.m_sName
                Label18.Text = ContaImmaginiThread.ToString

            End If
        Loop
        MyPool.StopThreadPool()
        timeStop = TimeOfDay

        CalcTime(timeStart, timeStop)
        Label10.Text = "Finito"
        If CheckBox22.Checked = True Then
            Shell("%windir%\System32\shutdown.exe")
        End If
    End Sub

    Private Function CalcTime(ByVal timeStart As Date, ByVal timeStop As Date) As String
        Dim timediffH, timediffS As Long
        Dim timediffM As Long
        timediffM = DateAndTime.DateDiff(DateInterval.Minute, timeStart, timeStop)
        timediffS = DateAndTime.DateDiff(DateInterval.Second, timeStart, timeStop)
        timediffH = DateAndTime.DateDiff(DateInterval.Hour, timeStart, timeStop)
        'dim s As String = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString
        Dim s As String = "S:" + timediffS.ToString
        'Label43.Text = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString
        Return s
    End Function
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DirSearch As FolderBrowserDialog = New FolderBrowserDialog
        DirSearch.SelectedPath = TextBox1.Text
        If DialogResult.OK = DirSearch.ShowDialog() Then
            Dim DirectoryScelta As String = DirSearch.SelectedPath
            If DirectoryScelta.EndsWith("\") = False Then
                DirectoryScelta &= "\"
            End If

            TextBox1.Text = DirectoryScelta
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim DirSearch As FolderBrowserDialog = New FolderBrowserDialog
        DirSearch.SelectedPath = TextBox2.Text
        If DialogResult.OK = DirSearch.ShowDialog() Then
            Dim DirectoryScelta As String = DirSearch.SelectedPath
            If DirectoryScelta.EndsWith("\") = False Then
                DirectoryScelta &= "\"
            End If

            TextBox2.Text = DirectoryScelta
        End If

        'Dim openFileDialog As OpenFileDialog = New OpenFileDialog

        'Dim openFileDialog As OpenFileDialog = New OpenFileDialog

        'openFileDialog.InitialDirectory = TextBox1.Text
        'openFileDialog.Filter = "Bitmap files (*.bmp)|*.bmp|Jpeg files (*.jpg)|*.jpg|All valid files (*.*)|*.*"
        'openFileDialog.FilterIndex = 2
        'openFileDialog.RestoreDirectory = True

        'If DialogResult.OK = openFileDialog.ShowDialog() Then
        '    Dim IlNome As String = openFileDialog.FileName
        '    Dim NomeFine As String = ""
        '    Dim i As Integer

        '    Dim Elenco As String()
        '    Elenco = IlNome.Split(New Char() {"\"c})
        '    For i = 0 To Elenco.Length - 1
        '        NomeFine &= Elenco(i) & "\"
        '    Next

        '    TextBox1.Text = NomeFine
        'End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim SaveFileDlg As SaveFileDialog = New SaveFileDialog

        'SaveFileDlg.InitialDirectory = "c:\"
        SaveFileDlg.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*"
        SaveFileDlg.FilterIndex = 0
        SaveFileDlg.RestoreDirectory = True

        If DialogResult.OK = SaveFileDlg.ShowDialog Then
            Dim IlNome As String = SaveFileDlg.FileName

            SetupIni.NomeFileSetup = IlNome

            SetupIni.AggiornaParametro("DirSorgente", TextBox1.Text)
            SetupIni.AggiornaParametro("DirDestinazione", TextBox2.Text)
            SetupIni.AggiornaParametro("DirSottoDirectory", CheckBox6.Checked)

            SetupIni.AggiornaParametro("DirDividiDestinazione", CheckBox11.Checked)
            SetupIni.AggiornaParametro("DirDividiNumFile", TextBox17.Text)
            SetupIni.AggiornaParametro("DirDividiSuffisso", TextBox20.Text)
            SetupIni.AggiornaParametro("DirDividiNumCifre", TextBox21.Text)
            If RadioButton1.Checked = True Then
                SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva")
            Else
                SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Files")
            End If

            SetupIni.AggiornaParametro("MiniatureCrea", CheckBox1.Checked)
            SetupIni.AggiornaParametro("MiniatureSuffisso", TextBox3.Text)
            SetupIni.AggiornaParametro("MiniatureAltezza", TextBox5.Text)
            SetupIni.AggiornaParametro("MiniatureLarghezza", TextBox6.Text)
            SetupIni.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked)
            SetupIni.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked)

            SetupIni.AggiornaParametro("FotoAltezza", TextBox27.Text)
            SetupIni.AggiornaParametro("FotoLarghezza", TextBox28.Text)
            SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text)
            SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked)

            SetupIni.AggiornaParametro("FontDimensione", TextBox11.Text)
            SetupIni.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text)
            SetupIni.AggiornaParametro("FontBold", CheckBox3.Checked)
            SetupIni.AggiornaParametro("FontNome", ComboBox3.Text)


            SetupIni.AggiornaParametro("TestoTesto", TextBox4.Text)
            SetupIni.AggiornaParametro("TestoTrasparente", TextBox9.Text)
            SetupIni.AggiornaParametro("TestoMargine", TextBox12.Text)
            SetupIni.AggiornaParametro("TestoPosizione", ComboBox1.Text)
            SetupIni.AggiornaParametro("TestoAllineamento", ComboBox2.Text)

            SetupIni.AggiornaParametro("MarchioFile", TextBox10.Text)
            SetupIni.AggiornaParametro("MarchioAltezza", TextBox14.Text)
            SetupIni.AggiornaParametro("MarchioLarghezza", TextBox15.Text)
            SetupIni.AggiornaParametro("MarchioMargine", TextBox16.Text)
            SetupIni.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text)
            SetupIni.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text)
            SetupIni.AggiornaParametro("MarchioTrasparenza", TextBox19.Text)
            SetupIni.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked)

            SetupIni.AggiornaParametro("TempoGara", CheckBox7.Checked)
            SetupIni.AggiornaParametro("Orario", CheckBox8.Checked)
            SetupIni.AggiornaParametro("EtichettaOrario", TextBox18.Text)

            SetupIni.AggiornaParametro("GeneraleForzaJpg", CheckBox9.Checked)
            SetupIni.AggiornaParametro("GeneraleRotazioneAutomatica", CheckBox10.Checked)
            SetupIni.AggiornaParametro("GrandezzaVerticale", TextBox30.Text)
            SetupIni.AggiornaParametro("MargineVerticale", TextBox31.Text)
            SetupIni.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked)
            SetupIni.AggiornaParametro("TestoVerticale", TextBox29.Text)
            SetupIni.AggiornaParametro("NomeMiniatura", RadioButton6.Checked)
            SetupIni.AggiornaParametro("DataFoto", CheckBox16.Checked)
            SetupIni.AggiornaParametro("NumeroFoto", CheckBox17.Checked)

            SetupIni.AggiornaParametro("ColoreTestoRGB", TextBox34.Text)

            SetupIni.AggiornaParametro("TempoSmall", RadioButton5.Checked)
            SetupIni.AggiornaParametro("NumTempoSmall", RadioButton7.Checked)

            SetupIni.AggiornaParametro("CompressioneJpeg", TextBox32.Text)
            SetupIni.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text)
            SetupIni.SalvaParametriSetup()
            Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim openFileDialog As OpenFileDialog = New OpenFileDialog

        'openFileDialog.InitialDirectory = TextBox1.Text
        openFileDialog.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*"
        openFileDialog.FilterIndex = 0
        openFileDialog.RestoreDirectory = True

        If DialogResult.OK = openFileDialog.ShowDialog() Then
            Dim IlNome As String = openFileDialog.FileName

            SetupIni.NomeFileSetup = IlNome
            SetupIni.CaricaParametriSetup()

            TextBox1.Text = SetupIni.LeggiParametroString("DirSorgente")
            TextBox2.Text = SetupIni.LeggiParametroString("DirDestinazione")
            CheckBox6.Checked = SetupIni.LeggiParametroBoolean("DirSottoDirectory")

            CheckBox11.Checked = SetupIni.LeggiParametroBoolean("DirDividiDestinazione")
            TextBox17.Text = SetupIni.LeggiParametroString("DirDividiNumFile")
            TextBox20.Text = SetupIni.LeggiParametroString("DirDividiSuffisso")
            TextBox21.Text = SetupIni.LeggiParametroString("DirDividiNumCifre")

            Dim TestoTemp As String = SetupIni.LeggiParametroString("DirDividiTipoNumerazione")
            If TestoTemp.ToUpper = "PROGRESSIVA" Then
                RadioButton1.Checked = True
            Else
                RadioButton2.Checked = True
            End If

            CheckBox1.Checked = SetupIni.LeggiParametroBoolean("MiniatureCrea")
            TextBox3.Text = SetupIni.LeggiParametroString("MiniatureSuffisso")
            TextBox5.Text = SetupIni.LeggiParametroString("MiniatureAltezza")
            TextBox6.Text = SetupIni.LeggiParametroString("MiniatureLarghezza")
            RadioButton3.Checked = SetupIni.LeggiParametroBoolean("MiniatureAddScritta")
            RadioButton4.Checked = SetupIni.LeggiParametroBoolean("MiniatureAddOrario")

            TextBox27.Text = SetupIni.LeggiParametroString("FotoAltezza")
            TextBox28.Text = SetupIni.LeggiParametroString("FotoLarghezza")
            TextBox13.Text = SetupIni.LeggiParametroString("FotoCodice")
            CheckBox2.Checked = SetupIni.LeggiParametroBoolean("FotoDimOriginali")

            TextBox11.Text = SetupIni.LeggiParametroString("FontDimensione")
            TextBox25.Text = SetupIni.LeggiParametroString("FontDimensioneMiniatura")
            CheckBox3.Checked = SetupIni.LeggiParametroBoolean("FontBold")
            ComboBox3.Text = SetupIni.LeggiParametroString("FontNome")

            If TextBox25.Text = "" Then
                TextBox25.Text = "0"
            End If

            TextBox4.Text = SetupIni.LeggiParametroString("TestoTesto")
            TextBox9.Text = SetupIni.LeggiParametroString("TestoTrasparente")
            TextBox12.Text = SetupIni.LeggiParametroString("TestoMargine")
            ComboBox1.Text = SetupIni.LeggiParametroString("TestoPosizione")
            ComboBox2.Text = SetupIni.LeggiParametroString("TestoAllineamento")

            TextBox10.Text = SetupIni.LeggiParametroString("MarchioFile")
            TextBox14.Text = SetupIni.LeggiParametroString("MarchioAltezza")
            TextBox15.Text = SetupIni.LeggiParametroString("MarchioLarghezza")
            TextBox16.Text = SetupIni.LeggiParametroString("MarchioMargine")
            ComboBox4.Text = SetupIni.LeggiParametroString("MarchioAllOrizzontale")
            ComboBox5.Text = SetupIni.LeggiParametroString("MarchioAllVerticale")
            TextBox19.Text = SetupIni.LeggiParametroString("MarchioTrasparenza")
            CheckBox5.Checked = SetupIni.LeggiParametroBoolean("MarchioAggiungi")

            CheckBox7.Checked = SetupIni.LeggiParametroBoolean("TempoGara")
            CheckBox8.Checked = SetupIni.LeggiParametroBoolean("Orario")
            TextBox18.Text = SetupIni.LeggiParametroString("EtichettaOrario")

            CheckBox9.Checked = SetupIni.LeggiParametroBoolean("GeneraleForzaJpg")
            CheckBox10.Checked = SetupIni.LeggiParametroBoolean("GeneraleRotazioneAutomatica")

            TextBox30.Text = SetupIni.LeggiParametroString("GrandezzaVerticale")
            TextBox31.Text = SetupIni.LeggiParametroString("MargineVerticale")
            CheckBox15.Checked = SetupIni.LeggiParametroBoolean("DimensioniOriginali")
            TextBox29.Text = SetupIni.LeggiParametroString("TestoVerticale")
            RadioButton6.Checked = SetupIni.LeggiParametroBoolean("NomeMiniatura")
            CheckBox16.Checked = SetupIni.LeggiParametroBoolean("DataFoto")
            CheckBox17.Checked = SetupIni.LeggiParametroBoolean("NumeroFoto")


            RadioButton5.Checked = SetupIni.LeggiParametroBoolean("TempoSmall")
            RadioButton7.Checked = SetupIni.LeggiParametroBoolean("NumTempoSmall")

            TextBox32.Text = SetupIni.LeggiParametroString("CompressioneJpeg")
            TextBox33.Text = SetupIni.LeggiParametroString("CompressioneJpegMiniatura")

            TextBox34.Text = SetupIni.LeggiParametroString("ColoreTestoRGB")
            If File.Exists(TextBox10.Text) Then


                PictureBox1.Image = Image.FromFile(TextBox10.Text)
                If PictureBox1.Image.Height >= PictureBox1.Image.Width Then
                    PictureBox1.Height = 160
                    PictureBox1.Width = CType(160 * PictureBox1.Image.Width / PictureBox1.Image.Height, Integer)
                Else
                    PictureBox1.Width = 224
                    PictureBox1.Height = CType(224 * PictureBox1.Image.Height / PictureBox1.Image.Width, Integer)
                End If
            End If
            Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome)
        End If
    End Sub

    Private Sub setPicSettings(ByVal SourcePath As String, ByVal DestPath As String)

        Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
        Dim DestDirStart As DirectoryInfo = New DirectoryInfo(DestPath)
        Dim DestDir As DirectoryInfo = Nothing



        PicSettings.DirectorySorgente = TextBox1.Text
        PicSettings.DirectoryDestinazione = TextBox2.Text

        'PicSettings.DestDir = DestDir
        'PicSettings.SourceDir = SourceDir
        'PicSettings.DestDirStart = DestDirStart

        PicSettings.DimStandard = CType(TextBox11.Text, Integer)
        PicSettings.DimStandardMiniatura = CType(TextBox25.Text, Integer)

        PicSettings.UsaOrarioMiniatura = CheckBox12.Checked
        PicSettings.UsaOrarioTestoApplicare = CheckBox8.Checked
        PicSettings.UsaTempoGaraTestoApplicare = CheckBox7.Checked

        PicSettings.UsaRotazioneAutomatica = CheckBox10.Checked
        PicSettings.UsaForzaJpg = CheckBox9.Checked

        If CheckBox17.Checked Then
            PicSettings.TestoNome = True
        Else
            PicSettings.TestoNome = False

        End If

        If CheckBox16.Checked Then
            PicSettings.NomeData = True
        Else
            PicSettings.NomeData = False
        End If
        PicSettings.TestoFirmaStart = TextBox4.Text
        PicSettings.TestoFirmaStartV = TextBox29.Text

        PicSettings.DataPartenza = DateTimePicker1.Value
        PicSettings.TestoOrario = TextBox18.Text

        PicSettings.AltezzaSmall = CType(TextBox5.Text, Integer)
        PicSettings.LarghezzaSmall = CType(TextBox5.Text, Integer)

        PicSettings.CreaMiniature = CheckBox1.Checked
        PicSettings.AggiungiScritteMiniature = RadioButton3.Checked
        PicSettings.AggTempoGaraMin = RadioButton5.Checked
        PicSettings.AggNumTempMin = RadioButton7.Checked


        PicSettings.DimVert = CType(TextBox30.Text, Integer)
        PicSettings.MargVert = CType(TextBox31.Text, Integer)

        'PicSettings.NomeFileChild = childFile.Name
        PicSettings.Suffisso = TextBox3.Text
        PicSettings.Codice = TextBox13.Text

        PicSettings.Trasparenza = CType(TextBox9.Text, Integer)
        PicSettings.IlFont = ComboBox3.SelectedItem.ToString
        PicSettings.Grassetto = CheckBox3.Checked

        PicSettings.Posizione = ComboBox1.SelectedItem.ToString
        PicSettings.Allineamento = ComboBox2.SelectedItem.ToString
        PicSettings.Margine = CType(TextBox12.Text, Integer)

        PicSettings.LogoAltezza = CType(TextBox14.Text, Integer)
        PicSettings.LogoLarghezza = CType(TextBox15.Text, Integer)

        PicSettings.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text)

        PicSettings.LogoAggiungi = CheckBox5.Checked
        PicSettings.LogoNomeFile = TextBox10.Text
        PicSettings.LogoTrasparenza = TextBox19.Text
        PicSettings.LogoMargine = TextBox16.Text
        PicSettings.LogoPosizioneH = ComboBox4.Text
        PicSettings.LogoPosizioneV = ComboBox5.Text

        PicSettings.FotoGrandeDimOrigina = CheckBox15.Checked
        PicSettings.AltezzaBig = CType(TextBox27.Text, Integer)
        PicSettings.LarghezzaBig = CType(TextBox28.Text, Integer)
        PicSettings.DimMin = CType(TextBox25.Text, Integer)

        PicSettings.TestoMin = RadioButton6.Checked

        PicSettings.jpegQuality = CLng(TextBox32.Text)
        PicSettings.jpegQualityMin = CLng(TextBox33.Text)

        'PicSettings.mainForm = Me


    End Sub

    Private Function makeFilesList(ByVal SourcePath As String) As List(Of List(Of FileInfo))
        Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)

        Dim DestDir As DirectoryInfo = Nothing
        Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer)
        Dim SuffixDir As String = TextBox20.Text
        Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer)
        Dim DividiFile As Boolean = False

        StopAttivo = False

        Dim FileConta As Integer = 0
        Dim ContaFileXDir As Integer = 0
        Dim ContaDirXDir As Integer = 0
        Dim TestoTemp As String = ""
        Dim ContaTemp As Integer = 0

        Dim picList As New List(Of FileInfo)
        Dim dirList As New List(Of List(Of FileInfo))


        'controlla directory principale
        'Dim childFile As FileInfo
        'For Each childFile In SourceDir.GetFiles("*.jpg")
        '    picList.Add(childFile)
        'Next

        picList = getFiles(SourceDir)

        dirList.Add(picList)

        'controlla sottodirectory
        If CheckBox6.Checked = True Then
            Dim subDir As DirectoryInfo
            For Each subDir In SourceDir.GetDirectories()
                Dim filesList As New List(Of FileInfo)
                filesList = getFiles(subDir)
                dirList.Add(filesList)
            Next
        End If

        Return dirList
    End Function

    Private Function getFiles(sourceDir As DirectoryInfo) As List(Of FileInfo)
        Dim picList As New List(Of FileInfo)
        Dim childFile As FileInfo
        For Each childFile In sourceDir.GetFiles("*.jpg")
            picList.Add(childFile)
        Next
        Return picList
    End Function

    Private Function dividiLista(SourcePath As String, lista As List(Of List(Of FileInfo))) As List(Of List(Of FileInfo))
        Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)

        Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer)
        Dim SuffixDir As String = TextBox20.Text
        Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer)
        Dim DividiFile As Boolean = False

        Dim FileConta As Integer = 0
        Dim ContaFileXDir As Integer = 0
        Dim ContaDirXDir As Integer = 0
        Dim TestoTemp As String = ""
        Dim ContaTemp As Integer = 0

        If NumFileXDir > 0 And CheckBox11.Checked = True Then
            If FileConta > NumFileXDir Then
                DividiFile = True
            Else

            End If

        End If

    End Function

    Private Sub setLabel17Text(ByVal text As String)
        If Label17.InvokeRequired Then
            Label17.Invoke(New Action(Of String)(AddressOf setLabel17Text), text)
        Else
            Label17.Text = text

        End If
    End Sub
    Public Sub stepProgressBar()
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New MethodInvoker(AddressOf ProgressBar1.PerformStep))
        Else
            ProgressBar1.PerformStep()
        End If
        setLabel18Text(ProgressBar1.Value.ToString)
    End Sub
    Private Sub setLabel10Text(ByVal text As String)
        If Label10.InvokeRequired Then
            Label10.Invoke(New Action(Of String)(AddressOf setLabel10Text), text)
        Else
            Label10.Text = text

        End If
    End Sub

    Private Sub setProgressBarMaximum(ByVal value As Integer)
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New Action(Of Integer)(AddressOf setProgressBarMaximum), value)
        Else
            ProgressBar1.Maximum = value

        End If
    End Sub

    Private Sub setProgressBarValue(ByVal value As Integer)
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New Action(Of Integer)(AddressOf setProgressBarValue), value)
        Else
            ProgressBar1.Value = value

        End If
    End Sub

    Private Sub setLabel18Text(ByVal text As String)
        If Label18.InvokeRequired Then
            Label18.Invoke(New Action(Of String)(AddressOf setLabel18Text), text)
        Else
            Label18.Text = text

        End If
    End Sub

    Private Sub setLabel43Text(ByVal text As String)
        If Label43.InvokeRequired Then
            Label43.Invoke(New Action(Of String)(AddressOf setLabel43Text), text)
        Else
            Label43.Text = text

        End If
    End Sub

    Private Sub creaImmaginiWithThreadMod(ByVal SourcePath As String, ByVal DestPath As String)
        Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
        Dim DestDirStart As DirectoryInfo = New DirectoryInfo(DestPath)
        Dim DestDir As DirectoryInfo = Nothing
        Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer)
        Dim SuffixDir As String = TextBox20.Text
        Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer)
        Dim DividiFile As Boolean = False

        StopAttivo = False

        Dim FileConta As Integer = 0
        Dim ContaFileXDir As Integer = 0
        Dim ContaDirXDir As Integer = 0
        Dim TestoTemp As String = ""
        Dim ContaTemp As Integer = 0



        If SourceDir.Exists Then
            FileConta = SourceDir.GetFiles("*.jpg").GetLength(0)
            'Label17.Text = (CType(Label17.Text, Integer) + FileConta).ToString
            Dim a As String = (CType(Label17.Text, Integer) + FileConta).ToString
            setLabel17Text(a)

            setProgressBarMaximum(CInt(a))

            If NumFileXDir > 0 And CheckBox11.Checked = True Then
                If FileConta > NumFileXDir Then
                    DividiFile = True
                Else
                    DestDir = DestDirStart
                    If Not DestDir.Exists Then
                        DestDir.Create()
                    End If
                    DividiFile = False
                End If
            Else
                DestDir = DestDirStart
                If Not DestDir.Exists Then
                    DestDir.Create()
                End If
                DividiFile = False
            End If

            Dim childFile As FileInfo
            For Each childFile In SourceDir.GetFiles("*.jpg")
                If StopAttivo = True Then
                    Exit For
                End If
                setLabel10Text("File: " & childFile.Name)
                Dim b As String = (CType(Label18.Text, Integer) + 1).ToString
                'setLabel18Text(b)
                'setProgressBarValue(CInt(b))
                'Label10.Text = "File: " & childFile.Name
                'Label18.Text = (CType(Label18.Text, Integer) + 1).ToString
                'Application.DoEvents()

                ContaFileXDir += 1

                If DividiFile = True Then
                    If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then
                        ContaDirXDir += 1

                        If RadioButton1.Checked = True Then
                            TestoTemp = ContaDirXDir.ToString
                        Else
                            TestoTemp = (ContaDirXDir * NumFileXDir).ToString
                        End If
                        For ContaTemp = 1 To (NumCifreDir - TestoTemp.Length)
                            TestoTemp = "0" & TestoTemp
                        Next

                        If DestDirStart.FullName.EndsWith("\") Then
                            DestDir = New DirectoryInfo(DestDirStart.FullName & SuffixDir & TestoTemp)
                        Else
                            DestDir = New DirectoryInfo(DestDirStart.FullName & "\" & SuffixDir & TestoTemp)
                        End If

                        If Not DestDir.Exists Then
                            DestDir.Create()
                        End If
                    End If
                End If

                'Application.DoEvents()



                Dim ClsCreaImmagine As New ImageCreator
                ClsCreaImmagine.NomeFileChild = childFile.Name
                ClsCreaImmagine.DestDir = DestDir
                ClsCreaImmagine.SourceDir = SourceDir
                ClsCreaImmagine.DestDirStart = DestDirStart

                ContaImmaginiThread += 1
                MyPool.InsertWorkItem(childFile.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {childFile.Name}, True)
            Next
            ' copy all the sub-directories by recursively calling this same routine
            If CheckBox6.Checked = True Then
                Dim subDir As DirectoryInfo
                For Each subDir In SourceDir.GetDirectories()
                    creaImmaginiWithThreadMod(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name))
                Next
            End If
        End If
    End Sub

    'il posto giusto dove fare modifiche
    Private Sub CreaImmaginiWithThread(ByVal SourcePath As String, ByVal DestPath As String)
        Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
        Dim DestDirStart As DirectoryInfo = New DirectoryInfo(DestPath)
        Dim DestDir As DirectoryInfo = Nothing
        Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer)
        Dim SuffixDir As String = TextBox20.Text
        Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer)
        Dim DividiFile As Boolean = False

        StopAttivo = False

        Dim FileConta As Integer = 0
        Dim ContaFileXDir As Integer = 0
        Dim ContaDirXDir As Integer = 0
        Dim TestoTemp As String = ""
        Dim ContaTemp As Integer = 0



        If SourceDir.Exists Then
            FileConta = SourceDir.GetFiles("*.jpg").GetLength(0)
            Label17.Text = (CType(Label17.Text, Integer) + FileConta).ToString

            If NumFileXDir > 0 And CheckBox11.Checked = True Then
                If FileConta > NumFileXDir Then
                    DividiFile = True
                Else
                    DestDir = DestDirStart
                    If Not DestDir.Exists Then
                        DestDir.Create()
                    End If
                    DividiFile = False
                End If
            Else
                DestDir = DestDirStart
                If Not DestDir.Exists Then
                    DestDir.Create()
                End If
                DividiFile = False
            End If

            Dim childFile As FileInfo
            For Each childFile In SourceDir.GetFiles("*.jpg")
                If StopAttivo = True Then
                    Exit For
                End If
                'Label10.Text = "File: " & childFile.Name
                'Label18.Text = (CType(Label18.Text, Integer) + 1).ToString
                'Application.DoEvents()

                ContaFileXDir += 1

                If DividiFile = True Then
                    If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then
                        ContaDirXDir += 1

                        If RadioButton1.Checked = True Then
                            TestoTemp = ContaDirXDir.ToString
                        Else
                            TestoTemp = (ContaDirXDir * NumFileXDir).ToString
                        End If
                        For ContaTemp = 1 To (NumCifreDir - TestoTemp.Length)
                            TestoTemp = "0" & TestoTemp
                        Next

                        If DestDirStart.FullName.EndsWith("\") Then
                            DestDir = New DirectoryInfo(DestDirStart.FullName & SuffixDir & TestoTemp)
                        Else
                            DestDir = New DirectoryInfo(DestDirStart.FullName & "\" & SuffixDir & TestoTemp)
                        End If

                        If Not DestDir.Exists Then
                            DestDir.Create()
                        End If
                    End If
                End If

                Application.DoEvents()
                Dim ClsCreaImmagine As New CreaImmagineSeparateThread

                ClsCreaImmagine.DirectorySorgente = TextBox1.Text
                ClsCreaImmagine.DirectoryDestinazione = TextBox2.Text

                ClsCreaImmagine.DestDir = DestDir
                ClsCreaImmagine.SourceDir = SourceDir
                ClsCreaImmagine.DestDirStart = DestDirStart

                ClsCreaImmagine.DimStandard = CType(TextBox11.Text, Integer)
                ClsCreaImmagine.DimStandardMiniatura = CType(TextBox25.Text, Integer)

                ClsCreaImmagine.UsaOrarioMiniatura = CheckBox12.Checked
                ClsCreaImmagine.UsaOrarioTestoApplicare = CheckBox8.Checked
                ClsCreaImmagine.UsaTempoGaraTestoApplicare = CheckBox7.Checked

                ClsCreaImmagine.UsaRotazioneAutomatica = CheckBox10.Checked
                ClsCreaImmagine.UsaForzaJpg = CheckBox9.Checked

                If CheckBox17.Checked Then
                    ClsCreaImmagine.TestoNome = True
                Else
                    ClsCreaImmagine.TestoNome = False

                End If

                If CheckBox16.Checked Then
                    ClsCreaImmagine.NomeData = True
                Else
                    ClsCreaImmagine.NomeData = False
                End If
                ClsCreaImmagine.TestoFirmaStart = TextBox4.Text
                ClsCreaImmagine.TestoFirmaStartV = TextBox29.Text

                ClsCreaImmagine.DataPartenza = DateTimePicker1.Value
                ClsCreaImmagine.TestoOrario = TextBox18.Text

                ClsCreaImmagine.AltezzaSmall = CType(TextBox5.Text, Integer)
                ClsCreaImmagine.LarghezzaSmall = CType(TextBox5.Text, Integer)

                ClsCreaImmagine.CreaMiniature = CheckBox1.Checked
                ClsCreaImmagine.AggiungiScritteMiniature = RadioButton3.Checked
                ClsCreaImmagine.AggTempoGaraMin = RadioButton5.Checked
                ClsCreaImmagine.AggNumTempMin = RadioButton7.Checked


                ClsCreaImmagine.DimVert = CType(TextBox30.Text, Integer)
                ClsCreaImmagine.MargVert = CType(TextBox31.Text, Integer)

                ClsCreaImmagine.NomeFileChild = childFile.Name
                ClsCreaImmagine.Suffisso = TextBox3.Text
                ClsCreaImmagine.Codice = TextBox13.Text

                ClsCreaImmagine.Trasparenza = CType(TextBox9.Text, Integer)
                ClsCreaImmagine.IlFont = ComboBox3.SelectedItem.ToString
                ClsCreaImmagine.Grassetto = CheckBox3.Checked

                ClsCreaImmagine.Posizione = ComboBox1.SelectedItem.ToString
                ClsCreaImmagine.Allineamento = ComboBox2.SelectedItem.ToString
                ClsCreaImmagine.Margine = CType(TextBox12.Text, Integer)

                ClsCreaImmagine.LogoAltezza = CType(TextBox14.Text, Integer)
                ClsCreaImmagine.LogoLarghezza = CType(TextBox15.Text, Integer)

                'ClsCreaImmagine.FontColoreR = CType(TextBox22.Text, Integer)
                'ClsCreaImmagine.FontColoreG = CType(TextBox23.Text, Integer)
                'ClsCreaImmagine.FontColoreB = CType(TextBox24.Text, Integer)
                ClsCreaImmagine.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text)

                ClsCreaImmagine.LogoAggiungi = CheckBox5.Checked
                ClsCreaImmagine.LogoNomeFile = TextBox10.Text
                ClsCreaImmagine.LogoTrasparenza = TextBox19.Text
                ClsCreaImmagine.LogoMargine = TextBox16.Text
                ClsCreaImmagine.LogoPosizioneH = ComboBox4.Text
                ClsCreaImmagine.LogoPosizioneV = ComboBox5.Text

                ClsCreaImmagine.FotoGrandeDimOrigina = CheckBox15.Checked
                ClsCreaImmagine.AltezzaBig = CType(TextBox27.Text, Integer)
                ClsCreaImmagine.LarghezzaBig = CType(TextBox28.Text, Integer)
                ClsCreaImmagine.DimMin = CType(TextBox25.Text, Integer)

                ClsCreaImmagine.TestoMin = RadioButton6.Checked

                ClsCreaImmagine.jpegQuality = CLng(TextBox32.Text)
                ClsCreaImmagine.jpegQuality = CLng(TextBox33.Text)

                ContaImmaginiThread += 1
                MyPool.InsertWorkItem(childFile.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {childFile.Name}, True)
            Next
            ' copy all the sub-directories by recursively calling this same routine
            If CheckBox6.Checked = True Then
                Dim subDir As DirectoryInfo
                For Each subDir In SourceDir.GetDirectories()
                    CreaImmaginiWithThread(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name))
                Next
            End If
        End If
    End Sub

    Private Sub CopyDirectoryFile(ByVal SourcePath As String, ByVal DestPath As String, Optional ByVal OverWrite As Boolean = False)
        Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
        Dim DestDir As DirectoryInfo = New DirectoryInfo(DestPath)

        If SourceDir.Exists Then
            If Not DestDir.Exists Then
                DestDir.Create()
            End If
            ' copy all the files of the current directory
            Dim childFile As FileInfo
            For Each childFile In SourceDir.GetFiles()
                If OverWrite Then
                    childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), True)
                Else
                    ' if overwrite = false, copy the file only if it does not exist
                    ' this is done to avoid an IOException if a file already exists
                    ' this way the other files can be copied anyway...
                    If Not File.Exists(Path.Combine(DestDir.FullName, childFile.Name)) Then
                        childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), False)
                    End If
                End If
            Next
            ' copy all the sub-directories by recursively calling this same routine
            Dim subDir As DirectoryInfo
            For Each subDir In SourceDir.GetDirectories()
                CopyDirectoryFile(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name), OverWrite)
            Next
        End If
    End Sub





    Function NewthumbSize(ByVal currentwidth As Integer, ByVal currentheight As Integer, ByVal MaxPixel As Integer, ByVal TipoSize As String) As Size
        ' Calculate the Size of the New image  
        '*** Larghezza, Altezza, Auto

        Dim tempMultiplier As Double

        If TipoSize.ToUpper = "Larghezza".ToUpper Then
            tempMultiplier = MaxPixel / currentwidth
        ElseIf TipoSize.ToUpper = "Altezza".ToUpper Then
            tempMultiplier = MaxPixel / currentheight
        Else
            If currentheight > currentwidth Then ' portrait  
                tempMultiplier = MaxPixel / currentheight
            Else
                tempMultiplier = MaxPixel / currentwidth
            End If
        End If

        Dim NewSize As New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier))

        Return NewSize
    End Function



    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        StopAttivo = True

        MyPool.StopThreadPool()
        unlockUI()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim openFileDialog As OpenFileDialog = New OpenFileDialog

        'openFileDialog.InitialDirectory = TextBox1.Text
        openFileDialog.Filter = "Immagini jpg (*.jpg)|*.jpg|Immagini gif (*.gif)|*.gif|Tutti i file (*.*)|*.*"
        If TextBox10.Text.Length > 0 Then
            openFileDialog.FileName = TextBox10.Text
        End If
        openFileDialog.FilterIndex = 0
        openFileDialog.RestoreDirectory = True

        If DialogResult.OK = openFileDialog.ShowDialog() Then
            TextBox10.Text = openFileDialog.FileName
            PictureBox1.Image = Image.FromFile(TextBox10.Text)
            If PictureBox1.Image.Height >= PictureBox1.Image.Width Then
                PictureBox1.Height = 160
                PictureBox1.Width = CType(160 * PictureBox1.Image.Width / PictureBox1.Image.Height, Integer)
            Else
                PictureBox1.Width = 224
                PictureBox1.Height = CType(224 * PictureBox1.Image.Height / PictureBox1.Image.Width, Integer)
            End If
        End If
    End Sub

    Private Function LeggiSoloNomeFile(ByVal FileName As String) As String
        Dim Testo As String = FileName
        Dim Risposta As String = ""

        Dim Nomi() As String = Testo.Split(New Char() {"\"c})
        If Nomi.Length > 1 Then
            Risposta = Nomi(Nomi.Length - 1)
        End If

        Return Risposta
    End Function


    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        'GetColor()
        'GetPixelColor(PictureBox1.PointToScreen(e.Location)).ToArgb.ToString("X8")

    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        If e.Button = MouseButtons.Left Then
            WaterSelectColor = True
        Else
            WaterSelectColor = False
        End If
    End Sub


    'Private Declare Function CreateDC Lib "gdi32.dll" (ByVal strDriver As String, ByVal strDevice As String, ByVal strOutput As String, ByVal pData As IntPtr) As IntPtr
    'Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean
    'Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As Integer
    'Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As Point) As Boolean


    '''' <summary>
    '''' Get the color relative to mouse position
    '''' </summary>
    'Private Sub GetColor()
    '    Dim hdcScreen As IntPtr = CreateDC("Display", Nothing, Nothing, IntPtr.Zero)
    '    Dim pt As Point = New Point
    '    GetCursorPos(pt)
    '    Dim cr As Integer = GetPixel(hdcScreen, pt.X, pt.Y)
    '    DeleteDC(hdcScreen)
    '    Dim clr As Color = Color.FromArgb((cr And &HFF), (cr And &HFF00) >> 8, (cr And &HFF0000) >> 16)
    '    PictureBox3.BackColor = clr
    '    If WaterSelectColor = True Then
    '        PictureBox2.BackColor = clr
    '    End If
    '    WaterSelectColor = False
    'End Sub


    Private Function GetPixelColor(ByVal screenLocation As Point) As Color()
        'Dim bm As New Bitmap(1, 1, Imaging.PixelFormat.Format24bppRgb)
        'Dim g As Graphics = Graphics.FromImage(bm)
        'g.CopyFromScreen(screenLocation, New Point(0, 0), New Size(1, 1))
        'Dim result As Color = bm.GetPixel(0, 0)
        'g.Dispose()
        'bm.Dispose()
        'Return result
        Return Nothing
    End Function

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim MyDialog As New ColorDialog
        MyDialog.AllowFullOpen = True
        'If TextBox22.Text.Length > 0 And TextBox23.Text.Length > 0 And TextBox24.Text.Length > 0 Then
        '    If CType(TextBox22.Text, Integer) >= 0 And CType(TextBox23.Text, Integer) >= 0 And CType(TextBox24.Text, Integer) >= 0 Then
        '        MyDialog.Color = Color.FromArgb(0, CType(TextBox22.Text, Integer), CType(TextBox23.Text, Integer), CType(TextBox24.Text, Integer))
        '    End If
        'End If

        If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            'TextBox22.Text = MyDialog.Color.R.ToString
            'TextBox23.Text = MyDialog.Color.G.ToString
            'TextBox24.Text = MyDialog.Color.B.ToString
            TextBox34.Text = ColorTranslator.ToHtml(MyDialog.Color)
            TextBox34.BackColor = MyDialog.Color

        End If
    End Sub







    Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub




    Private Sub CheckBox18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox18.CheckedChanged
        CheckBox4.Checked = False
        CheckBox12.Checked = False

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        CheckBox18.Checked = False
    End Sub

    Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
        CheckBox18.Checked = False
    End Sub


End Class

Public Class PicInfoold
    Public DirSource, DirDest, DirDestStart As DirectoryInfo
    Public NomeImmagine As String

    Public Sub New(ByVal Dir_Source As DirectoryInfo, ByVal Dir_Dest As DirectoryInfo, ByVal Dir_DestStart As DirectoryInfo, ByVal Nome_Immagine As String)
        DirSource = Dir_Source
        DirDest = Dir_Dest
        DirDestStart = Dir_DestStart
        NomeImmagine = Nome_Immagine
    End Sub
End Class