Public Class HardwarePageV

   Private Sub Param_MouseEnter(sender As Object, e As MouseEventArgs) ' Handles TextGrid.mouseenter
      Dim Grid As Panel = DirectCast(sender, Panel)
      Map.refHardwareHelpSceneHostV.ShowHideParam(DirectCast(Grid.DataContext, CompoParam))
   End Sub

End Class

Public Class IsFixedSelector
   Inherits DataTemplateSelector

   Private m_Expander As DataTemplate
   Public Property Expander As DataTemplate
      Get
         Return m_Expander
      End Get
      Set(value As DataTemplate)
         m_Expander = value
      End Set
   End Property

   Public m_GroupBox As DataTemplate
   Public Property GroupBox As DataTemplate
      Get
         Return m_GroupBox
      End Get
      Set(value As DataTemplate)
         m_GroupBox = value
      End Set
   End Property

   Public Overrides Function SelectTemplate(Item As Object, Container As DependencyObject) As DataTemplate
      If TypeOf Item Is Compo Then
         Dim Group As Compo = DirectCast(Item, Compo)
         If Group.IsFixed Then
            Return GroupBox
         Else
            Return Expander
         End If
      Else
         Return GroupBox
      End If
   End Function

End Class