Moving anchors while keeping handles relative

Hello all,

I am using a script to move anchor points on a path that I have.  When I move the anchors, the handles remain in the same location and I am getting very poor results.  I was wondering if there was a way to move handles WITH the anchor points.  Basically keep them relative to the anchors.

Below is how I am moving the anchor.  I know that you can use leftDirection and rightDirection to move the handles, but I would like them to move the same way they would if you moved the anchors when selecting them in Illustrator.

Set currentPoint = targetPathItem.PathPoints(13)

currentPoint.Anchor = Array(-1537.21, 2735.96)

Any ideas?

Thanks!

Jeff