Sub Gesture_onTouch(Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
If Action=GD.ACTION_DOWN Then
Dim jo As JavaObject = SV
jo.RunMethod("requestDisallowInterceptTouchEvent", Array(True))
Else If Action = GD.ACTION_UP Then
Dim jo As JavaObject = SV
jo.RunMethod("requestDisallowInterceptTouchEvent", Array(False))
'Removes the first painter from the list
Gesture_onPointerUp(0, 0, MotionEvent)
End If
Return True
End Sub