Sub GetPolylinePoints(ByVal shp As Shape, ByRef n As Long, ByRef polyPoints() As GeomPoint)
    Dim nds As ShapeNodes, nd As ShapeNode
    Dim dx As Double, dy As Double, d As Double
    Dim i As Long, j As Long
    Set nds = shp.Nodes
    n = nds.Count
    ReDim polyPoints(1 To n)
    For i = 1 To n
        Set nd = nds(i)
        polyPoints(i).x = nd.Points(1, 1)
        polyPoints(i).y = nd.Points(1, 2)
    Next
    'polyPoints(n + 1).x = polyPoints(1).x
    'polyPoints(n + 1).y = polyPoints(1).y
    For i = n To 1 Step -1
        dx = polyPoints(i).x - polyPoints(i + 1).x
        dy = polyPoints(i).y - polyPoints(i + 1).y
        If dx * dx + dy * dy < 1 Then
            For j = i To n
                polyPoints(i).x = polyPoints(i + 1).x
                polyPoints(i).y = polyPoints(i + 1).y
            Next
            n = n - 1
        End If
    Next
    ReDim Preserve polyPoints(1 To n)
End Sub