Grasshopper中VB.net编写koch曲线出现的问题

代码如下：主程序
 Private Sub RunScript(ByVal x As Line, ByVal y As Integer, ByRef A As Object) 
    Dim lines01 As New List(Of Line)
    lines01.Add(x)
    For i As Integer = 1 To y
      lines01 = koch(lines01)   '问题1. Error (BC30311): 类型“System.Collections.Generic.List(Of Rhino.Geometry.Line)”的值无法转换为“Rhino.Geometry.Line”。 
    Next
    A = lines01
  End Sub 子程序Function koch(ln As Line) As List (Of Line)
    Dim pl As Plane = plane.unset
    Dim pt01,pt02,pt03,pt04,pt05 As Point3d
    Dim vec01,vec02 As Vector3d
    Dim line01, line02,line03,line04 As Line
    Dim newLines As New List (Of Line)
    If  ln.TryGetPlane(pl) Then 
      pt01 = ln.From
      pt05 = ln.To
      vec01 = pt05 - pt01
      pt02 = pt01 + vec01 / 3
      pt04 = pt01 + vec01 * 2 / 3
      vec02 = vec01 / 3
      vec02.rotate(60 * math.PI / 180, pl.ZAxis)
      pt03 = pt02 + vec02
      line01.From = pt01: line01.To = pt02:newLines.Add(line01)
      line02.From = pt02: line02.To = pt03:newLines.Add(line02)
      line03.From = pt03: line03.To = pt04:newLines.Add(line03)
      line04.From = pt04: line04.To = pt05:newLines.Add(line04)
  End If
  Return newlines
End Function求各位大神解答！！谢谢