Sub imgViewPlanimetria_OnItemClick
Dim rTI As Reflector, rGD As Reflector
rTI.Target=imgViewPlanimetria
Dim mGD As JavaObject = rTI.GetField("mGestureDetector")
rGD.Target=mGD
Dim ptX As Object = rGD.GetField("mDownFocusX")
Dim ptY As Object = rGD.GetField("mDownFocusY")
Dim aPointObject As JavaObject = rTI.RunMethod4("transformCoordTouchToBitmap", _
Array As Object(ptX,ptY,False), Array As String("java.lang.float", _
"java.lang.float","java.lang.boolean"))
Dim x, y As Float
x = aPointObject.getfield("x")
y = aPointObject.getfield("y")
Log(x)
Log(y)
End Sub