Dim obj As Reflector
obj.Target = Label
obj.SetOnTouchListener("EditText2_Touch")
'
'
'
Sub EditText2_Touch(viewtag As Object, action As Int, X As Float, Y As Float, motionevent As Object) As Boolean
'Multi Touch
Dim jo As JavaObject = motionevent
Dim pc As Int = jo.RunMethod("getPointerCount", Null)
For p=0 To pc-1
Dim PointerID As Int = jo.RunMethod("getPointerId", Array As Object(p))
Log(jo.RunMethod("getX", Array As Object(p)))
Log(jo.RunMethod("getY", Array As Object(p)))
Next
Return True
End Sub