在vb里面怎么实现类中有类啊

Question

就是在class modules 中再定义一个子类，调用的时候比如
dim x=new creatobject("com.buy")
set y=new x.user()
y.reg(uname,pwd)
这样的

Answer 1

定义两个类模块ClassUser和ClassBuy,在ClassBuy里面添加语句:
Dim User As New ClassUser
然后在窗口代码中添加语句:
Dim buyVar As New ClassBuy
bugVar.User '类中有类可惜的是VB没有类似Delphi和C++的Class语句,要是有就方便多了...

Answer 2

明白你的意思，但是好像我有点问题，就是这两个类不能公用一个环境变量，又不能把 
Implements ObjectControl放在Module里面，我作asp里面调用的com+,所以session在两个类中好像是独立的，我才会想有什么办法公用