Public Class StrategyManagerV

   Private Sub TreeViewItem_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      If TypeOf sender IsNot TreeViewItem Then Return
      Dim treeViewItem As TreeViewItem = DirectCast(sender, TreeViewItem)
      If TypeOf treeViewItem.DataContext IsNot StrategyFeature Then
         Dim Topology As Topology = DirectCast(treeViewItem.DataContext, Topology)
         Topology.CreateStrategyViews()
         Topology.ActiveStrategyList_View.Refresh()
         Topology.AvailableStrategyList_View.Refresh()
      Else
         Dim Feature As StrategyFeature = DirectCast(treeViewItem.DataContext, StrategyFeature)
         For Each Topology As Topology In Feature.TopologyList
            Topology.ActiveStrategyList_View.Filter = Function(item) False
            Topology.AvailableStrategyList_View.Filter = Function(item) False
            Topology.ActiveStrategyList_View.Refresh()
            Topology.AvailableStrategyList_View.Refresh()
         Next
      End If
   End Sub

End Class