function IsLinked(AShape,BShape:TMyShape): Integer;


Description:


 To sure there is linking relationshape between AShape and BShape. it there is more than one linking relationship between , it is onyl return the first.


Return Value:


 -1:there is no link

>=0 :   it is linkline shape id .