#IF B4A
Dim obj As Reflector
obj.Target=View
obj.SetOnTouchListener("ViewA_Touch")
#ELSE IF B4J
Dim jo As JavaObject = View
Dim e As Object = jo.CreateEvent("javafx.event.EventHandler, "ViewJ", False)
jo.RunMethod("setOnMouseDragged", Array As Object(e))
#ELSE IF B4i
'nothing
#End If