Imports System.Windows.Interop Public Class SceneButtonV Private m_refSceneButtonVM As SceneButtonVM #Region "CONSTRUCTOR" Sub New() ' La chiamata è richiesta dalla finestra di progettazione. InitializeComponent() ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent(). AddHandler Me.Loaded, AddressOf SceneButtonV_Loaded m_refSceneButtonVM = New SceneButtonVM() Me.DataContext = m_refSceneButtonVM End Sub #End Region ' Constructor #Region "METHODS" Private Sub Init() Me.Width = Map.refMainWindowV.ActualWidth Me.Height = Map.refMainWindowV.ActualHeight - 50 End Sub Private Sub SceneButtonV_Loaded(sender As Object, e As RoutedEventArgs) Init() End Sub #End Region ' Methods End Class