Public Class TopPanelButtonV #Region "FIELDS & PROPERTIES" Private m_SceneButtonVM As SceneButtonVM #End Region ' Fields & Properties #Region "CONSTRUCTOR" Sub New() ' La chiamata è richiesta dalla finestra di progettazione. InitializeComponent() ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent(). m_SceneButtonVM = Map.refSceneButtonVM Me.DataContext = m_SceneButtonVM.TopPanelListGroupBtn(SceneButtonVM.m_nIndexList) Me.IndexTopList.Text = "ListGroup_" & SceneButtonVM.m_nIndexList.ToString() SceneButtonVM.m_nIndexList += 1 End Sub #End Region ' Constructor End Class