DirectShapeType.SetShape Method