定义变量

<P>                Case moShapeTypePolygon    
                    Dim apol As mapobjects2.Polygon
                    Set apol = rec.Fields("Shape").Value
                    For Each pp In apol.Parts
                        LayerPol.Parts.Add (pp)
                    Next
</P>
<P>请问该如何定义pp？</P>

应该是dim pp as points