在vb中如何实现带参数的构造函数？？？

Question

to : seaboard(不见天日) 
你胡说什么？我是问用vb的类时的构造函数！
汇编有构造函数一说吗？
请你不要捣乱。

Answer 1

什么意思？
Function Test(Parm1 As string ,Parm2 As Long)
   Debug.Print Parm1
   Debug.Print Parm2
End Function

Answer 2

用VB。NET吧
VB6是基于对象，不是面向对象

Answer 3

可以在BAS中编写一个模拟构造函数：
'in common BAS
public function New_MyClass(argu1,argu2,...) as clsMyClass
    set New_MyClass = New clsMyClass
    '再调用类中的初始化方法(假设为 Init(Par1,par2))
    New_MyClass.Init data1,data2
end function这样就可在程序中使用New_MyClass模拟执行构造函数。dim CTest as clsMyClass
set Ctest = New_MyClass(data1,data2)