DirectShapeType.AppendShape Method