Imports System.Collections.ObjectModel Imports EgtUILib Public Class FeatureListVM Private m_FeatureColumns As New ObservableCollection(Of String) Public Property FeatureColumns As ObservableCollection(Of String) Get Return m_FeatureColumns End Get Set(value As ObservableCollection(Of String)) m_FeatureColumns = value End Set End Property #Region "Messages" Public ReadOnly Property Description_Msg As String Get Return EgtMsg(61603) End Get End Property #End Region ' Messages Sub New() ' creo riferimento in Map Map.SetRefFeatureListVM(Me) ' aggiungo le colonne alla tabella FeatureColumns.Add("colDO") FeatureColumns.Add("colCALC") FeatureColumns.Add("colDESC") End Sub End Class