Public Class SelectPartVM

   Private m_Title As String = "Selection of door"
   Public ReadOnly Property Title As String
      Get
         Return m_Title
      End Get
   End Property

   Private m_PartDoorMsg As String = "Select part"
   Public ReadOnly Property PartDoorMsg As String
      Get
         Return m_PartDoorMsg
      End Get
   End Property

   Private m_PartDoorList As New List(Of String)
   Public Property PartDoorList As List(Of String)
      Get
         Return m_PartDoorList
      End Get
      Set(value As List(Of String))
         m_ListPartDoor = value
      End Set
   End Property

   Private m_Selection As String = ""
   Public Property Selection As String
      Get
         Return m_Selection
      End Get
      Set(value As String)
         m_Selection = value
      End Set
   End Property

   Sub New(TitleWd As String, MsgWd As String, nParts As Integer, nIndex As Integer)
      m_Title = TitleWd
      m_PartDoorMsg = MsgWd
      For Index As Integer = 0 To nParts - 1
         m_PartDoorList.Add("Door " & nParts.ToString)
      Next
      m_Selection = "Door " & nIndex.ToString
   End Sub

End Class