diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb
index 7fb1eb2..3d192c4 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb
@@ -281,6 +281,7 @@ Public Class DispositionParameterExpanderVM
       End Select
       Map.refRawPartOptionVM.SetMoveWithFixture(False)
       Map.refFixtureParametersVM.UpdateFixtureTypeList()
+      DispositionUtility.InitHookData()
    End Sub
 
 #End Region    ' METHODS
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionUtility.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionUtility.vb
index fc63f32..80ca26b 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionUtility.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionUtility.vb
@@ -1,5 +1,6 @@
 Imports System.Windows.Forms.AxHost
 Imports EgtUILib
+Imports Microsoft.VisualBasic.ApplicationServices
 
 Public NotInheritable Class DispositionUtility
 
@@ -9,7 +10,6 @@ Public NotInheritable Class DispositionUtility
    Friend Const NEXT_ As String = "Next"
    Friend Const HOOK As String = "HOOK*"
    Friend Const CLASS_ As String = "CLASS"
-   Friend Const USED As String = "USED"
    Friend Const FIXED As String = "FIXED*"
    Friend Const TYPE As String = "TYPE"
    Friend Const FREE As String = "FREE"
@@ -25,6 +25,62 @@ Public NotInheritable Class DispositionUtility
    Friend Shared m_nUsedHookId As Integer = GDB_ID.NULL
    Friend Shared m_nPrevUsedHookId As Integer = GDB_ID.NULL
 
+   Friend Class HookData
+      Public m_sName As String
+      Public m_sParent As String
+      Public m_bParentAxis As Boolean
+      Public m_sGrParentAxis As String
+      Public m_nId As Integer
+      Public m_nType As HOOKTYPE
+      Public m_ptP1 As Point3d
+      Public m_ptP2 As Point3d
+      Public m_nClass As Integer
+      Public m_nHooked As Integer
+      Public m_sHooked As String
+      Sub New()
+         m_sName = ""
+         m_sParent = ""
+         m_bParentAxis = False
+         m_sGrParentAxis = ""
+         m_nId = GDB_ID.NULL
+         m_nType = HOOKTYPE.FREE
+         m_ptP1 = Point3d.ORIG()
+         m_ptP2 = Point3d.ORIG()
+         m_nClass = 0
+         m_nHooked = GDB_ID.NULL
+         m_sHooked = ""
+      End Sub
+      Sub New(sName As String, sParent As String, bParentAxis As Boolean, sGrParentAxis As String,
+              nId As Integer, ptP As Point3d, nClass As Integer)
+         m_sName = sName
+         m_sParent = sParent
+         m_bParentAxis = bParentAxis
+         m_sGrParentAxis = sGrParentAxis
+         m_nId = nId
+         m_nType = HOOKTYPE.POINT
+         m_ptP1 = ptP
+         m_ptP2 = Point3d.ORIG()
+         m_nClass = nClass
+         m_nHooked = GDB_ID.NULL
+         m_sHooked = ""
+      End Sub
+      Sub New(sName As String, sParent As String, bParentAxis As Boolean, sGrParentAxis As String,
+              nId As Integer, ptP1 As Point3d, ptP2 As Point3d, nClass As Integer)
+         m_sName = sName
+         m_sParent = sParent
+         m_bParentAxis = bParentAxis
+         m_sGrParentAxis = sGrParentAxis
+         m_nId = nId
+         m_nType = HOOKTYPE.LINE
+         m_ptP1 = ptP1
+         m_ptP2 = ptP2
+         m_nClass = nClass
+         m_nHooked = GDB_ID.NULL
+         m_sHooked = ""
+      End Sub
+   End Class
+   Friend Shared m_vHookData As New List(Of HookData)
+
    ' Identificativi per elemento da selezionare/deselezionare
    Friend Enum SelType As Integer
       NULL = 0
@@ -522,18 +578,18 @@ End Select
       Return True
    End Function
 
-   ' Funzione che verifica se asse o sottoasse di tavola (e quindi barra o carrello)
+' Funzione che verifica se asse o sottoasse di tavola (e quindi barra o carrello)
    Friend Shared Function VerifyTableAxis( nObjId As Integer) As Boolean
-      ' Verifico se asse
-      Dim sObjName As String = ""
+' Verifico se asse
+Dim sObjName As String = ""
       If Not EgtGetName( nObjId, sObjName) OrElse EgtGetAxisId( sObjName) = GDB_ID.NULL Then Return False
-      ' Recupero il padre
+' Recupero il padre
       Dim nParId As Integer = EgtGetParent( nObjId)
-      Dim sParName As String = ""
+Dim sParName As String = ""
       If Not EgtGetName( nParId, sParName) Then Return False
-      ' Verifico se tavola
+' Verifico se tavola
       If EgtGetTableId( sParName) <> GDB_ID.NULL Then Return True
-      ' Verifico se asse di tavola
+' Verifico se asse di tavola
       Return VerifyTableAxis( nParId)
    End Function
 
@@ -556,39 +612,41 @@ End Select
       GetBarExtreme(nMoveId, dCurrBarPos, dCurrBarMEnc, dCurrBarPEnc)
       ' Recupero dati eventuale barra precedente
       Dim sPrevBarName As String = ""
-      If EgtGetInfo( nMoveId, PREV, sPrevBarName) Then
+If EgtGetInfo( nMoveId, PREV, sPrevBarName) Then
          Dim nPrevBarId As Integer = EgtGetAxisId( sPrevBarName)
          Dim dPrevBarPos As Double = 0
          Dim dPrevBarMEnc As Double = 0
          Dim dPrevBarPEnc As Double = 0
-         if Not GetBarExtreme(nPrevBarId, dPrevBarPos, dPrevBarMEnc, dPrevBarPEnc) Then Return False
+if Not GetBarExtreme(nPrevBarId, dPrevBarPos, dPrevBarMEnc, dPrevBarPEnc) Then Return False
          dAxMin = Math.Max( dAxMin, dPrevBarPos + dPrevBarPEnc + dCurrBarMEnc)
       End If
       ' Recupero dati eventuale barra successiva
       Dim sNextBarName As String = ""
-      If EgtGetInfo( nMoveId, NEXT_, sNextBarName) Then
-         Dim nNextBarId As Integer = EgtGetAxisId( sNextBarName)
+If EgtGetInfo( nMoveId, NEXT_, sNextBarName) Then
+Dim nNextBarId As Integer = EgtGetAxisId( sNextBarName)
          Dim dNextBarPos As Double = 0
          Dim dNextBarMEnc As Double = 0
          Dim dNextBarPEnc As Double = 0
          if Not GetBarExtreme(nNextBarId, dNextBarPos, dNextBarMEnc, dNextBarPEnc) Then Return False
-         dAxMax = Math.Min( dAxMax, dNextBarPos - dNextBarMEnc - dCurrBarPEnc)
-      End If
-      ' Limito lo spostamento alle corse ammesse
+dAxMax = Math.Min( dAxMax, dNextBarPos - dNextBarMEnc - dCurrBarPEnc)
+End If
+' Limito lo spostamento alle corse ammesse
       If dAxMax < dAxMin Then Return False
       Dim dNewBarPos As Double = dCurrBarPos + vtMove * vtDir
       dNewBarPos = Math.Min( Math.Max( dNewBarPos,dAxMin), dAxMax)
-      ' Eseguo lo spostamento
+' Eseguo lo spostamento
       EgtMoveDispAxis( sName, dNewBarPos)
-      Return True
-   End Function
+Dim vtRealMove As Vector3d = ( dNewBarPos - dCurrBarPos) * vtDir
+UpdateFixturesForDispAxisMove( sName, vtRealMove)
+Return True
+End Function
 
    Private Shared Function GetBarExtreme(nMoveId As Integer, ByRef dPos As Double, ByRef dMEnc As Double, ByRef dPEnc As Double) As Boolean
       ' Recupero la posizione
       Dim sName As String = ""
       If Not EgtGetName( nMoveId, sName) OrElse Not EgtGetAxisPos( sName, dPos) Then Return False
-      ' Recupero ingombro negativo
-      dMEnc = 0
+' Recupero ingombro negativo
+dMEnc = 0
       EgtGetInfo(nMoveId, MDIST, dMEnc)
       ' recupero ingombro positivo
       dPEnc = 0
@@ -652,7 +710,7 @@ End Select
       While nBarId <> GDB_ID.NULL
          Dim sBarName As String = ""
          If EgtGetName( nBarId, sBarName) AndAlso EgtGetAxisId( sBarName) <> GDB_ID.NULL Then
-            nCurrHookId = EgtGetFirstNameInGroup(nBarId, HOOK)
+nCurrHookId = EgtGetFirstNameInGroup(nBarId, HOOK)
             While nCurrHookId <> GDB_ID.NULL
                HookAnalyzer(nCurrHookId, nFixtHookType, nFixtHookClass, ptCurr + m_vtHook, nNearestHookId, dNearestHookDist, ptNearestHook, nMoveId)
                nCurrHookId = EgtGetNextName(nCurrHookId, HOOK)
@@ -687,9 +745,41 @@ End Select
       Return True
    End Function
 
-   ' funzione di debug
-   Private Shared Sub DebugHookInfo()
-      ' Salvo in outlog tutte le info sugli hook per poter debuggare
+   ' Funzioni gestione tabella degli Hook 
+   Private Shared Function AddOneHookData( nHookId As Integer, sParent As String, bParentAxis As Boolean) As Boolean
+Dim sHook As String = ""
+EgtGetName( nHookId, sHook)
+      Dim sGrParentAxis As String = ""
+      If bParentAxis Then
+         Dim nIdGrParent As Integer = EgtGetParent( EgtGetParent( nHookId))
+         Dim sParentName As String = ""
+         If EgtGetName( nIdGrParent, sParentName)  AndAlso EgtGetAxisId( sParentName) = nIdGrParent Then
+sGrParentAxis = sParentName
+End If
+End If
+      Dim nClass As Integer = 0
+      EgtGetInfo(nHookId, CLASS_, nClass)
+      Dim nType As Integer = EgtGetType( nHookId)
+      If nType = GDB_TY.GEO_POINT Then
+         Dim ptP As Point3d
+         EgtStartPoint( nHookId, GDB_ID.ROOT, ptP)
+         Dim hdCurr As New HookData( sHook, sParent, bParentAxis, sGrParentAxis, nHookId, ptP, nClass)
+m_vHookData.Add( hdCurr)
+Return True
+Else If nType = GDB_TY.CRV_LINE Then
+Dim ptP1 As Point3d
+         EgtStartPoint( nHookId, GDB_ID.ROOT, ptP1)
+         Dim ptP2 As Point3d
+         EgtEndPoint( nHookId, GDB_ID.ROOT, ptP2)
+         Dim hdCurr As New HookData( sHook, sParent, bParentAxis, sGrParentAxis, nHookId, ptP1, ptP2, nClass)
+m_vHookData.Add( hdCurr)
+Return True
+End If
+Return False
+End Function
+Friend Shared Sub PrepareHookData()
+' Pulisco lista di Hook
+      m_vHookData.Clear()
       ' Recupero Id tavola corrente
       Dim sTableName As String = ""
       EgtGetTableName(sTableName)
@@ -697,11 +787,8 @@ End Select
       ' *** Cerco hook su tavola ***
       Dim nTableSolidId As Integer = EgtGetFirstNameInGroup(nTableId, SOLID)
       Dim nCurrHookId As Integer = EgtGetFirstNameInGroup(nTableSolidId, HOOK)
-      EgtOutLog("TABLE")
       While nCurrHookId <> GDB_ID.NULL
-         Dim sUsed As String = ""
-         EgtGetInfo(nCurrHookId, USED, sUsed)
-         EgtOutLog(nCurrHookId & " -> " & sUsed)
+         AddOneHookData( nCurrHookId, SOLID, False)
          nCurrHookId = EgtGetNextName(nCurrHookId, HOOK)
       End While
       ' *** Cerco hook su barre fisse ***
@@ -709,86 +796,224 @@ End Select
       While nTableFixedId <> GDB_ID.NULL
          Dim sName As String = ""
          EgtGetName( nTableFixedId, sName)
-         EgtOutLog( sName)
          nCurrHookId = EgtGetFirstNameInGroup(nTableFixedId, HOOK)
          While nCurrHookId <> GDB_ID.NULL
-            Dim sUsed As String = ""
-            EgtGetInfo(nCurrHookId, USED, sUsed)
-            EgtOutLog(nCurrHookId & " -> " & sUsed)
+            AddOneHookData( nCurrHookId, sName, False)
             nCurrHookId = EgtGetNextName(nCurrHookId, HOOK)
          End While
          nTableFixedId = EgtGetNextName(nTableFixedId, FIXED)
       End While
-      ' *** Cerco hook su barre mobili ***
+' *** Cerco hook su barre mobili ***
       Dim nBarId As Integer = EgtGetFirstGroupInGroup(nTableId)
       While nBarId <> GDB_ID.NULL
          Dim sBarName As String = ""
-         If EgtGetName( nBarId, sBarName) AndAlso EgtGetAxisId( sBarName) <> GDB_ID.NULL Then
-            EgtOutLog(sBarName)
+         If EgtGetName( nBarId, sBarName) AndAlso EgtGetAxisId( sBarName) = nBarId Then
             nCurrHookId = EgtGetFirstNameInGroup(nBarId, HOOK)
             While nCurrHookId <> GDB_ID.NULL
-               Dim sUsed As String = ""
-               EgtGetInfo(nCurrHookId, USED, sUsed)
-               EgtOutLog(nCurrHookId & " -> " & sUsed)
+               AddOneHookData( nCurrHookId, sBarName, True)
                nCurrHookId = EgtGetNextName(nCurrHookId, HOOK)
             End While
             ' Cerco su eventuali carrelli
             Dim nCharId As Integer = EgtGetFirstGroupInGroup(nBarId)
             While nCharId <> GDB_ID.NULL
                Dim sCharName As String = ""
-               If EgtGetName( nCharId, sCharName) AndAlso EgtGetAxisId( sCharName) <> GDB_ID.NULL Then 
-                  EgtOutLog(sCharName)
+               If EgtGetName( nCharId, sCharName) AndAlso EgtGetAxisId( sCharName) = nCharId Then 
                   nCurrHookId = EgtGetFirstNameInGroup(nCharId, DispositionUtility.HOOK)
                   While nCurrHookId <> GDB_ID.NULL
-                     Dim sUsed As String = ""
-                     EgtGetInfo(nCurrHookId, USED, sUsed)
-                     EgtOutLog(nCurrHookId & " -> " & sUsed)
+AddOneHookData( nCurrHookId, sCharName, True)
                      nCurrHookId = EgtGetNextName(nCurrHookId, HOOK)
                   End While
                End If
                nCharId = EgtGetNextGroup(nCharId)
-            End While
-         End If
+End While
+End If
          nBarId = EgtGetNextGroup(nBarId)
       End While
    End Sub
 
-   ' funzioni che leggono e settano le ventose agganciate agli hook
-   Private Shared Function GetHookUsed(nHookId As Integer, nFixtureId As Integer, nFixtureUsed As Integer) As Boolean
-      ' cerco punto hook sulla ventosa
-      Dim nFixtSolidId As Integer = EgtGetFirstNameInGroup(nFixtureId, SOLID)
-      Dim nFixtHookId As Integer = EgtGetFirstNameInGroup(nFixtSolidId, HOOK)
-      ' leggo tipo e classe
-      Dim nFixtHookType As HOOKTYPE = HOOKTYPE.FREE
-      Dim sType As String = ""
-      EgtGetInfo(nFixtHookId, TYPE, sType)
-      If sType.Equals(POINT) Then
-         nFixtHookType = HOOKTYPE.POINT
-      ElseIf sType.Equals(LINE) Then
-         nFixtHookType = HOOKTYPE.LINE
-      Else       'FREE
-         nFixtHookType = HOOKTYPE.FREE
-         ' esco perchè non devo cercare alcun punto
-         Return False
-      End If
-      Select Case nFixtHookType
-         Case HOOKTYPE.POINT
-            Return EgtGetInfo(m_nUsedHookId, USED, nFixtureUsed)
-         Case HOOKTYPE.LINE
-            Dim sInfo As String = String.Empty
-            EgtGetInfo(m_nUsedHookId, USED, sInfo)
-            Dim SplitInfo() As String = sInfo.Split(";"c)
-            For Each Info In SplitInfo
-               Dim nInfo As Integer = GDB_ID.NULL
-               Integer.TryParse(sInfo, nInfo)
-               If nInfo = nFixtureId Then Return True
+   Friend Shared Sub PrepareHookedFixtures()
+      ' Ciclo su tutte le fixtures in tavola
+      Dim nFixtId As Integer = EgtGetFirstFixture()
+      While nFixtId <> GDB_ID.NULL
+         Dim nHookId As Integer = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( nFixtId, SOLID), HOOK)
+         Dim ptP As Point3d
+         If EgtStartPoint( nHookId, GDB_ID.ROOT, ptP) Then
+            For Each hkCurr As HookData In m_vHookData
+If hkCurr.m_nType = HOOKTYPE.POINT Then
+                  If Point3d.SqDistXY( ptP, hkCurr.m_ptP1) < 1 Then
+                     hkCurr.m_nHooked = nFixtId
+Exit For
+                  End If
+               ElseIf hkCurr.m_nType = HOOKTYPE.LINE Then
+
+               End If
             Next
-            Return False
-         Case Else
-            Return False
-      End Select
+         End If
+nFixtId = EgtGetNextFixture( nFixtId)
+End While
+
+   End Sub
+
+   Friend Shared Sub InitHookData()
+      ' Carico i dati degli agganci
+      PrepareHookData()
+      ' Determino eventuali fixtures agganciate
+      PrepareHookedFixtures()
+      ' Log di debug
+      If Map.refMainWindowVM.DebugLevel() >= 4 then
+         EgtOutLog( " *** HOOK DATA TABLE ***")
+         Dim sCurrParent As String = ""
+         For Each hkCurr As HookData In m_vHookData
+            If hkCurr.m_sParent <> sCurrParent Then
+               sCurrParent = hkCurr.m_sParent
+               If String.IsNullOrWhiteSpace( hkCurr.m_sGrParentAxis) Then 
+                  EgtOutLog( sCurrParent & If( hkCurr.m_bParentAxis, "  Axis", "  Fixed"))
+               Else
+                  EgtOutLog( sCurrParent & " (" & hkCurr.m_sGrParentAxis & ") Axis")
+               End If
+            End If
+If hkCurr.m_nType = HOOKTYPE.POINT Then
+EgtOutLog( "  " & hkCurr.m_sName & " (" & hkCurr.m_nId &
+                          ")   Point(" & hkCurr.m_ptP1.ToString() & ") Class=" & hkCurr.m_nClass &
+                          If( hkCurr.m_nHooked = GDB_ID.NULL, " Free", " Fixt " & hkCurr.m_nHooked))
+            Else If hkCurr.m_nType = HOOKTYPE.LINE Then
+EgtOutLog( "  " & hkCurr.m_sName & " (" & hkCurr.m_nId &
+                          ")   Line(" & hkCurr.m_ptP1.ToString() & "),(" & hkCurr.m_ptP2.ToString() & ") Class=" & hkCurr.m_nClass &
+If( hkCurr.m_nHooked = GDB_ID.NULL, " Free", " Fixt " & hkCurr.m_nHooked))
+End If
+Next
+End If
+End Sub
+
+   Friend Shared Function GetHookClass( nHookId As Integer) As Integer
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then Return hkCurr.m_nClass
+      Next
+      Return -1
    End Function
 
+   Friend Shared Function GetIsHookUsed( nHookId As Integer) As Boolean
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then
+            If hkCurr.m_nType = HOOKTYPE.POINT Then
+                Return ( hkCurr.m_nHooked <> GDB_ID.NULL)
+            Else
+                Return Not String.IsNullOrWhiteSpace( hkCurr.m_sHooked)
+            End If
+         End If
+      Next
+Return True
+End Function
+   Friend Shared Function GetHookUsed( nHookId As Integer) As Integer
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then
+            If hkCurr.m_nType = HOOKTYPE.POINT Then
+               Return hkCurr.m_nHooked
+            Else
+               Return -2
+            End If
+         End If
+      Next
+      Return GDB_ID.NULL
+   End Function
+
+   Friend Shared Function SetHookUsed( nHookId As Integer, nFixtureId As Integer) As Boolean
+' Rimuovo da eventuale precedente aggancio
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nHooked = nFixtureId Then
+            hkCurr.m_nHooked = GDB_ID.NULL
+         End If
+      Next
+      ' Inserisco in nuovo aggancio
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then
+            If hkCurr.m_nType = HOOKTYPE.POINT Then
+               hkCurr.m_nHooked = nFixtureId
+               Return True
+            Else
+               Return False
+            End If
+         End If
+      Next
+      Return False
+   End Function
+   
+   Friend Shared Function AddHookUsed( nHookId As Integer, nFixtureId As Integer) As Boolean
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then
+            If hkCurr.m_nType = HOOKTYPE.POINT Then
+               Return False
+            Else
+               ' Verifico non sia già presente
+               Dim SplitInfo() As String = hkCurr.m_sHooked.Split(";"c)
+               For Each sInfo As String In SplitInfo
+                  Dim nInfo As Integer = GDB_ID.NULL
+                  Integer.TryParse(sInfo, nInfo)
+                  If nInfo = nFixtureId Then Return True
+               Next
+               ' Lo aggiungo
+               hkCurr.m_sHooked &= nFixtureId.ToString() & ";"
+               Return True
+            End If
+         End If
+      Next
+      Return False
+   End Function
+   
+   Friend Shared Function RemoveHookUsed( nHookId As Integer, nFixtureId As Integer) As Boolean
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then
+            If hkCurr.m_nType = HOOKTYPE.POINT Then
+               Return False
+            Else
+               ' Se lo trovo, lo tolgo dall'elenco
+               Dim SplitInfo() As String = hkCurr.m_sHooked.Split(";"c)
+               hkCurr.m_sHooked = ""
+               For Each sInfo As String In SplitInfo
+                  Dim nInfo As Integer = GDB_ID.NULL
+                  Integer.TryParse(sInfo, nInfo)
+                  If nInfo <> nFixtureId Then
+                     hkCurr.m_sHooked &= sInfo & ";"
+                  End If
+               Next
+               Return True
+            End If
+         End If
+      Next
+      Return False
+   End Function
+   
+   Friend Shared Function ResetHookUsed( nHookId As Integer) As Boolean
+For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_nId = nHookId Then
+            hkCurr.m_nHooked = GDB_ID.NULL
+            hkCurr.m_sHooked = ""
+            Return True
+         End If
+      Next
+      Return False
+   End Function
+
+   Friend Shared Function UpdateFixturesForDispAxisMove( sName As String, vtMove As Vector3d) As Boolean
+      For Each hkCurr As HookData In m_vHookData
+         If hkCurr.m_sParent = sName OrElse hkCurr.m_sGrParentAxis = sName  Then
+            ' Aggiorno posizione di aggancio
+            If hkCurr.m_nType = HOOKTYPE.POINT Then
+               hkCurr.m_ptP1 += vtMove
+            ElseIf hkCurr.m_nType = HOOKTYPE.POINT Then
+               hkCurr.m_ptP1 += vtMove
+hkCurr.m_ptP2 += vtMove
+End If
+' Sposto anche eventuale ventosa agganciata
+            If hkCurr.m_nHooked <> GDB_ID.NULL Then
+               EgtMoveFixture( hkCurr.m_nHooked, vtMove)
+End If
+End If
+Next
+      Return True
+   End Function
+
+   ' Funzioni che leggono e settano le ventose agganciate agli hook
    Private Shared Sub SetHookUsed(nHookId As Integer, nFixtureId As Integer, bUsed As Boolean)
       ' cerco punto hook sulla ventosa
       Dim nFixtSolidId As Integer = EgtGetFirstNameInGroup(nFixtureId, SOLID)
@@ -809,35 +1034,15 @@ End Select
       Select Case nFixtHookType
          Case HOOKTYPE.POINT
             If bUsed Then
-               EgtSetInfo(m_nUsedHookId, USED, nFixtureId)
+               SetHookUsed(m_nUsedHookId, nFixtureId)
             Else
-               EgtRemoveInfo(m_nUsedHookId, USED)
+               ResetHookUsed(m_nUsedHookId)
             End If
          Case HOOKTYPE.LINE
             If bUsed Then
-               Dim sInfo As String = String.Empty
-               EgtGetInfo(m_nUsedHookId, USED, sInfo)
-               Dim SplitInfo() As String = sInfo.Split(";"c)
-               For Each Info In SplitInfo
-                  Dim nInfo As Integer = GDB_ID.NULL
-                  Integer.TryParse(sInfo, nInfo)
-                  If nInfo = nFixtureId Then Return
-               Next
-               sInfo = sInfo & nFixtureId & ";"
-               EgtSetInfo(m_nUsedHookId, USED, sInfo)
+               AddHookUsed( m_nUsedHookId, nFixtureId)
             Else
-               Dim sInfo As String = String.Empty
-               EgtGetInfo(m_nUsedHookId, USED, sInfo)
-               Dim SplitInfo() As String = sInfo.Split(";"c)
-               sInfo = ""
-               For Each Info In SplitInfo
-                  Dim nInfo As Integer = GDB_ID.NULL
-                  Integer.TryParse(sInfo, nInfo)
-                  If nInfo <> nFixtureId Then
-                     sInfo = sInfo & Info & ";"
-                  End If
-               Next
-               EgtSetInfo(m_nUsedHookId, USED, sInfo)
+               RemoveHookUsed( m_nUsedHookId, nFixtureId)
             End If
       End Select
    End Sub
@@ -846,66 +1051,66 @@ End Select
    Private Shared Sub HookAnalyzer(nCurrHookId As Integer, nFixtHookType As Integer, nFixtHookClass As Integer,
                                    ptFixtHook As Point3d, ByRef nNearestHookId As Integer, ByRef dNearestHookDist As Double,
                                    ByRef ptNearestHook As Point3d, nMoveId As Integer)
-      ' verifico se del tipo giusto
+      ' Verifico se del tipo giusto
       Dim nTableHookType As GDB_TY = EgtGetType(nCurrHookId)
-      If (nTableHookType = GDB_TY.GEO_POINT And nFixtHookType = HOOKTYPE.POINT) OrElse
-         (nTableHookType = GDB_TY.CRV_LINE And nFixtHookType = HOOKTYPE.LINE) Then
-         ' verifico se della stessa classe
-         Dim nTableHookClass As Integer = 0
-         EgtGetInfo(nCurrHookId, CLASS_, nTableHookClass)
-         If nTableHookClass = nFixtHookClass Then
-            Dim dDist As Double = 0
-            ' punto a distanza minima sull'hook
-            Dim ptCurrHook As Point3d
-            If nTableHookType = GDB_TY.GEO_POINT Then
-               ' verifico se utilizzato
-               Dim nTableHookUsed As Integer = GDB_ID.NULL
-               If EgtGetInfo(nCurrHookId, USED, nTableHookUsed) AndAlso nTableHookUsed <> nMoveId Then Return
-               If nTableHookUsed = nMoveId Then
-                  SetHookUsed(nCurrHookId, nMoveId, False)
-                  'EgtRemoveInfo(nCurrHookId, USED)
-                  m_nPrevUsedHookId = nCurrHookId
-               End If
-               ' calcolo distanza punto hook tavola dal punto hook della ventosa
-               EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
-               dDist = Point3d.DistXY(ptCurrHook, ptFixtHook)
-               'If nTableHookUsed <> nMoveId Then
-               '   ' calcolo distanza punto hook tavola dal punto hook della ventosa
-               '   EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
-               '   dDist = Point3d.Dist(ptCurrHook, ptFixtHook)
-               'Else
-               '   EgtRemoveInfo(nCurrHookId, USED)
-               '   m_nPrevUsedHookId = nCurrHookId
-               '   Return
-               'End If
-               'If Not EgtGetInfo(nCurrHookId, USED, nTableHookUsed) Or nTableHookUsed = nMoveId Then
-               '   ' calcolo distanza punto hook tavola dal punto hook della ventosa
-               '   EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
-               '   dDist = Point3d.Dist(ptCurrHook, ptFixtHook)
-               'Else
-               '   Return
-               'End If
-            ElseIf nTableHookType = GDB_TY.CRV_LINE Then
-               ' calcolo distanza linea hook tavola dal punto hook della ventosa
-               Dim nRefId As Integer = 0
-               Dim dU As Double = 0
-               EgtPointCurveDist(ptFixtHook, nCurrHookId, nRefId, dDist, dU)
-               EgtAtParamPoint(nCurrHookId, dU, GDB_ID.ROOT, ptCurrHook)
-            Else
-               Return
-            End If
-            ' se minore della distanza minima, sostituisco il valore
-            If dDist < dNearestHookDist Then
-               nNearestHookId = nCurrHookId
-               dNearestHookDist = dDist
-               ptNearestHook = ptCurrHook
-            End If
-         Else
+      If Not (nTableHookType = GDB_TY.GEO_POINT And nFixtHookType = HOOKTYPE.POINT) AndAlso
+         Not (nTableHookType = GDB_TY.CRV_LINE And nFixtHookType = HOOKTYPE.LINE) Then
+         Return
+      End If
+
+      ' Verifico se della stessa classe
+      Dim nTableHookClass As Integer = GetHookClass( nCurrHookId)
+      If nTableHookClass <> nFixtHookClass Then
+         Return
+      End If
+
+      Dim dDist As Double = 0
+      ' punto a distanza minima sull'hook
+      Dim ptCurrHook As Point3d
+      If nTableHookType = GDB_TY.GEO_POINT Then
+         ' verifico se utilizzato
+         Dim nTableHookUsed As Integer = GetHookUsed( nCurrHookId)
+         If nTableHookUsed <> GDB_ID.NULL AndAlso nTableHookUsed <> nMoveId Then
             Return
          End If
+         If nTableHookUsed = nMoveId Then
+            SetHookUsed(nCurrHookId, nMoveId, False)
+            m_nPrevUsedHookId = nCurrHookId
+         End If
+         ' calcolo distanza punto hook tavola dal punto hook della ventosa
+         EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
+         dDist = Point3d.DistXY(ptCurrHook, ptFixtHook)
+         'If nTableHookUsed <> nMoveId Then
+         '   ' calcolo distanza punto hook tavola dal punto hook della ventosa
+         '   EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
+         '   dDist = Point3d.Dist(ptCurrHook, ptFixtHook)
+         'Else
+         '   EgtRemoveInfo(nCurrHookId, USED)
+         '   m_nPrevUsedHookId = nCurrHookId
+         '   Return
+         'End If
+         'If Not EgtGetInfo(nCurrHookId, USED, nTableHookUsed) Or nTableHookUsed = nMoveId Then
+         '   ' calcolo distanza punto hook tavola dal punto hook della ventosa
+         '   EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
+         '   dDist = Point3d.Dist(ptCurrHook, ptFixtHook)
+         'Else
+         '   Return
+         'End If
+      ElseIf nTableHookType = GDB_TY.CRV_LINE Then
+         ' calcolo distanza linea hook tavola dal punto hook della ventosa
+         Dim nRefId As Integer = 0
+         Dim dU As Double = 0
+         EgtPointCurveDist(ptFixtHook, nCurrHookId, nRefId, dDist, dU)
+         EgtAtParamPoint(nCurrHookId, dU, GDB_ID.ROOT, ptCurrHook)
       Else
          Return
       End If
+      ' se minore della distanza minima, sostituisco il valore
+      If dDist < dNearestHookDist Then
+         nNearestHookId = nCurrHookId
+         dNearestHookDist = dDist
+         ptNearestHook = ptCurrHook
+      End If
    End Sub
 
    ' Funzione che fissa il vettore di hook
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb
index 511e3b6..8af9c08 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb
@@ -5,8 +5,6 @@ Imports EgtUILib
 Public Class FixtureParametersVM
    Inherits ViewModelBase
 
-   Friend Const USED As String = "USED"
-
    Private m_FixtureTypeList As ObservableCollection(Of FixtureListItem)
    Public ReadOnly Property FixtureTypeList As ObservableCollection(Of FixtureListItem)
       Get
@@ -248,7 +246,7 @@ Public Class FixtureParametersVM
       End If
    End Function
 
-   ' Funzione che aggancia la ventosa al più vicino hook libero
+   ' Funzione che cerca un hook libero adatto alla ventosa e se trovato la posiziona
    Friend Shared Function PositionFixtureOnNearestHook(nFixtureId As Integer) As Boolean
       ' cerco punto hook sulla ventosa
       Dim nFixtSolidId As Integer = EgtGetFirstNameInGroup(nFixtureId, SOLID)
@@ -286,7 +284,7 @@ Public Class FixtureParametersVM
             EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
             ' verifico se è in una posizione valida
             If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-               EgtSetInfo(nCurrHookId, used, nFixtureId)
+               DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
                Return True
             End If
          End If
@@ -303,7 +301,7 @@ Public Class FixtureParametersVM
                EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
                ' verifico se è in una posizione valida
                If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-                  EgtSetInfo(nCurrHookId, USED, nFixtureId)
+                  DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
                   Return True
                End If
             End If
@@ -324,7 +322,7 @@ Public Class FixtureParametersVM
                   EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
                   ' verifico se è in una posizione valida
                   If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-                     EgtSetInfo(nCurrHookId, USED, nFixtureId)
+                     DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
                      Return True
                   End If
                End If
@@ -343,7 +341,7 @@ Public Class FixtureParametersVM
                         EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
                         ' verifico se è in una posizione valida
                         If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-                           EgtSetInfo(nCurrHookId, USED, nFixtureId)
+                           DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
                            Return True
                         End If
                      End If
@@ -358,36 +356,38 @@ Public Class FixtureParametersVM
       Return False
    End Function
 
-   ' Funzione che analizza l'hook e se valido ne prestituisce lo posizione(punto)
+   ' Funzione che analizza l'hook e se valido ne restituisce la posizione (punto)
    Private Shared Function HookAnalyzer(nCurrHookId As Integer, nFixtHookType As Integer, nFixtHookClass As Integer,
                                         ptFixtHook As Point3d, ByRef ptCurrHook As Point3d) As Boolean
-      ' verifico se del tipo giusto
+      ' Verifico se del tipo giusto
       Dim nTableHookType As GDB_TY = EgtGetType(nCurrHookId)
-      If (nTableHookType = GDB_TY.GEO_POINT And nFixtHookType = DispositionUtility.HOOKTYPE.POINT) OrElse
-         (nTableHookType = GDB_TY.CRV_LINE And nFixtHookType = DispositionUtility.HOOKTYPE.LINE) Then
-         ' verifico se della stessa classe
-         Dim nTableHookClass As Integer = 0
-         EgtGetInfo(nCurrHookId, DispositionUtility.CLASS_, nTableHookClass)
-         If nTableHookClass = nFixtHookClass Then
-            Dim dDist As Double = 0
-            ' punto a distanza minima sull'hook
-            If nTableHookType = GDB_TY.GEO_POINT Then
-               ' verifico se utilizzato
-               Dim nTableHookUsed As Boolean = False
-               If Not EgtGetInfo(nCurrHookId, DispositionUtility.USED, nTableHookUsed) Then
-                  ' calcolo distanza punto hook tavola dal punto hook della ventosa
-                  EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
-                  Return True
-               End If
-            ElseIf nTableHookType = GDB_TY.CRV_LINE Then
-               ' calcolo distanza linea hook tavola dal punto hook della ventosa
-               Dim nRefId As Integer = 0
-               Dim dU As Double = 0
-               EgtPointCurveDist(ptFixtHook, nCurrHookId, nRefId, dDist, dU)
-               EgtAtParamPoint(nCurrHookId, dU, GDB_ID.ROOT, ptCurrHook)
-               Return True
-            End If
+      If Not (nTableHookType = GDB_TY.GEO_POINT And nFixtHookType = DispositionUtility.HOOKTYPE.POINT) AndAlso
+         Not (nTableHookType = GDB_TY.CRV_LINE And nFixtHookType = DispositionUtility.HOOKTYPE.LINE) Then
+         Return False
+      End If
+
+      ' Verifico se della stessa classe
+      Dim nTableHookClass As Integer = DispositionUtility.GetHookClass( nCurrHookId)
+      If nTableHookClass <> nFixtHookClass Then
+         Return False
+      End If
+
+      Dim dDist As Double = 0
+      ' punto a distanza minima sull'hook
+      If nTableHookType = GDB_TY.GEO_POINT Then
+         ' verifico se utilizzato
+         If Not DispositionUtility.GetIsHookUsed( nCurrHookId) Then
+            ' calcolo distanza punto hook tavola dal punto hook della ventosa
+            EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
+            Return True
          End If
+      ElseIf nTableHookType = GDB_TY.CRV_LINE Then
+         ' calcolo distanza linea hook tavola dal punto hook della ventosa
+         Dim nRefId As Integer = 0
+         Dim dU As Double = 0
+         EgtPointCurveDist(ptFixtHook, nCurrHookId, nRefId, dDist, dU)
+         EgtAtParamPoint(nCurrHookId, dU, GDB_ID.ROOT, ptCurrHook)
+         Return True
       End If
       Return False
    End Function