Public Class TopPanelV

   Private Sub ModifyModeList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      If TypeOf sender Is ListBoxItem Then
         Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
         If Not IsNothing(Item) AndAlso Item.IsSelected Then
            Map.refTopPanelVM.SetModifyIsChecked(False)
         End If
      End If
   End Sub

End Class