vb中类的初始化可以带参数吗？

Question

类cAAdim mBool as Boolean 
Public Sub Class_Initialize()
    
End Sub我想在对象初始化时给mbool赋值 可以实现吗？
dim newCAA as cAA
set newCAA=new cAA 
参数怎么传递呢？

Answer 1

Public Sub Class_Initialize()
    mBool = true
End Sub

Answer 2

可能我没说清楚
vb能不能像vc那样 可以有带参数的构造函数呢？
比如上面的例子 可以写成
set newCAA=new cAA(value) 吗？

Answer 3

没有的,不过可以在创建后手动赋值,或者调用自定义的初始化过程,如:
Public Sub SetUp(Byval blnBool as Boolean)
   mBool = blnBool
End SubPublic Sub TearDown()
   ' ...
End Sub