VB中如何实现递归定义数据类型?

Question

比如，要做一个部门类型，部门可能包括几个小部门，这样需要递归定义此数据类型，但是VB好像不允许这样定义，请高手指点。谢谢！！！！

Answer 1

不需要递归定义啊,数据库结构可以这样,
id, Parentid, data,
id为主键,parentid为像结点的id,data为结点的内容.

Answer 2

我需要的是类似下面的描述方法，但是在VB中这种表示是非法的，请问合法的表示应该是什么呢？Private Type Department
    Name As String
    subDepartments() As Department
End Type

Answer 3

Option ExplicitPublic Name As StringDim m_Department() As DepartmentPublic Property Get subDepartments(ByVal Index As Long) As Department
  If m_Department(Index) Is Nothing Then Set m_Department(Index) = New Department
  Set subDepartments = m_Department(Index)
End Property定义这样的类就可以