procedure AlignTop;


Description:


 When you select more than one shapes, this procedure can align them to top.


Example:


  MyCAD1.AlignTop;