Imports System.Collections.ObjectModel Public Class Print3dPartVM Private m_nPartId As Integer Public ReadOnly Property nPartId As Integer Get Return m_nPartId End Get End Property Private m_sImportedFileName As String Public Property sImportedFileName As String Get Return m_sImportedFileName End Get Set(value As String) m_sImportedFileName = value End Set End Property Private m_sImportedFilePath As String Public Property sImportedFilePath As String Get Return m_sImportedFilePath End Get Set(value As String) m_sImportedFilePath = value End Set End Property Private m_LayerList As ObservableCollection(Of Print3dLayerVM) Public ReadOnly Property LayerList As ObservableCollection(Of Print3dLayerVM) Get Return m_LayerList End Get End Property #Region "Default Machining Params" #End Region ' Default Machining Params Sub New(nPartId As Integer, sImportedFilePath As String) m_nPartId = nPartId m_sImportedFilePath = sImportedFilePath m_sImportedFileName = IO.Path.GetFileName(m_sImportedFilePath) End Sub End Class