diff --git a/CNCommunication.vb b/CNCommunication.vb
index 3fa16f4..61993a1 100644
--- a/CNCommunication.vb
+++ b/CNCommunication.vb
@@ -249,7 +249,7 @@ Public Class CNCommunication
          m_CN.SetCnDataVar(CN_generico.CnData.InternalCoolant, sVal)
          GetPrivateProfileString(S_NCDATA, K_EXTERNCOOLANT, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.ExternCoolant, sVal)
-         GetPrivateProfileString(S_NCDATA, K_CBAXES, "", sVal, m_MainWindow.GetMachIniFile())
+         GetPrivateProfileString(S_NCDATA, K_CAXES, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.CBAxes, sVal)
          GetPrivateProfileString(S_NCDATA, K_AIRBLOW, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.AirBlow, sVal)
@@ -265,10 +265,14 @@ Public Class CNCommunication
          m_CN.SetCnDataVar(CN_generico.CnData.LimitZ, sVal)
          GetPrivateProfileString(S_NCDATA, K_POWEROVR, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.PowerOvr, sVal)
-         GetPrivateProfileString(S_NCDATA, K_VACUUMPOSITION, "", sVal, m_MainWindow.GetMachIniFile())
-         m_CN.SetCnDataVar(CN_generico.CnData.VacuumPosition, sVal)
-         GetPrivateProfileString(S_NCDATA, K_VACUUMROT, "", sVal, m_MainWindow.GetMachIniFile())
-         m_CN.SetCnDataVar(CN_generico.CnData.VacuumRot, sVal)
+         GetPrivateProfileString(S_NCDATA, K_VACUUMUP, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.VacuumUp, sVal)
+         GetPrivateProfileString(S_NCDATA, K_VACUUMDOWN, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.VacuumDown, sVal)
+         GetPrivateProfileString(S_NCDATA, K_VACUUM0, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.Vacuum0, sVal)
+         GetPrivateProfileString(S_NCDATA, K_VACUUM90, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.Vacuum90, sVal)
          GetPrivateProfileString(S_NCDATA, K_VACUU3STATE, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.Vacuum3State, sVal)
          GetPrivateProfileString(S_NCDATA, K_VACUU4STATE, "", sVal, m_MainWindow.GetMachIniFile())
@@ -283,8 +287,10 @@ Public Class CNCommunication
          m_CN.SetCnDataVar(CN_generico.CnData.CloseAllState, sVal)
          GetPrivateProfileString(S_NCDATA, K_BLOWSTATE, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.BlowState, sVal)
-         GetPrivateProfileString(S_NCDATA, K_VACUUMSTATE, "", sVal, m_MainWindow.GetMachIniFile())
-         m_CN.SetCnDataVar(CN_generico.CnData.VacuumState, sVal)
+         GetPrivateProfileString(S_NCDATA, K_VACUUMON, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.VacuumOn, sVal)
+         GetPrivateProfileString(S_NCDATA, K_VACUUMOFF, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.VacuumOff, sVal)
          GetPrivateProfileString(S_NCDATA, K_BYPASSTATE, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.BypassState, sVal)
 
@@ -458,8 +464,11 @@ Public Class CNCommunication
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.TableDownChanged(m_CN.bTableDownState)
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.DoorClosedChanged(m_CN.nDoorClosedState)
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.LimitZChanged(m_CN.bLimitZState)
-            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumPositionChanged(m_CN.bVacuumPosition)
-            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumRotChanged(m_CN.bVacuumRot)
+            m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.FiveAxisStateChanged(m_CN.Is_G24_active())
+            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumUpChanged(m_CN.bVacuumUp)
+            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumDownChanged(m_CN.bVacuumDown)
+            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum0Changed(m_CN.bVacuum0)
+            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum90Changed(m_CN.bVacuum90)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum3Changed(m_CN.bVacuum3State)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum4Changed(m_CN.bVacuum4State)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum135Changed(m_CN.bVacuum135State)
@@ -467,19 +476,20 @@ Public Class CNCommunication
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.OpenAllChanged(m_CN.bOpenAllState)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.CloseAllChanged(m_CN.bCloseAllState)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.BlowChanged(m_CN.bBlowState)
-            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumChanged(m_CN.bVacuumState)
+            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumOnChanged(m_CN.bVacuumOn)
+            m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumOffChanged(m_CN.bVacuumOff)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.BypassChanged(m_CN.bBypassState)
          Else
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.SpindleStateChanged(m_CN.bSpindleState)
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.CoolantStateChanged(m_CN.bCoolantState)
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.LaserStateChanged(m_CN.bLaserState)
-         End If
-         If m_CN.Is_G24_active() Then
-            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ThreeAxisStateChanged(False)
-            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.FiveAxisStateChanged(True)
-         Else
-            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ThreeAxisStateChanged(True)
-            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.FiveAxisStateChanged(False)
+            If m_CN.Is_G24_active() Then
+               m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ThreeAxisStateChanged(False)
+               m_MainWindow.m_DirectCutPageUC.m_MachineButtons.FiveAxisStateChanged(True)
+            Else
+               m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ThreeAxisStateChanged(True)
+               m_MainWindow.m_DirectCutPageUC.m_MachineButtons.FiveAxisStateChanged(False)
+            End If
          End If
       End If
 
diff --git a/CN_generico.vb b/CN_generico.vb
index 3a22da7..0836038 100644
--- a/CN_generico.vb
+++ b/CN_generico.vb
@@ -8,7 +8,7 @@ Public MustInherit Class CN_generico
    Public Const MAX_VAR As Short = 100
    Public Const MAX_VALUES As Short = 9          ' Max. index to read the data from the FXServer array
    Public Const MAX_TOOLS As Short = 100
-   Public Const NUM_DATA = 33                     ' Numero di dati del CN (Speed,Feed,...)
+   Public Const NUM_DATA = 36                     ' Numero di dati del CN (Speed,Feed,...)
    Public Enum CnData
       Mode = 0
       JogIncr = 1
@@ -32,8 +32,8 @@ Public MustInherit Class CN_generico
       TableDown = 19
       DoorClosed = 20
       LimitZ = 21
-      VacuumPosition = 22
-      VacuumRot = 23
+      VacuumUp = 22
+      VacuumDown = 23
       Vacuum3State = 24
       Vacuum4State = 25
       Vacuum135State = 26
@@ -41,8 +41,11 @@ Public MustInherit Class CN_generico
       OpenAllState = 28
       CloseAllState = 29
       BlowState = 30
-      VacuumState = 31
+      VacuumOn = 31
       BypassState = 32
+      Vacuum0 = 33
+      Vacuum90 = 34
+      VacuumOff = 35
    End Enum
 
 #End Region
@@ -130,8 +133,10 @@ Public MustInherit Class CN_generico
    Public nDoorClosedState As Integer
    Public bLimitZState As Boolean
    Public bPowerOvr As Double
-   Public bVacuumPosition As Boolean
-   Public bVacuumRot As Boolean
+   Public bVacuumUp As Boolean
+   Public bVacuumDown As Boolean
+   Public bVacuum0 As Boolean
+   Public bVacuum90 As Boolean
    Public bVacuum3State As Boolean
    Public bVacuum4State As Boolean
    Public bVacuum135State As Boolean
@@ -139,7 +144,8 @@ Public MustInherit Class CN_generico
    Public bOpenAllState As Boolean
    Public bCloseAllState As Boolean
    Public bBlowState As Boolean
-   Public bVacuumState As Boolean
+   Public bVacuumOn As Boolean
+   Public bVacuumOff As Boolean
    Public bBypassState As Boolean
 
    Public nMachineMode As Integer
diff --git a/ConstMachIni.vb b/ConstMachIni.vb
index f7ca6d6..da97e0c 100644
--- a/ConstMachIni.vb
+++ b/ConstMachIni.vb
@@ -54,24 +54,32 @@
    Public Const K_COOLANT As String = "Coolant"
    Public Const K_INTERNALCOOLANT As String = "InternalCoolant"
    Public Const K_EXTERNCOOLANT As String = "ExternCoolant"
-   Public Const K_CBAXES As String = "CBAxes"
+   Public Const K_CAXES As String = "CAxes"
+   Public Const K_BAXES As String = "BAxes"
+   Public Const K_THREEAXES As String = "ThreeAxes"
+   Public Const K_FIVEAXES As String = "FiveAxes"
    Public Const K_AIRBLOW As String = "AirBlow"
    Public Const K_HOME As String = "Home"
    Public Const K_TABLEUP As String = "TableUp"
    Public Const K_TABLEDOWN As String = "TableDown"
+   Public Const K_MANUAL As String = "Manual"
    Public Const K_DOORCLOSED As String = "DoorClosed"
    Public Const K_LIMITZ As String = "LimitZ"
    Public Const K_POWEROVR As String = "PowerOvr"
-   Public Const K_VACUUMPOSITION As String = "VacuumPosition"
-   Public Const K_VACUUMROT As String = "VacuumRot"
+   Public Const K_VACUUMUP As String = "VacuumUp"
+   Public Const K_VACUUMDOWN As String = "VacuumDown"
+   Public Const K_VACUUM0 As String = "Vacuum0"
+   Public Const K_VACUUM90 As String = "Vacuum90"
    Public Const K_VACUU3STATE As String = "Vacuum3State"
    Public Const K_VACUU4STATE As String = "Vacuum4State"
    Public Const K_VACUU135STATE As String = "Vacuum135State"
    Public Const K_VACUU246STATE As String = "Vacuum246State"
    Public Const K_OPENALLSTATE As String = "OpenAllState"
-   Public Const K_CLOSEALLSTATE As String = "CoseAllState"
+   Public Const K_CLOSEALLSTATE As String = "CloseAllState"
    Public Const K_BLOWSTATE As String = "BlowState"
    Public Const K_VACUUMSTATE As String = "VacuumState"
+   Public Const K_VACUUMON As String = "VacuumOn"
+   Public Const K_VACUUMOFF As String = "VacuumOff"
    Public Const K_BYPASSTATE As String = "BypassState"
 
    Public Const S_PRODUCTIONLINE As String = "ProductionLine"
diff --git a/ControlsMachineButtonUC.xaml b/ControlsMachineButtonUC.xaml
index 244a7a3..db06440 100644
--- a/ControlsMachineButtonUC.xaml
+++ b/ControlsMachineButtonUC.xaml
@@ -14,11 +14,17 @@
       <ItemsControl ItemsSource="{Binding ButtonList}">
          <ItemsControl.Resources>
             <DataTemplate DataType="{x:Type OmagCUT:TwoStateButton}">
-               <ToggleButton IsChecked="{Binding Button_IsChecked}"
+               <ToggleButton IsChecked="{Binding IsChecked}"
                              Style="{StaticResource OmagCut_GradientYellowIconToggleButton}">
                   <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
                </ToggleButton>
             </DataTemplate>
+            <DataTemplate DataType="{x:Type OmagCUT:NoStateButton}">
+               <Button Command="{Binding ExecuteCommand}"
+                       Style="{StaticResource OmagCut_YellowGradientYellowIconButton}">
+                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               </Button>
+            </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:ThreeStateButton}">
                <Button Command="{Binding ExecuteCommand}"
                        Background="{Binding Background}"
diff --git a/ControlsMachineButtonUC.xaml.vb b/ControlsMachineButtonUC.xaml.vb
index e14000b..1b8565c 100644
--- a/ControlsMachineButtonUC.xaml.vb
+++ b/ControlsMachineButtonUC.xaml.vb
@@ -66,7 +66,7 @@ Public Class ControlsMachineButtonUC
                Dim ButtonToAdd As MachineButton = Nothing
                Select Case sMachineButtonType
                   Case MachineButtonType.NOSTATE
-                     ButtonToAdd = New TwoStateButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag)
+                     ButtonToAdd = New NoStateButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag)
                   Case MachineButtonType.TWOSTATE
                      ButtonToAdd = New TwoStateButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag)
                   Case MachineButtonType.THREESTATE
@@ -91,7 +91,7 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(SpindleButton) Then
-         SpindleButton.SetButtonIsChecked(SpindleState)
+         SpindleButton.SetIsChecked(SpindleState)
       End If
    End Sub
 
@@ -103,7 +103,7 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(LaserButton) Then
-         LaserButton.SetButtonIsChecked(LaserState)
+         LaserButton.SetIsChecked(LaserState)
       End If
    End Sub
 
@@ -115,7 +115,7 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(CoolantButton) Then
-         CoolantButton.SetButtonIsChecked(CoolantState)
+         CoolantButton.SetIsChecked(CoolantState)
       End If
    End Sub
 
@@ -127,7 +127,7 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(IntCoolantButton) Then
-         IntCoolantButton.SetButtonIsChecked(InternalCoolantState)
+         IntCoolantButton.SetIsChecked(InternalCoolantState)
       End If
    End Sub
 
@@ -139,19 +139,25 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(ExtCoolantButton) Then
-         ExtCoolantButton.SetButtonIsChecked(ExternCoolantState)
+         ExtCoolantButton.SetIsChecked(ExternCoolantState)
       End If
    End Sub
 
    Friend Sub CBAxesStateChanged(CBAxesState As Boolean)
-      Dim CBAxesButton As TwoStateButton = Nothing
+      Dim CAxesButton As TwoStateButton = Nothing
+      Dim BAxesButton As TwoStateButton = Nothing
       For Each MachineButton In m_ButtonList
-         If MachineButton.StateFlag = K_CBAXES Then
-            CBAxesButton = MachineButton
+         If MachineButton.StateFlag = K_CAXES Then
+            CAxesButton = MachineButton
+         ElseIf MachineButton.StateFlag = K_BAXES Then
+            BAxesButton = MachineButton
          End If
       Next
-      If Not IsNothing(CBAxesButton) Then
-         CBAxesButton.SetButtonIsChecked(CBAxesState)
+      If Not IsNothing(CAxesButton) Then
+         CAxesButton.SetIsChecked(CBAxesState)
+      End If
+      If Not IsNothing(BAxesButton) Then
+         BAxesButton.SetIsChecked(Not CBAxesState)
       End If
    End Sub
 
@@ -163,7 +169,7 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(AirBlowButton) Then
-         AirBlowButton.SetButtonIsChecked(AirBlowState)
+         AirBlowButton.SetIsChecked(AirBlowState)
       End If
    End Sub
 
@@ -175,7 +181,7 @@ Public Class ControlsMachineButtonUC
          End If
       Next
       If Not IsNothing(HomeButton) Then
-         HomeButton.SetButtonIsChecked(HomeState)
+         HomeButton.SetIsChecked(HomeState)
       End If
    End Sub
 
@@ -240,44 +246,38 @@ Public Class ControlsMachineButtonUC
             Case 1
                DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_Yellow")
             Case 2
-               DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_Red")
+               DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_Green")
          End Select
       End If
    End Sub
 
    Friend Sub LimitZChanged(LimitZState As Boolean)
-      Dim LimitZButton As TwoStateButton = Nothing
+      Dim LimitZButton As DoubleCommandButton = Nothing
       For Each MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_LIMITZ Then
             LimitZButton = MachineButton
          End If
       Next
       If Not IsNothing(LimitZButton) Then
-         LimitZButton.SetButtonIsChecked(LimitZState)
-      End If
-   End Sub
-
-   Friend Sub ThreeAxisStateChanged(ThreeAxisState As Boolean)
-      Dim ThreeAxisButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
-         If MachineButton.StateFlag = K_LIMITZ Then
-            ThreeAxisButton = MachineButton
-         End If
-      Next
-      If Not IsNothing(ThreeAxisButton) Then
-         ThreeAxisButton.SetButtonIsChecked(ThreeAxisState)
+         LimitZButton.SetIsChecked(LimitZState)
       End If
    End Sub
 
    Friend Sub FiveAxisStateChanged(FiveAxisState As Boolean)
-      Dim FiveAxisButton As TwoStateButton = Nothing
+      Dim ThreeAxesButton As TwoStateButton = Nothing
+      Dim FiveAxesButton As TwoStateButton = Nothing
       For Each MachineButton In m_ButtonList
-         If MachineButton.StateFlag = K_LIMITZ Then
-            FiveAxisButton = MachineButton
+         If MachineButton.StateFlag = K_THREEAXES Then
+            ThreeAxesButton = MachineButton
+         ElseIf MachineButton.StateFlag = K_FIVEAXES Then
+            FiveAxesButton = MachineButton
          End If
       Next
-      If Not IsNothing(FiveAxisButton) Then
-         FiveAxisButton.SetButtonIsChecked(FiveAxisState)
+      If Not IsNothing(ThreeAxesButton) Then
+         ThreeAxesButton.SetIsChecked(Not FiveAxisState)
+      End If
+      If Not IsNothing(FiveAxesButton) Then
+         FiveAxesButton.SetIsChecked(FiveAxisState)
       End If
    End Sub
 
@@ -313,9 +313,6 @@ Public Class ControlsMachineButtonUC
       Return False
    End Function
 
-   Private Sub ManualAxesMove_UnLoaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
-   End Sub
-
    Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
 
    Public Sub NotifyPropertyChanged(propName As String)
@@ -405,12 +402,19 @@ Public MustInherit Class MachineButton
 
 #Region "METHODS"
 
-   'Friend MustOverride Sub ExecuteCommand(bIsChecked As Boolean)
-
    Friend Sub ExecuteMDICommand(sLuaFileName As String)
+      If String.IsNullOrWhiteSpace(sLuaFileName) Then Return
       Dim CmdString As String = String.Empty
       Dim b2Start As Boolean = False
-      ExecuteDirectCmdLua(sLuaFileName, CmdString, b2Start)
+      Dim EActive As Boolean = False
+      Dim ENumber As String = String.Empty
+      Dim EValue As String = String.Empty
+      ExecuteDirectCmdLua(sLuaFileName, CmdString, b2Start, EActive, ENumber, EValue)
+      ' se attiva variabile E, la scrivo ed esco
+      If EActive Then
+         m_CN.DVariables_WriteVariables2(ENumber, EValue)
+         Return
+      End If
       Dim nResult As Short
       Select Case m_MainWindow.m_CNCommunication.m_nNCType
          Case 1, 2
@@ -436,7 +440,7 @@ Public MustInherit Class MachineButton
       nResult = m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
    End Sub
 
-   Friend Sub ExecuteDirectCmdLua(LuaFileName As String, ByRef CmdString As String, ByRef b2Start As Boolean)
+   Friend Sub ExecuteDirectCmdLua(LuaFileName As String, ByRef CmdString As String, ByRef b2Start As Boolean, ByRef EActive As Boolean, ByRef ENumber As String, ByRef EValue As String)
       Dim sBaseDir As String = m_MainWindow.m_CurrentMachine.sMachDir & "\DirectCmd\"
       EgtLuaExecFile(sBaseDir & LuaFileName)
       Dim dFeed As Double = 0
@@ -469,11 +473,17 @@ Public MustInherit Class MachineButton
       EgtLuaGetGlobStringVar("CMD.CMDSTRING", CmdString)
       b2Start = False
       EgtLuaGetGlobBoolVar("CMD.DOUBLESTART", b2Start)
+      EActive = False
+      EgtLuaGetGlobBoolVar("CMD.EACTIVE", EActive)
+      ENumber = String.Empty
+      EgtLuaGetGlobStringVar("CMD.ENUMBER", ENumber)
+      EValue = String.Empty
+      EgtLuaGetGlobStringVar("CMD.EVALUE", EValue)
       ' Reset lua
       EgtLuaResetGlobVar("CmdString")
       EgtLuaResetGlobVar("CMD")
       ' Log del comando
-      EgtOutLog("CmdString=" & CmdString & " b2Start=" & b2Start.ToString())
+      EgtOutLog("CmdString=" & CmdString & " b2Start=" & b2Start.ToString() & " EActive=" & EActive & " ENumber=" & ENumber & " EValue=" & EValue)
    End Sub
 
 #End Region    ' METHODS
@@ -489,34 +499,35 @@ End Class
 Public Class TwoStateButton
    Inherits MachineButton
 
-   Private m_Button_IsChecked As Boolean
-   Public Property Button_IsChecked As Boolean
+   Private m_IsChecked As Boolean
+   Public Property IsChecked As Boolean
       Get
-         Return m_Button_IsChecked
+         Return m_IsChecked
       End Get
       Set(value As Boolean)
-         m_Button_IsChecked = value
+         m_IsChecked = value
          If value Then
+
             ExecuteMDICommand(TLuaScriptName)
          Else
             ExecuteMDICommand(FLuaScriptName)
          End If
       End Set
    End Property
-   Friend Sub SetButtonIsChecked(value As Boolean)
-      m_Button_IsChecked = value
-      NotifyPropertyChanged("Button_IsChecked")
+   Friend Sub SetIsChecked(value As Boolean)
+      m_IsChecked = value
+      NotifyPropertyChanged("IsChecked")
       NotifyPropertyChanged("ImageSource")
    End Sub
 
    Public ReadOnly Property ImageSource As String
       Get
          ' Se variabile di stato "Nothing" o non collegato a CN, imposto immagine fissa
-         If StateFlag = BTN_STATE_NOTHING Or Not m_MainWindow.m_bNCLink Then
+         If StateFlag = BTN_STATE_NOTHING Or Not m_MainWindow.m_bNCLink Or IsNothing(FImageName) Or String.IsNullOrWhiteSpace(FImageName) Then
             ' ritorno immagine dello stato true
             Return m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & TImageName
          End If
-         If m_Button_IsChecked Then
+         If m_IsChecked Then
             ' ritorno immagine dello stato true
             Return m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & TImageName
          Else
@@ -539,6 +550,9 @@ End Class
 Public Class NoStateButton
    Inherits MachineButton
 
+   ' definizione comandi
+   Private m_cmdExecute As ICommand
+
    Public ReadOnly Property ImageSource As String
       Get
          Return m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & TImageName
@@ -547,12 +561,39 @@ Public Class NoStateButton
 
 #Region "METHODS"
 
-   Sub New(TImagePath As String, TLuaScriptPath As String, FImagePath As String, FLuaScriptPath As String)
-      MyBase.New(TImagePath, TLuaScriptPath, Nothing, Nothing, Nothing)
+   Sub New(TImagePath As String, TLuaScriptPath As String, FImagePath As String, FLuaScriptPath As String, StateFlag As String)
+      MyBase.New(TImagePath, TLuaScriptPath, Nothing, Nothing, StateFlag)
    End Sub
 
 #End Region    ' METHODS
 
+#Region "COMMANDS"
+
+#Region "Execute"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property ExecuteCommand() As ICommand
+      Get
+         If m_cmdExecute Is Nothing Then
+            m_cmdExecute = New Command(AddressOf Execute)
+         End If
+         Return m_cmdExecute
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub Execute()
+      If StateFlag = K_MANUAL Then
+         m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
+      Else
+         ExecuteMDICommand(TLuaScriptName)
+      End If
+   End Sub
+
+#End Region    ' Execute
+
+#End Region    ' COMMANDS
+
 End Class
 
 Public Class ThreeStateButton
@@ -568,6 +609,7 @@ Public Class ThreeStateButton
       End Get
       Set(value As SolidColorBrush)
          m_Background = value
+         NotifyPropertyChanged("Background")
       End Set
    End Property
    Public ReadOnly Property ImageSource As String
@@ -602,6 +644,7 @@ Public Class ThreeStateButton
    ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
    Public Sub Execute()
       ExecuteMDICommand(TLuaScriptName)
+      ExecuteMDICommand(FLuaScriptName)
    End Sub
 
 #End Region    ' Execute
@@ -621,6 +664,7 @@ Public Class DoubleCommandButton
       Set(value As Boolean)
          m_IsChecked = value
          ExecuteMDICommand(TLuaScriptName)
+         System.Threading.Thread.Sleep(100)
          ExecuteMDICommand(FLuaScriptName)
       End Set
    End Property
@@ -633,7 +677,7 @@ Public Class DoubleCommandButton
    Public ReadOnly Property ImageSource As String
       Get
          ' Se variabile di stato "Nothing" o non collegato a CN, imposto immagine fissa
-         If StateFlag = BTN_STATE_NOTHING Or Not m_MainWindow.m_bNCLink Then
+         If StateFlag = BTN_STATE_NOTHING Or Not m_MainWindow.m_bNCLink Or IsNothing(FImageName) Or String.IsNullOrWhiteSpace(FImageName) Then
             ' ritorno immagine dello stato true
             Return m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & TImageName
          End If
@@ -669,7 +713,7 @@ Public Class PressedCommandButton
    Public ReadOnly Property ImageSource As String
       Get
          ' Se variabile di stato "Nothing" o non collegato a CN, imposto immagine fissa
-         If StateFlag = BTN_STATE_NOTHING Or Not m_MainWindow.m_bNCLink Then
+         If StateFlag = BTN_STATE_NOTHING Or Not m_MainWindow.m_bNCLink Or IsNothing(FImageName) Or String.IsNullOrWhiteSpace(FImageName) Then
             ' ritorno immagine dello stato true
             Return m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & TImageName
          End If
diff --git a/M_Num.vb b/M_Num.vb
index af50f40..638f5d2 100644
--- a/M_Num.vb
+++ b/M_Num.vb
@@ -1023,28 +1023,34 @@ Namespace Num
                   nDoorClosedState = CInt(values(n))
                Case CnData.LimitZ     ' (21) Stato limitazione asse Z
                   bLimitZState = CBool(values(n))
-               Case CnData.VacuumPosition     ' (21) Stato limitazione asse Z
-                  bVacuumPosition = CBool(values(n))
-               Case CnData.VacuumRot     ' (21) Stato limitazione asse Z
-                  bVacuumRot = CBool(values(n))
-               Case CnData.Vacuum3State     ' (21) Stato limitazione asse Z
+               Case CnData.VacuumUp     ' (22) Stato ventosa su'
+                  bVacuumUp = CBool(values(n))
+               Case CnData.VacuumDown     ' (23) Stato ventosa giu'
+                  bVacuumDown = CBool(values(n))
+               Case CnData.Vacuum3State     ' (24) Stato ventosa 3
                   bVacuum3State = CBool(values(n))
-               Case CnData.Vacuum4State     ' (21) Stato limitazione asse Z
+               Case CnData.Vacuum4State     ' (25) Stato ventosa 4
                   bVacuum4State = CBool(values(n))
-               Case CnData.Vacuum135State     ' (21) Stato limitazione asse Z
+               Case CnData.Vacuum135State     ' (26) Stato ventose 135
                   bVacuum135State = CBool(values(n))
-               Case CnData.Vacuum246State     ' (21) Stato limitazione asse Z
+               Case CnData.Vacuum246State     ' (27) Stato ventose 246
                   bVacuum246State = CBool(values(n))
-               Case CnData.OpenAllState     ' (21) Stato limitazione asse Z
+               Case CnData.OpenAllState     ' (28) Stato apertura ventose
                   bOpenAllState = CBool(values(n))
-               Case CnData.CloseAllState     ' (21) Stato limitazione asse Z
+               Case CnData.CloseAllState     ' (29) Stato chiusura ventose
                   bCloseAllState = CBool(values(n))
-               Case CnData.BlowState     ' (21) Stato limitazione asse Z
+               Case CnData.BlowState     ' (30) Stato soffio ventose
                   bBlowState = CBool(values(n))
-               Case CnData.VacuumState     ' (21) Stato limitazione asse Z
-                  bVacuumState = CBool(values(n))
-               Case CnData.BypassState     ' (21) Stato limitazione asse Z
+               Case CnData.VacuumOn     ' (31) Stato aspirazione ventose acceso
+                  bVacuumOn = CBool(values(n))
+               Case CnData.BypassState     ' (32) Stato bypass
                   bBypassState = CBool(values(n))
+               Case CnData.Vacuum0     ' (33) Stato rotazione ventosa 0
+                  bVacuum0 = CBool(values(n))
+               Case CnData.Vacuum90     ' (34) Stato rotazione ventosa 0
+                  bVacuum90 = CBool(values(n))
+               Case CnData.VacuumOff     ' (35) Stato aspirazione ventose spento
+                  bVacuumOff = CBool(values(n))
             End Select
          Next
 
diff --git a/VacuumMachineButtonUC.xaml.vb b/VacuumMachineButtonUC.xaml.vb
index f773474..3ecc07b 100644
--- a/VacuumMachineButtonUC.xaml.vb
+++ b/VacuumMachineButtonUC.xaml.vb
@@ -83,27 +83,51 @@ Public Class VacuumMachineButtonUC
       End If
    End Sub
 
-   Friend Sub VacuumPositionChanged(VacuumPosition As Boolean)
-      Dim VacuumPositionButton As TwoStateButton = Nothing
+   Friend Sub VacuumUpChanged(VacuumUpState As Boolean)
+      Dim VacuumUpButton As TwoStateButton = Nothing
       For Each MachineButton In m_ButtonList
-         If MachineButton.StateFlag = K_VACUUMPOSITION Then
-            VacuumPositionButton = MachineButton
+         If MachineButton.StateFlag = K_VACUUMUP Then
+            VacuumUpButton = MachineButton
          End If
       Next
-      If Not IsNothing(VacuumPositionButton) Then
-         VacuumPositionButton.SetButtonIsChecked(VacuumPosition)
+      If Not IsNothing(VacuumUpButton) Then
+         VacuumUpButton.SetIsChecked(VacuumUpState)
       End If
    End Sub
 
-   Friend Sub VacuumRotChanged(VacuumRot As Boolean)
+   Friend Sub VacuumDownChanged(VacuumDownState As Boolean)
+      Dim VacuumDownButton As TwoStateButton = Nothing
+      For Each MachineButton In m_ButtonList
+         If MachineButton.StateFlag = K_VACUUMDOWN Then
+            VacuumDownButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(VacuumDownButton) Then
+         VacuumDownButton.SetIsChecked(VacuumDownState)
+      End If
+   End Sub
+
+   Friend Sub Vacuum0Changed(Vacuum0State As Boolean)
+      Dim Vacuum0Button As TwoStateButton = Nothing
+      For Each MachineButton In m_ButtonList
+         If MachineButton.StateFlag = K_VACUUM0 Then
+            Vacuum0Button = MachineButton
+         End If
+      Next
+      If Not IsNothing(Vacuum0Button) Then
+         Vacuum0Button.SetIsChecked(Vacuum0State)
+      End If
+   End Sub
+
+   Friend Sub Vacuum90Changed(Vacuum90State As Boolean)
       Dim VacuumRotButton As TwoStateButton = Nothing
       For Each MachineButton In m_ButtonList
-         If MachineButton.StateFlag = K_VACUUMROT Then
+         If MachineButton.StateFlag = K_VACUUM90 Then
             VacuumRotButton = MachineButton
          End If
       Next
       If Not IsNothing(VacuumRotButton) Then
-         VacuumRotButton.SetButtonIsChecked(VacuumRot)
+         VacuumRotButton.SetIsChecked(Vacuum90State)
       End If
    End Sub
 
@@ -115,7 +139,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(Vacuum3StateButton) Then
-         Vacuum3StateButton.SetButtonIsChecked(Vacuum3State)
+         Vacuum3StateButton.SetIsChecked(Vacuum3State)
       End If
    End Sub
 
@@ -127,7 +151,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(Vacuum4StateButton) Then
-         Vacuum4StateButton.SetButtonIsChecked(Vacuum4State)
+         Vacuum4StateButton.SetIsChecked(Vacuum4State)
       End If
    End Sub
 
@@ -139,7 +163,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(Vacuum135StateButton) Then
-         Vacuum135StateButton.SetButtonIsChecked(Vacuum135State)
+         Vacuum135StateButton.SetIsChecked(Vacuum135State)
       End If
    End Sub
 
@@ -151,7 +175,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(Vacuum246StateButton) Then
-         Vacuum246StateButton.SetButtonIsChecked(Vacuum246State)
+         Vacuum246StateButton.SetIsChecked(Vacuum246State)
       End If
    End Sub
 
@@ -163,7 +187,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(OpenAllStateButton) Then
-         OpenAllStateButton.SetButtonIsChecked(OpenAllState)
+         OpenAllStateButton.SetIsChecked(OpenAllState)
       End If
    End Sub
 
@@ -175,7 +199,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(CloseAllStateButton) Then
-         CloseAllStateButton.SetButtonIsChecked(CloseAllState)
+         CloseAllStateButton.SetIsChecked(CloseAllState)
       End If
    End Sub
 
@@ -187,19 +211,31 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(BlowStateButton) Then
-         BlowStateButton.SetButtonIsChecked(BlowState)
+         BlowStateButton.SetIsChecked(BlowState)
       End If
    End Sub
 
-   Friend Sub VacuumChanged(VacuumState As Boolean)
-      Dim VacuumStateButton As TwoStateButton = Nothing
+   Friend Sub VacuumOnChanged(VacuumState As Boolean)
+      Dim VacuumOnButton As TwoStateButton = Nothing
       For Each MachineButton In m_ButtonList
-         If MachineButton.StateFlag = K_VACUUMSTATE Then
-            VacuumStateButton = MachineButton
+         If MachineButton.StateFlag = K_VACUUMON Then
+            VacuumOnButton = MachineButton
          End If
       Next
-      If Not IsNothing(VacuumStateButton) Then
-         VacuumStateButton.SetButtonIsChecked(VacuumState)
+      If Not IsNothing(VacuumOnButton) Then
+         VacuumOnButton.SetIsChecked(VacuumState)
+      End If
+   End Sub
+
+   Friend Sub VacuumOffChanged(VacuumState As Boolean)
+      Dim VacuumOffButton As TwoStateButton = Nothing
+      For Each MachineButton In m_ButtonList
+         If MachineButton.StateFlag = K_VACUUMOFF Then
+            VacuumOffButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(VacuumOffButton) Then
+         VacuumOffButton.SetIsChecked(VacuumState)
       End If
    End Sub
 
@@ -211,7 +247,7 @@ Public Class VacuumMachineButtonUC
          End If
       Next
       If Not IsNothing(BypassStateButton) Then
-         BypassStateButton.SetButtonIsChecked(BypassState)
+         BypassStateButton.SetIsChecked(BypassState)
       End If
    End Sub