diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 01e1dfb..9f7a56d 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -121,18 +121,21 @@ Namespace EgtCAM5
       ''' Execute the Point.  This method is invoked by the PointCommand.
       ''' </summary>
       Public Sub Loaded(ByVal param As Object)
+         ' Creazione scena
          PreInitializeScene()
          If Not m_ProjectScene.Init() Then
             EgtOutLog("Error in Project scene creation")
             SceneHost.Child = Nothing
-            ' Box di avviso
+            ' Box di avviso chiave mancante
             MsgBox(EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
             ' Chiudo il programma
             Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
-            ' Verifico abilitazione prodotto
+         ' Verifico abilitazione prodotto
          ElseIf (IniFile.m_nKeyOptions And KEY_OPT.BASE) = 0 Then
             m_CloseProgram = True
             MsgBox(EgtMsg(MSG_MISSINGKEYWD + 5), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
+            ' Chiudo il programma
+            Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
          Else
             IniFile.m_ProjectSceneContext = m_ProjectScene.GetCtx
             PostInitializeScene()