Public Class AssemblyManagerV

   Private Sub Door_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs)
      Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
      ' Gestisco porta corrente modificata
      Dim IsModified As Boolean = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified
      If Not Map.refAssemblyManagerVM.ManageModified() Then
         Return
      End If
      ' verifico se il progetto cliccato è quello già selezionato
      If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName Is DirectCast(Item.DataContext, AssemblyName) Then
         ' ricarico la porta
         Map.refAssemblyManagerVM.Open(DirectCast(Item.DataContext, AssemblyName))
      End If
      If IsModified Then
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName = DirectCast(Item.DataContext, AssemblyName)
      End If
   End Sub

End Class