从类公共函数返回用户定义的对象

Question

我有一个名为Point2D的班级，另一个名为Triangle的班级。我想要Triangle class返回三角形的顶点，它们是Point2D个对象，所以我写了这段代码：

Public Function vertex(vertexIndex As Single) As Point2D    

Dim ans As Point2D: Set ans = New Point2D  

Call ans.initWithPoint(vertices_(vertexIndex))   

Set vertex = ans     ' This is where the crash occurs

End Function

无论我怎么做，我都无法让运行时强制将顶点返回到Point2D。

我想出的唯一解决方案是将一个点作为参考传递给一个填充的子 它与所需的顶点。但这非常不优雅。