B4J Question How to prevent a Titledpane's collapse/expand event when clicking a node that's in its graphic area

' comments
' TpMain = tab panel (=tabpane)
' example filters events which is not clicket on TabHeader

Sub tpMain_Filter (EventData As Event)
    Dim ContextMenuEvent As JavaObject = EventData
    Dim Target As JavaObject = ContextMenuEvent.RunMethod("getTarget", Null)
    If Target Is Node Then
        Dim n As Node = Target
        Do While n.IsInitialized
            If GetType(n) = "javafx.scene.control.skin.TabPaneSkin$TabHeaderSkin" Then Return
            n = n.Parent
        Loop
    End If
    EventData.Consume
End Sub