Public Class StrategyV

   ''' <summary>
   ''' Funzione che permette di riselezionare l'elemento ActiveStrategyList della lista già selezionato
   ''' </summary>
   ''' <param name="sender"></param>
   ''' <param name="e"></param>
   Private Sub AvailableStrategyList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      If TypeOf sender IsNot ListBoxItem Then Return
      Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
      If Not IsNothing(Item) AndAlso Item.IsSelected Then
         Map.refStrategyManagerVM.SelTreeItem.SelAvailableStrategy = Map.refStrategyManagerVM.SelTreeItem.SelAvailableStrategy
      End If
   End Sub

   Private Sub ActiveStrategyList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      If TypeOf sender IsNot ListBoxItem Then Return
      Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
      If Not IsNothing(Item) AndAlso Item.IsSelected Then
         Map.refStrategyManagerVM.SelTreeItem.SelActiveStrategy = Map.refStrategyManagerVM.SelTreeItem.SelActiveStrategy
      End If
   End Sub

End Class