Private Sub frmPrincipale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Shown<------- GUARDA QUI
        'MsgBox(My.Application.Info.WorkingSet) memoria utilizzata...
        If VerificaCopia() = False Then
            ' SplashScreen.Close()
            Me.Close()
            Exit Sub
        End If
       Me.Text = Application.ProductName & ", " & My.Application.Info.Description & " - v." & Application.ProductVersion & " by " & Application.CompanyName
        Call LeggiFileConfigXML() 'legge le impostazioni globali che si possono settare a mano
        If ExistDB() = False Then
            ImportDB()
            Exit Sub
        End If
        '+++ caricamento DDLSceltaSettore +++
        Call CaricaDDLSettori()
        '+++ carico la scelta del settore di lavoro obbligatoriamente +++
        frmScegliSettore.ShowDialog()
    End Sub