How to Capture Orthogonal lines using VBA?

Dear All,

            I am using Microstation v8 2004 Edition with VBA. I am trying to capture the Orthogonal lines. Here i attached the Video Clip please find it and give me the ideas for do this.

Note: In that video Clip i am using the Place Orthogonal Shape Tool But i am trying same concept in capturing LineString.

Click here to play this video

Thanks & Regards,

Karthik M