Imports System.Windows.Forms Public Class GeneralParametersStrategyV #Region "FIELDS & PROPERTIES" Private WithEvents m_GeneralParametersStrategyVM As GeneralParametersStrategyVM #End Region ' Fields & Properties #Region "CONSTRUCTOR" Sub New(Owner As Window, GeneralParametersStrategyVM As GeneralParametersStrategyVM) ' La chiamata è richiesta dalla finestra di progettazione. InitializeComponent() Me.DataContext = GeneralParametersStrategyVM ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent(). m_GeneralParametersStrategyVM = GeneralParametersStrategyVM End Sub #End Region ' Constructor #Region "EVENTS" Private Sub CloseWindow(DialogResult As Boolean) Handles m_GeneralParametersStrategyVM.m_CloseWindow Me.DialogResult = DialogResult End Sub #End Region ' Events End Class