Dim array As New List(Of Point) '对于空的List初始化array.Add(Boundary(i).Point2D) 'List类型用Add方法加入元素
array(i)=Boundary(i).Point2D.X这样给数组赋值
