Public Class SelMachGroupWndV

   Private m_SelMachGroupWndVM As SelMachGroupWndVM

#Region "CONSTRUCTOR"

   Sub New(Owner As Window, SelMachGroupWndVM As SelMachGroupWndVM)
      ' Funzione che interpreta l'xaml
      InitializeComponent()
      Me.Owner = Owner
      Me.DataContext = SelMachGroupWndVM
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_SelMachGroupWndVM = SelMachGroupWndVM
   End Sub

#End Region    ' CONSTRUCTOR

   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
      If m_SelMachGroupWndVM.IsValid Then
         DialogResult = True
      End If
   End Sub

End Class