请问：如何创建 孙类 实例？谢谢！
类模块1：父类s 父类集合
类模块2：父类 父类
类模块3：子类s 子类集合
类模块4：子类 子类
类模块5：孙类s 孙类集合
类模块6：孙类 孙类
我在 父类s 的 Add 过程中：
public Fucntion Add
Dim 子 As 子类
Set 子 = 子类
’我想在创建子类实例时，默认的在 新创建的子类实例 里创建一个 孙的实例， 应该怎么做呢？ 即怎么实现 set 孙 = 子.孙类s.add ？
end Fucntion
我是业余选手，已经先晕了，不知道说清楚没有啊，先谢谢啦！