Imports EgtWPFLib5 Public Class ImportExportToolWD Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow) Private WithEvents m_ImportExportToolWindowVM As ImportExportToolWindowVM Sub New(Owner As Window, ImportExportToolWindowVM As ImportExportToolWindowVM) Me.Owner = Owner ' This call is required by the designer. InitializeComponent() Me.DataContext = ImportExportToolWindowVM ' Assegno al riferimento locale al VM il VM preso dal DataContext m_ImportExportToolWindowVM = ImportExportToolWindowVM End Sub 'Private Sub CloseWindow(bDialogResult As Boolean) Handles m_ImportExportToolWindowVM.m_CloseWindow ' Me.DialogResult = bDialogResult 'End Sub End Class