Class MainWindowV Private m_MainWindowVM As MainWindowVM #Region "CONSTRUCTOR" Sub New() m_MainWindowVM = New MainWindowVM ' Funzione che interpreta l'xaml InitializeComponent() Me.DataContext = m_MainWindowVM AddHandler Me.Closing, AddressOf Me_Closing End Sub #End Region ' CONSTRUCTOR Private Sub Me_Closing() m_MainWindowVM.OnClosed() End Sub End Class