New Post: VB.NET get Polyline from SHP

Dim shapeActual As FeatureSet = FeatureSet.Open("PATH\FILE.shp")

                shapeActual.FillAttributes()
                Dim dt As System.Data.DataTable = shapeActual.DataTable

                Dim pline As New Polyline

                For count As Integer = 0 To shapeActual.Features.Count - 1

                    Dim AdresX = CStr(shapeActual.Features.Item(count).Coordinates.Item(0).X)
                    Dim AdresY = CStr(shapeActual.Features.Item(count).Coordinates.Item(0).Y)


                    pline.AddVertexAt(count, New Point2d(shapeActual.Features.Item(count).Coordinates.Item(0).X, shapeActual.Features.Item(count).Coordinates.Item(0).Y), 0, 0, 0)

                Next