Public Class MySaveFileDialogV
   'Implements INotifyPropertyChanged

   Private m_SaveFileDialogVM As MySaveFileDialogVM

#Region "CONSTRUCTOR"

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

#End Region    ' CONSTRUCTOR

   Private Sub SaveBtn_Click(sender As Object, e As RoutedEventArgs) Handles SaveBtn.Click
      If m_SaveFileDialogVM.MySave() Then
         DialogResult = True
      End If
   End Sub

   Public Overloads Function ShowDialog() As Boolean?
      ' inizializzo dialogo
      m_SaveFileDialogVM.Initialize()
      ' pongo focus su testo
      FilePath.Focus()
      ' mostro la finestra di dialogo
      Return MyBase.ShowDialog()
   End Function

End Class