Public Class MainMenuVM

   ' Definizione comandi
   Private m_cmdDoorList As ICommand
   Private m_cmdMachineStatus As ICommand
   Private m_cmdStatistics As ICommand

#Region "COMMANDS"

#Region "DoorList"

   Public ReadOnly Property DoorList_Command As ICommand
      Get
         If m_cmdDoorList Is Nothing Then
            m_cmdDoorList = New Command(AddressOf DoorList)
         End If
         Return m_cmdDoorList
      End Get
   End Property

   Public Sub DoorList()

   End Sub

#End Region ' DoorList

#End Region    ' COMMANDS

End Class