-aggiunto probing in beammaching

BeamMachiningsWindow/BeamMachiningsWindowVM.vb

@@ -13,6 +13,7 @@ Public Class BeamMachiningsWindowVM
    Private Const MACH_POCKETING As String = "Pocketing"
    Private Const MACH_SAWING As String = "Sawing"
    Private Const MACH_SURFACING As String = "Surfacing"
+   Private Const MACH_PROBING As String = "Probing"
    Private Const ONCONST As String = "On"
    Private Const NAME As String = "Name"
    Private Const TYPE As String = "Type"
@@ -21,7 +22,7 @@ Public Class BeamMachiningsWindowVM
 
    Public Event m_CloseWindow(bDialogResult As Boolean)
 
-   Private m_MachiningList As New ObservableCollection(Of String)({MACH_CUT, MACH_DRILL, MACH_MILLING, MACH_POCKETING, MACH_SAWING})
+   Private m_MachiningList As New ObservableCollection(Of String)({MACH_CUT, MACH_DRILL, MACH_MILLING, MACH_POCKETING, MACH_SAWING, MACH_PROBING})
    Public ReadOnly Property MachiningList As ObservableCollection(Of String)
       Get
          Return m_MachiningList
@@ -204,6 +205,8 @@ Public Class BeamMachiningsWindowVM
          Case MACH_SURFACING
             LoadMachiningListByType(MachiningList, MCH_MY.SURFROUGHING, 0)
             LoadMachiningListByType(MachiningList, MCH_MY.SURFFINISHING, 0, False)
+         Case MACH_PROBING
+            LoadMachiningListByType(MachiningList, MCH_MY.PROBING, MCH_TF.PROBE)
       End Select
       GridLine.SetNamesList(New ObservableCollection(Of String)(MachiningList))
       Return True