求助MO中Map的Extent.Width为什么不变？

 
<P>public sub test(  emoLegend as MapObjects2.Map)</P>
<P>Dim rec As New MapObjects2.rectangle</P>
<P>Set rec = emoLegend.Extent</P>
<P>Call rec.ScaleRectangle(2#)</P>
<P>Set emoLegend.Extent = rec</P>
<P>debug.Print  emoLegend.Extent.Width</P>
<P>end sub</P>
<P>打印出emoLegend.Extent.Width 并没有改变，为什么？</P>
<P>恳请好人指点一下！！</P>