Sub GetTouch(ByRef status, ByRef x, ByRef y, ByRef dx, ByRef dy)

Gets the position and distance of motion of a touch event