B4J Question How to remove keypresslistener?

Sub AddKeyPressedListener(a As AnchorPane)
    Dim lr As Reflector
    lr.Target = a'frmszamlamain.RootPane
    lr.AddEventFilter("keypressed", "javafx.scene.input.KeyEvent.ANY")
End Sub