diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 7fe44f5..92d57da 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -505,17 +505,29 @@ Namespace EgtCAM5
 
                                                              End Sub)
          Application.Msn.Register(Application.INSERTPROJECT, Sub()
-
+                                                                ' eseguo
+                                                                Dim sDir As String = String.Empty
+                                                                GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sDir)
+                                                                m_Controller.InsertProject(sDir)
                                                              End Sub)
          Application.Msn.Register(Application.IMPORTPROJECT, Sub()
-
+                                                                Dim sDir As String = String.Empty
+                                                                GetPrivateProfileString(S_GENERAL, K_LASTIMPDIR, "", sDir)
+                                                                m_Controller.ImportProject(sDir)
                                                              End Sub)
          Application.Msn.Register(Application.EXPORTPROJECT, Sub()
-
+                                                                m_Controller.ExportProject(Path.ChangeExtension(m_Controller.GetCurrFile(), "dxf"))
                                                              End Sub)
          Application.Msn.Register(Application.EXECPROJECT, Sub()
+                                                              'If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
+                                                              Dim sDir As String = String.Empty
+                                                              GetPrivateProfileString(S_GENERAL, K_LASTLUADIR, "", sDir)
+                                                              m_Controller.Exec(sDir)
+                                                              'Else
+                                                              '   ShowMenuMruScripts(btnExec, New Point(0, btnExec.Height))
+                                                              'End If
 
-                                                             End Sub)
+                                                           End Sub)
 
       End Sub