diff --git a/EgtManageFileDialog/EgtManageFileDialogVM.vb b/EgtManageFileDialog/EgtManageFileDialogVM.vb
index 66d6914..8d7f30d 100644
--- a/EgtManageFileDialog/EgtManageFileDialogVM.vb
+++ b/EgtManageFileDialog/EgtManageFileDialogVM.vb
@@ -294,13 +294,15 @@ Public Class EgtManageFileDialogVM
 
          For Each directory As String In DirectoryStart
             dir = m_RootListTmp.FirstOrDefault(Function(x) x.sName.Trim("\") = directory)
-            dir.IsExpanded = True
-            currItem = TryCast(dir, EgtFolder)
-            m_RootListTmp = currItem.FolderList
-            If count = DirectoryStart.Count Then
-               dir.IsSelected = True
-            Else
-               count += 1
+            If Not IsNothing(dir) Then
+               dir.IsExpanded = True
+               currItem = TryCast(dir, EgtFolder)
+               m_RootListTmp = currItem.FolderList
+               If count = DirectoryStart.Count Then
+                  dir.IsSelected = True
+               Else
+                  count += 1
+               End If
             End If
          Next
       End Set
@@ -336,31 +338,32 @@ Public Class EgtManageFileDialogVM
 
    Public ReadOnly Property Name_Msg As String
       Get
-         Return EgtMsg(15060)
+         Return EgtMsg(15060)    ' Nome
       End Get
    End Property
 
    Public ReadOnly Property LastModify_Msg As String
       Get
-         Return EgtMsg(15061)
+         Return EgtMsg(15061)    ' Ultima Modifica
       End Get
    End Property
 
    Public ReadOnly Property Type_Msg As String
       Get
-         Return EgtMsg(15062)
+         Return EgtMsg(15062)    ' Tipo
       End Get
    End Property
 
    Public ReadOnly Property Dimension_Msg As String
       Get
-         Return EgtMsg(15063)
+         Return EgtMsg(15063)    ' Dimensione
       End Get
    End Property
 
    Public ReadOnly Property FileName_Msg As String
       Get
-         Return If(m_nMode = ModeTypes.FILE, EgtMsg(15065), EgtMsg(15066))                ' File Name          Folder Name
+         ' Nome File   Nome Cartella
+         Return If(m_nMode = ModeTypes.FILE, EgtMsg(15065), EgtMsg(15066))
       End Get
    End Property
 
@@ -417,17 +420,17 @@ Public Class EgtManageFileDialogVM
       m_ViewModeList = New ObservableCollection(Of IdNameStruct)
       Dim ItemVisualization As New IdNameStruct With {
          .Id = 0,
-         .Name = EgtMsg(15067)      'List Templete
+         .Name = EgtMsg(15067)                  ' Elenco
       }
       m_ViewModeList.Add(ItemVisualization)
       ItemVisualization.Id = 3
-      ItemVisualization.Name = EgtMsg(15068)    'Detalis Templete
+      ItemVisualization.Name = EgtMsg(15068)    ' Dettagli
       m_ViewModeList.Add(ItemVisualization)
       ItemVisualization.Id = 1
-      ItemVisualization.Name = EgtMsg(15069)    'Tiles Templete
+      ItemVisualization.Name = EgtMsg(15069)    ' Riquadri
       m_ViewModeList.Add(ItemVisualization)
       ItemVisualization.Id = 2
-      ItemVisualization.Name = EgtMsg(15070)    'Content Templete
+      ItemVisualization.Name = EgtMsg(15070)    ' Contenuto
       m_ViewModeList.Add(ItemVisualization)
    End Sub
 
@@ -456,6 +459,7 @@ Public Class EgtManageFileDialogVM
          If Not IsNothing(CurrItem) And m_bCheckFileExists And m_bValidateNames Then
             For Each simbol As String In simbolsCharacter
                If m_sSaveFileName.Contains(simbol) Then
+                  ' Errore file contiene simboli non conformi
                   If EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15072), sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.Cancel Then
                      sSaveFileName = CurrItem.sName
                      Return
@@ -467,6 +471,7 @@ Public Class EgtManageFileDialogVM
          ElseIf m_bValidateNames = False And m_bOverwritePrompt Then
             If Not IsNothing(CurrItem) Then
                If m_sFileName.Equals(m_sSaveFileName) OrElse m_sSaveFileName.Equals(CurrItem.sName) Then
+                  ' File già esistente. Vuoi sovrascrivere?
                   If EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15073), sTitle, MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
                      Return
                   End If
@@ -480,6 +485,7 @@ Public Class EgtManageFileDialogVM
       ElseIf nMode = ModeTypes.FOLDER Then
          For Each simbol As String In simbolsCharacter
             If m_sSaveFileName.Contains(simbol) Then
+               ' Errore file contiene simboli non conformi
                If EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15072), sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.Cancel Then
                   Return
                End If
@@ -697,7 +703,7 @@ Public Class EgtFolder
 
    Public Overrides ReadOnly Property sTypeItem As String
       Get
-         Return EgtMsg(15064)
+         Return EgtMsg(15064)    ' Cartella di File
       End Get
    End Property
 
@@ -825,6 +831,7 @@ Public Class EgtFolder
       Dim DirectoryList() As DirectoryInfo
       Dim FileList() As FileInfo
       Try
+         ' ProgramData
          DirectoryList = m_DirectoryInfo.GetDirectories().Where(Function(file) (file.Attributes And FileAttributes.Hidden And file.Name <> EgtMsg(15071)) = 0).ToArray()
          FileList = m_DirectoryInfo.GetFiles().Where(Function(file) (file.Attributes And FileAttributes.Hidden) = 0).ToArray()
       Catch ex As Exception
diff --git a/MainWindow/MainWindowM.vb b/MainWindow/MainWindowM.vb
index e226aa9..d85cd2c 100644
--- a/MainWindow/MainWindowM.vb
+++ b/MainWindow/MainWindowM.vb
@@ -223,8 +223,8 @@ Public Class MainWindowM
          EgtSetLockId(sLockId)
       End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5583, 2510, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5583, 2510, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(3279, 100, 0, m_nKeyLevel) And
+                            EgtGetKeyOptions(3279, 100, 0, m_nKeyOptions)
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
diff --git a/Move/MoveVM.vb b/Move/MoveVM.vb
index 7b72d84..b3a7255 100644
--- a/Move/MoveVM.vb
+++ b/Move/MoveVM.vb
@@ -28,13 +28,13 @@ Public Class MoveVM
 
    Public ReadOnly Property TopBar_Msg_Stg0 As String
       Get
-         Return EgtMsg(110023)
+         Return EgtMsg(110023)      ' Seleziona il pezzo da spostare
       End Get
    End Property
 
    Public ReadOnly Property TopBar_Msg_Stg1 As String
       Get
-         Return EgtMsg(110025)
+         Return EgtMsg(110025)      ' Inserisci il vettore di spostamento
       End Get
    End Property
 
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index bcc033b..c0d4348 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -63,7 +63,7 @@ Friend Module OptionModule
       ' Inizializzo la lingua corrente
       OptionModule.m_SelectedLanguage = OptionModule.m_LanguageList(0)
       Dim sMsgName As String = String.Empty
-      GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", "", sMsgName)
+      GetMainPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgName)
       For Each Language In OptionModule.m_LanguageList
          If Language.Name = sMsgName Then
             OptionModule.m_SelectedLanguage = Language
diff --git a/OptionsWindow/OptionWindowV.xaml b/OptionsWindow/OptionWindowV.xaml
index b1bfa7c..2a577c1 100644
--- a/OptionsWindow/OptionWindowV.xaml
+++ b/OptionsWindow/OptionWindowV.xaml
@@ -26,11 +26,11 @@
                   <RowDefinition Height="Auto"/>
                   <RowDefinition Height="Auto"/>
                   <RowDefinition Height="Auto"/>
-                  <RowDefinition Height="Auto"/>
                </Grid.RowDefinitions>
                <Grid.ColumnDefinitions>
                   <ColumnDefinition Width="1*"/>
                   <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="1*"/>
                </Grid.ColumnDefinitions>
                <GroupBox Style="{StaticResource OptionWindow_GrBx}">
                   <GroupBox.Header>
@@ -40,8 +40,8 @@
                   <UniformGrid Rows="2" 
                                Style="{StaticResource OptionWindow_UniformGrid}">
                      <ComboBox DisplayMemberPath="Name"
-                               ItemsSource="{Binding LanguageList, Mode=OneWay}" 
-                               SelectedItem="{Binding SelectedLanguage}"
+                               ItemsSource="{Binding LanguageList}" 
+                               SelectedItem="{Binding SelectedLanguage, UpdateSourceTrigger=PropertyChanged}"
                                Style="{StaticResource OptionWindow_CmBx}"/>
                      <TextBlock Text="{Binding LanguageAdvertMsg}" 
                                 Style="{StaticResource OptionWindow_TxBl}"/>
@@ -63,25 +63,30 @@
                                 Style="{StaticResource OptionWindow_TxBl}"/>
                   </UniformGrid>
                </GroupBox>
+               <GroupBox Grid.Column="2"
+                         Style="{StaticResource OptionWindow_GrBx}">
+                  <GroupBox.Header>
+                     <TextBlock Text="{Binding TemaTopPanelMsg}"
+                                Style="{StaticResource OptionWindow_TxBl}"/>
+                  </GroupBox.Header>
+                  <UniformGrid Rows="2" 
+                               Style="{StaticResource OptionWindow_UniformGrid}">
+                     <ComboBox ItemsSource="{Binding ListTopPanel, Mode=OneWay}"  
+                               SelectedItem="{Binding SelectedTopPanel}"
+                               Style="{StaticResource OptionWindow_CmBx}">
+                        <ComboBox.ItemTemplate>
+                           <DataTemplate>
+                              <TextBlock Text="{Binding Converter={StaticResource SelectedComboConverter}}"
+                                         Style="{StaticResource Background_TxBl}"/>
+                           </DataTemplate>
+                        </ComboBox.ItemTemplate>
+                     </ComboBox>
+                     <TextBlock Text="{Binding TemaTopPanelAdvertMsg}" 
+                                Style="{StaticResource OptionWindow_TxBl}"/>
+                  </UniformGrid>
+               </GroupBox>
                <UniformGrid Grid.Row="1"
-                            Grid.ColumnSpan="2"
-                            Columns="2"
-                            Style="{StaticResource Background_UniformGrid}">
-                  <TextBlock Text="Scelta Top Panel" 
-                             Style="{StaticResource Background_TxBl}"/>
-                  <ComboBox ItemsSource="{Binding ListTopPanel, Mode=OneWay}"  
-                            SelectedItem="{Binding SelectedTopPanel}"
-                            Style="{StaticResource OptionWindow_CmBx}">
-                     <ComboBox.ItemTemplate>
-                        <DataTemplate>
-                           <TextBlock Text="{Binding Converter={StaticResource SelectedComboConverter}}"
-                                      Style="{StaticResource Background_TxBl}"/>
-                        </DataTemplate>
-                     </ComboBox.ItemTemplate>
-                  </ComboBox>
-               </UniformGrid>
-               <UniformGrid Grid.Row="2"
-                            Grid.ColumnSpan="2"
+                            Grid.ColumnSpan="3"
                             Columns="2"
                             Style="{StaticResource Background_UniformGrid}">
                   <TextBlock Text="{Binding TopSceneBackgroundMsg}" 
@@ -90,8 +95,8 @@
                           Command="{Binding TopSceneBackground_Command}"
                           Style="{StaticResource EgtWPFLib5_InputButton}"/>
                </UniformGrid>
-               <UniformGrid Grid.Row="3"
-                            Grid.ColumnSpan="2"
+               <UniformGrid Grid.Row="2"
+                            Grid.ColumnSpan="3"
                             Columns="2"
                             Style="{StaticResource SceneBackground_UniformGrid}">
                   <TextBlock Text="{Binding BotSceneBackgroundMsg}" 
@@ -100,8 +105,8 @@
                           Command="{Binding BotSceneBackground_Command}"
                           Style="{StaticResource EgtWPFLib5_InputButton}"/>
                </UniformGrid>
-               <UniformGrid Grid.Row="4"
-                            Grid.ColumnSpan="2"
+               <UniformGrid Grid.Row="3"
+                            Grid.ColumnSpan="3"
                             Columns="2"
                             Style="{StaticResource SceneBackground_UniformGrid}">
                   <TextBlock Text="{Binding GridColorMsg}" 
@@ -110,9 +115,9 @@
                           Command="{Binding GridColor_Command}"
                           Style="{StaticResource EgtWPFLib5_InputButton}"/>
                </UniformGrid>
-               <Grid Grid.Row="5"
+               <Grid Grid.Row="4"
                      Grid.RowSpan="2"
-                     Grid.ColumnSpan="2">
+                     Grid.ColumnSpan="3">
                   <Grid.ColumnDefinitions>
                      <ColumnDefinition Width="2*"/>
                      <ColumnDefinition Width="1*"/>
@@ -135,8 +140,8 @@
                             Style="{StaticResource ColorLine_ChBx}"/>
                </Grid>
 
-               <Grid Grid.Row="7"
-                     Grid.ColumnSpan="2"
+               <Grid Grid.Row="6"
+                     Grid.ColumnSpan="3"
                      Style="{StaticResource Licence_Grid}">
                   <Button Content="{Binding UpdateLicenceMsg}" 
                           Command="{Binding UpdateLicence_Command}"  
diff --git a/OptionsWindow/OptionWindowVM.vb b/OptionsWindow/OptionWindowVM.vb
index 4a760a6..b2e2f3b 100644
--- a/OptionsWindow/OptionWindowVM.vb
+++ b/OptionsWindow/OptionWindowVM.vb
@@ -24,6 +24,16 @@ Public Class OptionWindowVM
       Set(value As Language)
          If value IsNot OptionModule.m_SelectedLanguage Then
             OptionModule.m_SelectedLanguage = value
+            ' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
+            Dim sMsgDir As String = String.Empty
+            If GetMainPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
+               sMsgDir = Map.refMainWindowVM.MainWindowM.sConfigDir
+            End If
+            ' Leggo file messaggi
+            Dim sMsgFilePath As String = sMsgDir & "\" & OptionModule.m_SelectedLanguage.FilePath
+            If Not EgtLoadMessages(sMsgFilePath) Then
+               EgtOutLog("Error in EgtLoadMessages")
+            End If
             WriteMainPrivateProfileString(S_GENERAL, K_MESSAGES, OptionModule.m_SelectedLanguage.Name)
          End If
       End Set
@@ -141,73 +151,85 @@ Public Class OptionWindowVM
 
    Public ReadOnly Property Title As String
       Get
-         Return EgtMsg(5005)
+         Return EgtMsg(5005)     ' Opzioni
       End Get
    End Property
 
    Public ReadOnly Property CurrentLanguageMsg As String
       Get
-         Return EgtMsg(6501)
+         Return EgtMsg(6501)     ' Lingua corrente
       End Get
    End Property
 
    Public ReadOnly Property LanguageAdvertMsg As String
       Get
-         Return EgtMsg(6502)
+         Return EgtMsg(6502)     ' La nuova lingua diventerà corrente dal prossimo avvio del programma.
       End Get
    End Property
 
    Public ReadOnly Property TopSceneBackgroundMsg As String
       Get
-         Return EgtMsg(6510)
+         Return EgtMsg(6510)     ' Colore della vista in alto
       End Get
    End Property
 
    Public ReadOnly Property BotSceneBackgroundMsg As String
       Get
-         Return EgtMsg(6511)
+         Return EgtMsg(6511)     ' Colore della vista in basso
       End Get
    End Property
 
    Public ReadOnly Property GenericMsg As String
       Get
-         Return EgtMsg(6514)
+         Return EgtMsg(6514)     ' Generale
       End Get
    End Property
 
    Public ReadOnly Property GridColorMsg As String
       Get
-         Return EgtMsg(6517)
+         Return EgtMsg(6517)     ' Colore della griglia
       End Get
    End Property
 
    Public ReadOnly Property SmoothTriMeshMsg As String
       Get
-         Return EgtMsg(6518)
+         Return EgtMsg(6518)     ' Superfici smussate
       End Get
    End Property
 
    Public ReadOnly Property ThickLineMsg As String
       Get
-         Return EgtMsg(6536)
+         Return EgtMsg(6536)     ' Linee spesse
       End Get
    End Property
 
    Public ReadOnly Property UpdateLicenceMsg As String
       Get
-         Return EgtMsg(6553)
+         Return EgtMsg(6553)     ' Aggiorna Licenza
       End Get
    End Property
 
    Public ReadOnly Property TemaAdvertMsg As String
       Get
-         Return EgtMsg(110008)
+         Return EgtMsg(110008)   ' Il nuovo tema diventerà corrente quando verrà selezionato.
       End Get
    End Property
 
    Public ReadOnly Property TemaMsg As String
       Get
-         Return EgtMsg(110009)
+         Return EgtMsg(110009)   ' Tema
+      End Get
+   End Property
+
+   Public ReadOnly Property TemaTopPanelAdvertMsg As String
+      Get
+         Return EgtMsg(110032)   ' Il nuovo top panel diventerà corrente quando selezionato
+      End Get
+   End Property
+
+   Public ReadOnly Property TemaTopPanelMsg As String
+      Get
+         Return EgtMsg(110031)   ' Top Panel
       End Get
    End Property
 
@@ -412,7 +434,7 @@ Public Class OptionWindowVM
    Public Sub UpdateLicenceCmd()
       ' Apro dialogo per richiesta file licenza
       Dim LicDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
-         .Title = EgtMsg(110026),
+         .Title = EgtMsg(110026),   ' Licenza
          .InitialDirectory = Map.refMainWindowVM.MainWindowM.sConfigDir,
          .Filter = "Licences (.lic)|*.lic",
          .FilterIndex = 1,
diff --git a/Pair/PairVM.vb b/Pair/PairVM.vb
index 561a61c..27f72fa 100644
--- a/Pair/PairVM.vb
+++ b/Pair/PairVM.vb
@@ -29,31 +29,31 @@ Public Class PairVM
 
    Public ReadOnly Property TopBar_Msg_Stg0 As String
       Get
-         Return EgtMsg(110000)
+         Return EgtMsg(110000)   ' Seleziona dal primo Part il lato che vuoi accoppiare
       End Get
    End Property
 
    Public ReadOnly Property TopBar_Msg_Stg1 As String
       Get
-         Return EgtMsg(110020)
+         Return EgtMsg(110020)   ' Seleziona dal secondo Part il lato con cui vuoi accoppiare quello appena selezionato
       End Get
    End Property
 
    Public ReadOnly Property TopBar_Msg_Stg2 As String
       Get
-         Return EgtMsg(110021)
+         Return EgtMsg(110021)   ' Modifica le impostazioni di accoppiamento; tenendo premuto SHIFT puoi anche selezionare per ogni Part una faccia adiacente ai due lati accoppiati, per farle coincidere
       End Get
    End Property
 
    Public ReadOnly Property FlipOption1_Msg As String
       Get
-         Return EgtMsg(110001)
+         Return EgtMsg(110001)   ' Flip ∥
       End Get
    End Property
 
    Public ReadOnly Property FlipOption2_Msg As String
       Get
-         Return EgtMsg(110002)
+         Return EgtMsg(110002)   ' Flip ⟂
       End Get
    End Property
 
diff --git a/Panel/PanelVM.vb b/Panel/PanelVM.vb
index 5c30a3c..f63b934 100644
--- a/Panel/PanelVM.vb
+++ b/Panel/PanelVM.vb
@@ -27,7 +27,7 @@ Public Class PanelVM
 
    Public ReadOnly Property TopBar_Msg_Stg0 As String
       Get
-         Return EgtMsg(110030)
+         Return EgtMsg(110030)   ' Clicca sull'edge di un pezzo per aggiungere una paretina del tipo selezionato
       End Get
    End Property
 
diff --git a/ProjManager/ProjManagerVM.vb b/ProjManager/ProjManagerVM.vb
index 2000c9b..8b54172 100644
--- a/ProjManager/ProjManagerVM.vb
+++ b/ProjManager/ProjManagerVM.vb
@@ -9,19 +9,19 @@ Public Class ProjManagerVM
 
    Public ReadOnly Property HomeTab_Msg
       Get
-         Return EgtMsg(110010).ToUpper()
+         Return EgtMsg(110010).ToUpper()     ' Home
       End Get
    End Property
 
    Public ReadOnly Property Parametrico_Msg
       Get
-         Return EgtMsg(110011).ToUpper()
+         Return EgtMsg(110011).ToUpper()     ' Parametrico
       End Get
    End Property
 
    Public ReadOnly Property Save_Msg
       Get
-         Return EgtMsg(110013)
+         Return EgtMsg(110013)      ' Salva
       End Get
    End Property
 
diff --git a/Rotate/RotateVM.vb b/Rotate/RotateVM.vb
index 51e7dd4..59d22c3 100644
--- a/Rotate/RotateVM.vb
+++ b/Rotate/RotateVM.vb
@@ -41,24 +41,24 @@ Public Class RotateVM
 
    Public ReadOnly Property TopBar_Msg0 As String
       Get
-         Return EgtMsg(110024)
+         Return EgtMsg(110024)   ' Seleziona il pezzo da ruotare
       End Get
    End Property
 
    Public ReadOnly Property TopBar_Msg1 As String
       Get
-         Return EgtMsg(110005)
+         Return EgtMsg(110005)   ' Seleziona l'asse di rotazione
       End Get
    End Property
    Public ReadOnly Property TopBar_Msg2 As String
       Get
-         Return EgtMsg(110022)
+         Return EgtMsg(110022)   ' Inserisci l'angolo di rotazione
       End Get
    End Property
 
    Public ReadOnly Property Testo_Msg As String
       Get
-         Return EgtMsg(110006)
+         Return EgtMsg(110006)   ' Angolo
       End Get
    End Property
 
@@ -90,6 +90,7 @@ Public Class RotateVM
 
    Public Overrides Sub LoadParamList()
       AddGenericParam(New _TextBlockParam("Messaggio", MsgList(Stage)))
+      ' Angolo
       AddGenericParam(New _TextBoxParam(EgtMsg(110006), 0, Visibility.Visible, False))
    End Sub
 
diff --git a/SceneButton/SceneButtonVM.vb b/SceneButton/SceneButtonVM.vb
index b307d5e..80a7bba 100644
--- a/SceneButton/SceneButtonVM.vb
+++ b/SceneButton/SceneButtonVM.vb
@@ -444,7 +444,7 @@ Module SceneCmd
    ''' </summary>
    Private Sub ImportLoop()
       Dim ImportDialog As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
-         .Title = EgtMsg(91127),
+         .Title = EgtMsg(91127),    ' Importa
          .Filter = "nge files (*.nge)|*.nge",
          .FilterIndex = 1,
          .InitialDirectory = "C:\EgtData\EgtStone3D\Temp",
diff --git a/SceneHost/MySceneHostVM.vb b/SceneHost/MySceneHostVM.vb
index c8d94c5..7a58596 100644
--- a/SceneHost/MySceneHostVM.vb
+++ b/SceneHost/MySceneHostVM.vb
@@ -43,8 +43,7 @@ Public Class MySceneHostVM
       ' Inizializzazione Scena
       PreInitializeScene()
       ' Se tutto bene
-      'If MainScene.Init() And Map.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.BASE) Then
-      If MainScene.Init() Then
+      If MainScene.Init() And Map.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.BASE) Then
          PostInitializeScene()
          ' modo di visualizzazione
          EgtSetView(VT.ISO_SE)
@@ -58,27 +57,26 @@ Public Class MySceneHostVM
       ' Se manca la chiave
       If Map.refMainWindowVM.MainWindowM.nKeyLevel = -1 Or Map.refMainWindowVM.MainWindowM.nKeyLevel = -2 Then
          EgtOutLog("Missing Dongle")
-         ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
+         ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."
          Dim sText As String = EgtMsg(10102) & vbCrLf & EgtMsg(10103)
-         Dim sTitle As String = EgtMsg(10101)
+         Dim sTitle As String = EgtMsg(10101)   ' Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
          ' Altrimenti manca la licenza
       Else
          EgtOutLog("Problems with Licence")
-         ' Box di avviso licenza con problemi : "Programma senza licenza. \n Caricala e riavvia il programma."  "Errore"
+         ' Box di avviso licenza con problemi : "Programma senza licenza. \n Caricala e riavvia il programma."
          Dim sText As String = EgtMsg(10105) & vbCrLf & EgtMsg(10106)
-         Dim sTitle As String = EgtMsg(10101)
+         Dim sTitle As String = EgtMsg(10101)   ' Errore
          If EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.OK Then
             ' Apro dialogo per richiesta file licenza
             Dim LicDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
-               .Title = EgtMsg(110026),
+               .Title = EgtMsg(110026),   ' Licenza
                .Filter = "Licences (.lic)|*.lic",
                .CheckFileExists = True,
                .ValidateNames = True
             }
             If LicDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
                ' Recupero il direttorio del file
-               'Dim sDir As String = Path.GetDirectoryName(LicDlg.FileName)
                Dim sDir As String = Path.GetDirectoryName(LicDlg.FileName)
                ' Se il file non è già nel direttorio di configurazione lo copio
                If Not String.Equals(Path.GetFullPath(sDir), Path.GetFullPath(Map.refMainWindowVM.MainWindowM.sConfigDir), StringComparison.OrdinalIgnoreCase) Then
@@ -197,7 +195,7 @@ Public Class MySceneHostVM
             sDir = Path.GetDirectoryName(sDir)
          End If
          Dim OpenFileDialog As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
-            .Title = EgtMsg(110015),
+            .Title = EgtMsg(110015),   ' Apri
             .Filter = "nge files (*.nge)|*.nge" &
                       "|vme files (*.vme)|*.vme",
             .FileName = "New.vme",
@@ -263,7 +261,7 @@ Public Class MySceneHostVM
       End If
       ' Assegnazione nome file con dialogo
       Dim SaveFileDialog As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
-         .Title = EgtMsg(110013),
+         .Title = EgtMsg(110013),   ' Salva
          .Filter = "New geometry EgalTech(*.nge)|*.nge" &
                    "|vme files (*.vme)|*.vme",
          .FilterIndex = nFilterIndex,
@@ -284,7 +282,7 @@ Public Class MySceneHostVM
          ' Salvataggio standard
          bOk = MainController.SaveProject()
       End If
-      WriteMainPrivateProfileString(S_GENERAL, "LastExstensionSave", SaveFileDialog.FilterIndex.ToString())
+      WriteMainPrivateProfileString(S_GENERAL, K_LASTEXSTENSIONSAVE, SaveFileDialog.FilterIndex.ToString())
       m_bIsSaveAs = False
       ' Imposto stato gestione mouse diretto della scena a nessuno
       MainScene.SetStatusNull()
@@ -359,6 +357,7 @@ Public Class MySceneHostVM
    Private Sub OnNewProject(sender As Object, bOk As Boolean)
       EgtErase(EgtGetFirstPart())
       If Not bOk Then
+         ' Errore nella creazione di un nuovo file    Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(10002), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
       EgtZoom(ZM.ALL)
@@ -374,10 +373,11 @@ Public Class MySceneHostVM
          Map.refTopPanelVM.MruFiles.Remove(sFile)
          Dim sMsg As String
          If My.Computer.FileSystem.FileExists(sFile) Then
-            sMsg = EgtMsg(10003) & " '" & sFile & "'"            'Error opening file
+            sMsg = EgtMsg(10003) & " '" & sFile & "'"    ' Errore nell'apertura del file
          Else
-            sMsg = EgtMsg(10009) & " '" & sFile & "'"            'Missing file
+            sMsg = EgtMsg(10009) & " '" & sFile & "'"    ' Non esiste il file
          End If
+         ' Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
    End Sub
@@ -398,7 +398,8 @@ Public Class MySceneHostVM
          Map.refTopPanelVM.MruFiles.Add(sFile)
       Else
          Map.refTopPanelVM.MruFiles.Remove(sFile)
-         Dim sMsg As String = EgtMsg(10004) & " '" & sFile & "'"            'Error saving file
+         Dim sMsg As String = EgtMsg(10004) & " '" & sFile & "'"     ' Errore nel salvataggio del file
+         ' Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
    End Sub
@@ -406,7 +407,8 @@ Public Class MySceneHostVM
    Private Sub OnInsertedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean)
       ' Segnalo eventuale errore
       If Not bOk Then
-         Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'"            'Error importing file
+         Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'"     ' Errore nell'importazione del file
+         ' Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
       Map.refTopPanelVM.MruImportFiles.Add(sFile)
@@ -422,26 +424,21 @@ Public Class MySceneHostVM
          Else
             nFlag = 0
          End If
-         ' Abilito progress e bottone stop
-         'Map.refMyStatusBarVM.StartLoading("", True)
       Else
+         ' Tipo di file sconosciuto    Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(10005), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' File type unknown  - Error
       End If
    End Sub
 
    Private Sub OnImportedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean)
       EgtZoom(ZM.ALL)
-      ' Disabilito progress e bottone stop
-      'Map.refMyStatusBarVM.EndLoading("")
       ' Salvo path
       WriteMainPrivateProfileString(S_GENERAL, K_LASTIMPDIR, Path.GetDirectoryName(sFile))
       ' Segnalo eventuale errore
       If Not bOk Then
-         Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'"            'Error importing file
+         Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'"     ' Errore nell'importazione del file
+         ' Errore
          EgtStone3D.EgtMessageBoxV.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Error
-      ElseIf Path.GetExtension(sFile) <> ".cnc" Then
-         ' creo oggetto pezzo in lista
-         'Map.refProjectVM.
       End If
       MainScene.SetStatusNull()
    End Sub
diff --git a/SceneUserControl/SceneUserControlVM.vb b/SceneUserControl/SceneUserControlVM.vb
index 199b072..41711a7 100644
--- a/SceneUserControl/SceneUserControlVM.vb
+++ b/SceneUserControl/SceneUserControlVM.vb
@@ -34,19 +34,19 @@ Public Class SceneUserControlVM
 
    Public ReadOnly Property Conferma_Msg As String
       Get
-         Return EgtMsg(110003)
+         Return EgtMsg(110003)      ' Conferma
       End Get
    End Property
 
    Public ReadOnly Property Preview_Msg As String
       Get
-         Return EgtMsg(110017)
+         Return EgtMsg(110017)      ' Preview
       End Get
    End Property
 
    Public ReadOnly Property Annulla_Msg As String
       Get
-         Return EgtMsg(110004)
+         Return EgtMsg(110004)      ' Annulla
       End Get
    End Property
 
diff --git a/SecondaryWindow/SecondaryWindowV.xaml.vb b/SecondaryWindow/SecondaryWindowV.xaml.vb
index 9b8e049..05612e6 100644
--- a/SecondaryWindow/SecondaryWindowV.xaml.vb
+++ b/SecondaryWindow/SecondaryWindowV.xaml.vb
@@ -15,10 +15,10 @@ Public Class SecondaryWindowV
 
       ' La chiamata è richiesta dalla finestra di progettazione.
       InitializeComponent()
-
       ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
       m_SecondaryWindowVM = New SecondaryWindowVM
       Me.DataContext = m_SecondaryWindowVM
+      Map.SetRefSecondaryWindowV(Me)
       AddHandler Me.ContentRendered, AddressOf SecondaryWindowV_ContentRendered
       AddHandler Me.Loaded, AddressOf SecondaryWindowV_Loaded
       AddHandler Me.Closing, AddressOf SecondaryWindowV_Closing
diff --git a/SecondaryWindow/SecondaryWindowVM.vb b/SecondaryWindow/SecondaryWindowVM.vb
index 7f0fc82..e79f319 100644
--- a/SecondaryWindow/SecondaryWindowVM.vb
+++ b/SecondaryWindow/SecondaryWindowVM.vb
@@ -22,6 +22,7 @@ Public Class SecondaryWindowVM
          Dim sFilePath As String = ""
          EgtGetCurrFilePath(sFilePath)
          If String.IsNullOrEmpty(sFilePath) Then
+            ' Nuovo
             sFilePath = EgtMsg(30501) & Map.refMainWindowVM.MainWindowM.nInstance.ToString()
             Return sFilePath
          Else
@@ -35,6 +36,7 @@ Public Class SecondaryWindowVM
          Dim sFilePath As String = ""
          EgtGetCurrFilePath(sFilePath)
          If String.IsNullOrEmpty(sFilePath) Then
+            ' Nuovo
             sFilePath = EgtMsg(30501) & Map.refMainWindowVM.MainWindowM.nInstance.ToString()
          End If
          Return sFilePath
@@ -57,6 +59,7 @@ Public Class SecondaryWindowVM
       If Not IsNothing(Map.refSplashScreen) Then
          m_SplashScreen_Timer.Start()
       End If
+      SetTitle()
    End Sub
 
 #End Region    ' Constructor
diff --git a/TopPanel/TopPanelVM.vb b/TopPanel/TopPanelVM.vb
index d489193..b1ccc4b 100644
--- a/TopPanel/TopPanelVM.vb
+++ b/TopPanel/TopPanelVM.vb
@@ -55,7 +55,7 @@ Public Class TopPanelVM
       NotifyPropertyChanged(NameOf(IsOpenProspective))
    End Sub
 
-   Private m_View_Msg As String = "▼" & EgtMsg(110019)
+   Private m_View_Msg As String = "▼" & EgtMsg(110019)   ' Vista
    Public Property View_Msg As String
       Get
          Return m_View_Msg
@@ -69,7 +69,7 @@ Public Class TopPanelVM
       NotifyPropertyChanged(NameOf(View_Msg))
    End Sub
 
-   Private m_ProspectiveView_Msg As String = "▼" & EgtMsg(110027)
+   Private m_ProspectiveView_Msg As String = "▼" & EgtMsg(110027)    ' Vista Prospettica
    Public Property ProspectiveView_Msg As String
       Get
          Return m_ProspectiveView_Msg
@@ -144,40 +144,34 @@ Public Class TopPanelVM
 
    Public ReadOnly Property NewFile_Msg
       Get
-         Return EgtMsg(110012)
+         Return EgtMsg(110012)      ' Nuovo File
       End Get
    End Property
 
    Public ReadOnly Property Save_Msg
       Get
-         Return EgtMsg(110013)
+         Return EgtMsg(110013)      ' Salva
       End Get
    End Property
 
    Public ReadOnly Property SaveAs_Msg
       Get
-         Return EgtMsg(110014)
+         Return EgtMsg(110014)      ' Salva Come
       End Get
    End Property
 
    Public ReadOnly Property Open_Msg
       Get
-         Return EgtMsg(110015)
+         Return EgtMsg(110015)      ' Apri
       End Get
    End Property
 
    Public ReadOnly Property Options_Msg
       Get
-         Return EgtMsg(110016)
+         Return EgtMsg(110016)      ' Opzioni
       End Get
    End Property
 
-   'Public ReadOnly Property View_Msg
-   '   Get
-   '      Return EgtMsg(110019)
-   '   End Get
-   'End Property
-
 #End Region    ' Messages
 
    ' Definizione Comandi
@@ -240,6 +234,7 @@ Public Class TopPanelVM
 
    Friend Sub NewFile()
       NewProject(True)
+      Map.refSecondaryWindowVM.SetTitle()
    End Sub
 
 #End Region    ' NewFileCmd
@@ -351,12 +346,12 @@ Public Class TopPanelVM
    Public Sub ShowPopUp(ByVal param As Object)
       If m_IsOpen Then
          SetIsOpen(False)
-         SetView_Msg("▼" & EgtMsg(110019))
+         SetView_Msg("▼" & EgtMsg(110019))      ' Vista
       Else
          SetIsOpen(True)
-         SetView_Msg("▲" & EgtMsg(110019))
+         SetView_Msg("▲" & EgtMsg(110019))      ' Vista
          SetIsOpenProspective(False)
-         SetProspectiveView_Msg("▼" & EgtMsg(110027))
+         SetProspectiveView_Msg("▼" & EgtMsg(110027))    ' Vista Prospettica
       End If
    End Sub
 
@@ -382,12 +377,12 @@ Public Class TopPanelVM
    Public Sub ShowPopUpProspective(ByVal param As Object)
       If m_IsOpenProspective Then
          SetIsOpenProspective(False)
-         SetProspectiveView_Msg("▼" & EgtMsg(110027))
+         SetProspectiveView_Msg("▼" & EgtMsg(110027))    ' Vista Prospettica
       Else
          SetIsOpenProspective(True)
-         SetProspectiveView_Msg("▲" & EgtMsg(110027))
+         SetProspectiveView_Msg("▲" & EgtMsg(110027))    ' Vista Prospettica
          SetIsOpen(False)
-         SetView_Msg("▼" & EgtMsg(110019))
+         SetView_Msg("▼" & EgtMsg(110019))      ' Vista
       End If
    End Sub
 
diff --git a/Utility/EgtStone3DDarkDictionary.xaml b/Utility/EgtStone3DDarkDictionary.xaml
index ec5678c..bd8e3ac 100644
--- a/Utility/EgtStone3DDarkDictionary.xaml
+++ b/Utility/EgtStone3DDarkDictionary.xaml
@@ -67,7 +67,7 @@
 
    <SolidColorBrush x:Key="Border_EgtCustomWindow.Static.Border" Color="{StaticResource EgalwareGray_Color}"/>
 
-   <SolidColorBrush x:Key="TextBlock_EgtCustomWindow.Static.Background" Color="{StaticResource EgalwareGray_Color}"/>
+   <SolidColorBrush x:Key="TextBlock_EgtCustomWindow.Static.Background" Color="{StaticResource EgtStone3D_Calypso_Color}"/>
    <SolidColorBrush x:Key="TextBlock_EgtCustomWindow.Static.Foreground" Color="{StaticResource EgalwareWhite_Color}"/>
 
    <SolidColorBrush x:Key="Rectangle_EgtCustomWindow.Static.Fill" Color="{StaticResource EgalwareTransparent_Color}"/>
@@ -301,4 +301,10 @@
 
    <!--#endregion ScrollBarColor-->
 
+   <!--#region SeparatorColor-->
+
+   <SolidColorBrush x:Key="Separator.Static.Background" Color="{StaticResource EgtStone3D_Selago_Color}"/>
+
+   <!--#endregion SeparatorColor-->
+
 </ResourceDictionary>
diff --git a/Utility/EgtStone3DDefaultStyle.xaml b/Utility/EgtStone3DDefaultStyle.xaml
index 0942263..0875963 100644
--- a/Utility/EgtStone3DDefaultStyle.xaml
+++ b/Utility/EgtStone3DDefaultStyle.xaml
@@ -82,7 +82,7 @@
    <Color x:Key="EgtStone3D_GoldenDream_Color">#EDC637</Color>
    <Color x:Key="EgtStone3D_Gallery_Color">#F0F0F0</Color>
    <Color x:Key="EgtStone3D_Mercury_Color">#E5E5E5</Color>
-   <Color x:Key="EgtStone3D_SilverChalice_Color">#ACACAC</Color>
+   <Color x:Key="EgtStone3D_SilverChalice_Color">#A9A9A9</Color>
    <Color x:Key="EgtStone3D_Selago_Color">#ECF4FC</Color>
    <Color x:Key="EgtStone3D_HawkesBlue_Color">#DCECFC</Color>
    <Color x:Key="EgtStone3D_Seagull_Color">#7EB4EA</Color>
@@ -865,8 +865,8 @@
    </Style>
 
    <Style x:Key="OptionWindowV_Window" TargetType="{x:Type EgtWPFLib5:EgtMainWindow}" BasedOn="{StaticResource Dialog_Window}">
-      <Setter Property="Width" Value="430"/>
-      <Setter Property="Height" Value="500"/>
+      <Setter Property="Width" Value="500"/>
+      <Setter Property="Height" Value="450"/>
       <Setter Property="MinWidth" Value="400"/>
       <Setter Property="MinHeight" Value="382"/>
    </Style>
@@ -1040,7 +1040,7 @@
    <Style x:Key="ColorLine_TxBl" TargetType="{x:Type TextBlock}">
       <Setter Property="Foreground" Value="{DynamicResource TextBlock.Static.Foreground}"/>
       <Setter Property="VerticalAlignment" Value="Center"/>
-      <Setter Property="Margin" Value="5,5,0,5"/>
+      <Setter Property="Margin" Value="50,5,0,5"/>
    </Style>
 
    <Style x:Key="TextBlockParam_TxBl" TargetType="{x:Type TextBlock}">
@@ -1503,7 +1503,7 @@
 
    <Style x:Key="ColorLine_ChBx" TargetType="{x:Type CheckBox}">
       <Setter Property="VerticalAlignment" Value="Center"/>
-      <Setter Property="Margin" Value="22,5,0,5"/>
+      <Setter Property="Margin" Value="43,5,0,5"/>
    </Style>
 
    <!--#endregion CheckBoxStyle-->
@@ -2225,11 +2225,11 @@
    </Style>
 
    <Style x:Key="Background_UniformGrid" TargetType="{x:Type UniformGrid}">
-      <Setter Property="Margin" Value="5,2,0,5"/>
+      <Setter Property="Margin" Value="50,2,0,5"/>
    </Style>
 
    <Style x:Key="SceneBackground_UniformGrid" TargetType="{x:Type UniformGrid}">
-      <Setter Property="Margin" Value="5,0,0,5"/>
+      <Setter Property="Margin" Value="50,0,0,5"/>
    </Style>
    
    <Style x:Key="SceneUserControl_UniformGrid" TargetType="{x:Type UniformGrid}">
@@ -2818,6 +2818,7 @@
    <!--#region SeparatorStyle-->
 
    <Style x:Key="TopPanel_Separator" TargetType="{x:Type Separator}">
+      <Setter Property="Background" Value="{DynamicResource Separator.Static.Background}"/>
       <Setter Property="HorizontalAlignment" Value="Left"/>
       <Setter Property="VerticalAlignment" Value="Top"/>
       <Setter Property="Height" Value="100"/>
@@ -2834,6 +2835,7 @@
    </Style>
 
    <Style x:Key="TopPanel1_Separator" TargetType="{x:Type Separator}">
+      <Setter Property="Background" Value="{DynamicResource Separator.Static.Background}"/>
       <Setter Property="Margin" Value="0,10,0,5"/>
    </Style>
    
diff --git a/Utility/EgtStone3DDictionary.xaml b/Utility/EgtStone3DDictionary.xaml
index 6b7e2ce..6e16c19 100644
--- a/Utility/EgtStone3DDictionary.xaml
+++ b/Utility/EgtStone3DDictionary.xaml
@@ -301,5 +301,11 @@
    <SolidColorBrush x:Key="ScrollBar.Button.Static.Background" Color="{StaticResource EgalwareWhite_Color}"/>
 
    <!--#endregion ScrollBarColor-->
+   
+   <!--#region SeparatorColor-->
+
+   <SolidColorBrush x:Key="Separator.Static.Background" Color="{StaticResource EgtStone3D_SilverChalice_Color}"/>
+
+   <!--#endregion SeparatorColor-->
 
 </ResourceDictionary>
diff --git a/Utility/Map.vb b/Utility/Map.vb
index 4f38cb1..4c185ca 100644
--- a/Utility/Map.vb
+++ b/Utility/Map.vb
@@ -10,6 +10,7 @@ Module Map
    Private m_refSecondaryWindowVM As SecondaryWindowVM
 
    Private m_refMainWindowV As MainWindowV
+   Private m_refSecondaryWindowV As SecondaryWindowV
    Private m_refSceneHostV As SceneHostV
    Private m_refSceneButtonV As SceneButtonV
    Private m_refSplashScreenV As SplashScreenV
@@ -24,6 +25,12 @@ Module Map
       End Get
    End Property
 
+   Public ReadOnly Property refSecondaryWindowV As SecondaryWindowV
+      Get
+         Return m_refSecondaryWindowV
+      End Get
+   End Property
+
    Public ReadOnly Property refSecondaryWindowVM As SecondaryWindowVM
       Get
          Return m_refSecondaryWindowVM
@@ -81,6 +88,11 @@ Module Map
       Return Not IsNothing(m_refMainWindowV)
    End Function
 
+   Friend Function SetRefSecondaryWindowV(SecondaryWindowV As SecondaryWindowV) As Boolean
+      m_refSecondaryWindowV = SecondaryWindowV
+      Return Not IsNothing(m_refSecondaryWindowV)
+   End Function
+
    Friend Function SetRefMainWindowVM(MainWindowVM As MainWindowVM) As Boolean
       m_refMainWindowVM = MainWindowVM
       Return Not IsNothing(m_refMainWindowVM)
diff --git a/Utility/SolidManagerM.vb b/Utility/SolidManagerM.vb
index 1f6dbbe..d254458 100644
--- a/Utility/SolidManagerM.vb
+++ b/Utility/SolidManagerM.vb
@@ -490,7 +490,7 @@ Module SolidManagerM
       AssLog("ASS.FacePair()")
 
       ' ricalcolo le intersezioni
-      Dim sText As String = EgtMsg(110007)
+      Dim sText As String = EgtMsg(110007)      ' Conferma oppura annulla l'accoppiamento
       If FindInters(nId) Then
          'MyMsgTxBl.Text = sText & vbCrLf & "Inters!"
       Else
diff --git a/ViewPanel/ViewPanelVM.vb b/ViewPanel/ViewPanelVM.vb
index a87e2ea..d85dd23 100644
--- a/ViewPanel/ViewPanelVM.vb
+++ b/ViewPanel/ViewPanelVM.vb
@@ -10,37 +10,37 @@ Public Class ViewPanelVM
 
    Public ReadOnly Property LookFromTop_Msg
       Get
-         Return EgtMsg(5257)
+         Return EgtMsg(5257)     ' Vista da Sopra
       End Get
    End Property
 
    Public ReadOnly Property LookFromBottom_Msg
       Get
-         Return EgtMsg(5284)
+         Return EgtMsg(5284)     ' Vista da Sotto
       End Get
    End Property
 
    Public ReadOnly Property LookFromFront_Msg
       Get
-         Return EgtMsg(5258)
+         Return EgtMsg(5258)     ' Vista di Fronte
       End Get
    End Property
 
    Public ReadOnly Property LookFromBack_Msg
       Get
-         Return EgtMsg(5260)
+         Return EgtMsg(5260)     ' Vista da Dietro
       End Get
    End Property
 
    Public ReadOnly Property LookFromLeft_Msg
       Get
-         Return EgtMsg(5259)
+         Return EgtMsg(5259)     ' Vista da Sinistra
       End Get
    End Property
 
    Public ReadOnly Property LookFromRight_Msg
       Get
-         Return EgtMsg(5261)
+         Return EgtMsg(5261)     ' Vista da Destra
       End Get
    End Property
 
diff --git a/ViewPanelProspective/ViewPanelProspectiveVM.vb b/ViewPanelProspective/ViewPanelProspectiveVM.vb
index 617e733..29ec504 100644
--- a/ViewPanelProspective/ViewPanelProspectiveVM.vb
+++ b/ViewPanelProspective/ViewPanelProspectiveVM.vb
@@ -10,13 +10,13 @@ Public Class ViewPanelProspectiveVM
 
    Public ReadOnly Property Orthographic_Msg
       Get
-         Return EgtMsg(110028)
+         Return EgtMsg(110028)      ' Ortografica
       End Get
    End Property
 
    Public ReadOnly Property Prospective_Msg
       Get
-         Return EgtMsg(110029)
+         Return EgtMsg(110029)      ' Prospettica
       End Get
    End Property