EgtDOORCreator :

- lettura messaggi anticipata
- duplica porta esegue salvataggio per aggiornare il campo code.

OptionsWindow/OptionModule.vb

@@ -102,8 +102,8 @@ Friend Module OptionModule
 
    Friend m_CompoPaneOrder As List(Of String) = New List(Of String)
 
-   ' inizializzazione lettura variabili ad inizio programma
-   Friend Sub InitOptionModule()
+   ' Lettura messaggi
+   Friend Sub ReadMessages()
       ' Leggo elenco lingue disponibili da file ini
       Dim nIndex As Integer = 1
       Dim ReadLanguage As Language = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
@@ -132,8 +132,11 @@ Friend Module OptionModule
       If Not EgtLoadMessages(sMsgFilePath) Then
          EgtOutLog(EgtMsg(50127))
       End If
+   End Sub
 
-      'i valori della pagina dell'assemblato
+   ' inizializzazione lettura variabili ad inizio programma
+   Friend Sub InitOptionModule()
+      'I valori della pagina dell'assemblato
       Dim Config As Integer = GetMainPrivateProfileInt(S_GENERAL, K_RUNAS, 0)
       m_ConfigurationSoftware = If(Config = 0, ConfigType.Door, ConfigType.Assembly)