sub GetTouch(byref status, byref x, byref y, byref dx, byref dy)

Gets the position and distance of motion of a touch event