Imports EgtWPFLib5 Public Class PartManagerVM Inherits VMBase Private m_PartManager_IsEnabled As Boolean = True Public ReadOnly Property PartManager_IsEnabled As Boolean Get Return m_PartManager_IsEnabled End Get End Property Sub New() ' salvo riferimento in Map Map.SetRefPartManagerVM(Me) End Sub Friend Sub SetPartManagerIsEnabled(bIsEnabled As Boolean) m_PartManager_IsEnabled = bIsEnabled NotifyPropertyChanged(NameOf(PartManager_IsEnabled)) End Sub End Class