在VB中，类的属性是否可以是数组

Question

各位高手求救：
    本人最近需要实现树的结构类型，定义了一个结构体
Type partInfo
    Dim level As Integer           '层级
    Dim childParts() As partInfo   '子零件数组***出错：不允许循环引用***
    Dim childNumber As Integer     '子件数量
    Dim cnName As String           '中文名
End Type
如今想把它转化为类partInof :
请问对于属性childParts() 为数组，如果定义其get和set方法，如果使用？

Answer 1

类的属性可以是数组，可以在类中加入下面的属性试一下
Public Property Get b() As String()
    Dim c(2) As String
    c(1) = "ok"
    c(2) = "no"
    b = c
End Property

Answer 2

我的类是这样的：
‘***partInfo 类
Private mvarlevel As Integer '局部复制
Private mvarpositRow As Integer '局部复制
Private mvarpartNumber As String '局部复制
Private mvarchildPart（） As partInfo '局部复制
Private mvarchildNumber As Integer '局部复制Public Property Set childPart(ByVal vData As partInfo, ByVal num As Integer（这个参数自己加的）)
编译出错:相同属性的属性过程不一致,或属性设置中包含可选参数,参数数组,或一个无效的设置最后参数。
    Set mvarchildPart(num) = vData   
End PropertyPublic Property Get childPart(ByVal num As Integer（自己加的参数）) As partInfo
’编译出错:相同属性的属性过程不一致,或属性设置中包含可选参数,参数数组,或一个无效的设置最后参数。
    Set childPart = mvarchildPart(num)
End Property解释：一个父节点点下有多个子件，分别set和get序号为num的子件。
请问怎么做啊？？