diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 4292983..cba30f5 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -886,10 +886,10 @@ Namespace EgtCAM5
          ' Se in modalità Draw accetto tutto
          If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then Return
          ' Sono in modalità Machining
-         'se non posso selezionare nulla esco
-         If m_SceneSelType = SceneSelTypeOpt.NULL Then Return
-         ' Si può selezionare solo con il tasto sinistro se la selezione non è impostata a NULL
-         If e.Button <> Forms.MouseButtons.Left OrElse m_SceneSelType = SceneSelTypeOpt.NULL Then Return
+         ' se non posso selezionare nulla o in lavorazione esco
+         If m_SceneSelType = SceneSelTypeOpt.NULL OrElse m_SceneSelType = SceneSelTypeOpt.MACHINING Then Return
+         ' Si può selezionare solo con il tasto sinistro
+         If e.Button <> Forms.MouseButtons.Left Then Return
          ' Per default no drag
          m_bDrag = False
          Dim nSel As Integer