Sub Gesture_onDrag(deltaX As Float, deltaY As Float, MotionEvent As Object)
Log(" onDrag deltaX = " & deltaX & ", deltaY = " & deltaY & ", ev = " & MotionEvent)
pnlGreen.Left = Max(0, Min(pnlGreen.Left + deltaX, 100%x - pnlGreen.Width))
pnlGreen.Top = Max(0, Min(pnlGreen.Top + deltaY, 100%y - pnlGreen.Height))
End Sub
Sub Gesture_onRotation(Degrees As Double, MotionEvent As Object)
Dim jo = pnlGreen As JavaObject
Dim Angle As Float = Degrees
jo.RunMethod("setRotation", Array As Object(Angle))
End Sub