Public Function PolarPoints(ByVal pPt As Point2d, ByVal dAng As Double, ByVal dDist As Double)
Return New Point2d(pPt.X + dDist * Math.Cos(dAng), pPt.Y + dDist * Math.Sin(dAng))
End Function
Return New Point2d(pPt.X + dDist * Math.Cos(dAng), pPt.Y + dDist * Math.Sin(dAng))
End Function