ect shapeObj, visSelectIfSubDefineDelXY (predX, predY, koorX, koorY As Double) ugol, delX, delY, k As Double=(koorY - predY)/(predX - koorX) k lt; gt; 0 Then=Atn (- 1/k)=Pi/2If=Sin (ugol) * lenCentr=Cos (ugol) * lenCentrpredY gt; koorY Then=predX + delX=predY - delY=koorX + delX=koorY - delY=predX - delX=predY + delY=koorX - delX=koorY + delYIfSubFindIndexTag (ByVal iNode As IXMLDOMNode, Name As String) As Integeri As Integerz As Boolean =0=Truei lt; iNodeildNodes.Length And ziNodeildNodes.Item (i) .nodeName=Name Then=FalseIf=i + 1z=True Then=- 1=i - 1IfFunction
