Sub GetWorldToViewportPosition(x, y, z, ByRef x, ByRef y)

Get the 2D coordinates for the given 3D position on the active canvas