Public Class MainWindowViewModel

   ' Modello del MainWindow (classe vera e propria)
   Private m_MainWindowModel As New MainWindowModel

   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(m_MainWindowModel.m_Door)
         End If
         Return m_CompoPanel
      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(m_MainWindowModel.m_Door)
         End If
         Return m_DoorParameters
      End Get
   End Property

End Class