Private Sub DisableReordering(TV As TableView)
Dim Jo As JavaObject = TV
Dim Header As JavaObject = Jo.RunMethod("lookup", Array("TableHeaderRow"))
Dim Prop As JavaObject = Header.RunMethod("reorderingProperty", Null)
Dim o As Object = Prop.CreateEventFromUI("javafx.beans.value.ChangeListener", "HeaderOrder", Null)
Prop.RunMethod("addListener",Array(o))
End Sub