Sub PolylineСontour(ByVal shp As Shape, ByVal d As Double, ByVal leftHand As Boolean)
    Dim polyPoints() As GeomPoint, polyPoints2() As Single
    Dim ls() As GeomLine, l As GeomLine
    Dim i As Long, n As Long
    GetPolylinePoints shp, n, polyPoints
    ReDim ls(1 To n)
    For i = 1 To n
        GetLine polyPoints(i), polyPoints(i Mod n + 1), l
        GetParallelLine2 l, d, leftHand, ls(i)
    Next
    '     ReDim polyPoints2(1 To n + 1, 1 To 2) As Single
    ReDim polyPoints2(0 To n, 1 To 2) As Single
    For i = 1 To n
        GetIntersectionPoint ls(i), ls(i Mod n + 1), polyPoints(i)
        polyPoints2(i, 1) = polyPoints(i).x
        polyPoints2(i, 2) = polyPoints(i).y
    Next
    polyPoints2(0, 1) = polyPoints2(UBound(polyPoints2), 1)
    polyPoints2(0, 2) = polyPoints2(UBound(polyPoints2), 2)
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, polyPoints2(0, 1), polyPoints2(0, 2))
        For i = 0 To UBound(polyPoints2) - 1
            .AddNodes msoSegmentLine, msoEditingAuto, polyPoints2(i, 1), polyPoints2(i, 2)
        Next
        .ConvertToShape.Select
    End With
    '
    '    Set shp = shp.Parent.Shapes.AddPolyline(polyPoints2)
    '    Dim nds
    '    Set nds = shp.Nodes
    '    n = nds.Count
    '    shp.Fill.Visible = msoFalse
    '    shp.Line.ForeColor.RGB = 0
    '    shp.Line.DashStyle = msoLineDash
End Sub