Public Class MainWindowViewModel ' Modello del MainWindow (classe vera e propria) Private m_MainWindowModel As New MainWindowModel Private m_ProjectManagerViewModel As ProjectManagerViewModel Public ReadOnly Property ProjectManagerViewModel As ProjectManagerViewModel Get If IsNothing(m_ProjectManagerViewModel) Then m_ProjectManagerViewModel = New ProjectManagerViewModel(Me) End If Return m_ProjectManagerViewModel End Get End Property Private m_CompoPanel As CompoPanelView Public ReadOnly Property CompoPanel As CompoPanelView Get If IsNothing(m_CompoPanel) Then m_CompoPanel = New CompoPanelView m_CompoPanel.DataContext = New CompoPanelViewModel(Me) End If Return m_CompoPanel End Get End Property Private m_DoorManager As DoorManagerView Public ReadOnly Property DoorManager As DoorManagerView Get If IsNothing(m_DoorManager) Then m_DoorManager = New DoorManagerView m_DoorManager.DataContext = New DoorManagerViewModel(Me) End If Return m_DoorManager End Get End Property Private m_DoorParameters As DoorParametersView Public ReadOnly Property DoorParameters As DoorParametersView Get If IsNothing(m_DoorParameters) Then m_DoorParameters = New DoorParametersView m_DoorParameters.DataContext = New DoorParametersViewModel(Me) End If Return m_DoorParameters End Get End Property End Class