MO 投影设置问题,请教高手！

<P>Private Sub Command1_Click()<br>    Dim ProjCoordSys1 As New MapObjects2.ProjCoordSys<br>    ProjCoordSys1.Projection.Type = moProjection_EquidistantCylindrical<br>    Debug.Print ProjCoordSys1.Projection.Type<br>    ProjCoordSys1.Projection.Type = moProjection_Albers<br>    Debug.Print ProjCoordSys1.Projection.Type<br>    ProjCoordSys1.Projection.Type = moProjection_Behrmann<br>    Debug.Print ProjCoordSys1.Projection.Type<br>End Sub</P>
<P>这个代码，为什么三个debug.print 输出结果相同，输出结果如下：</P>
<P>43001 <br>43001 <br>43001 </P>
<P>应该不是如下吗？</P>
<P> 43002 <br> 43007 <br> 43017 </P>