CheckProjectionByDirection
From scripting
Function CheckProjectionByDirection(PointObj As Variant, LineObj As Variant, TargetObj As Variant) As Boolean On Error GoTo Blast Dim Pr As HybridShapeProject Set Pr = MyHSFactory.AddNewProject(PointObj, TargetObj) Pr.Direction = MyHSFactory.AddNewDirection(LineObj) CheckProjectionByDirection = True Exit Function Blast: CheckProjectionByDirection = False End Function