参数传递问题

Question

VB6.0
在一个类Class中定义一个函数如下
public function test(oStr as string,oVal as long) as long
oStr="Something"
oVal=123
test=0
end function
在另外一个工程中引用这个函数
dim re as long
re=Class.test(status.caption,progress.value)
其中status是一个Label控件,progress是一个进度条控件
程序运行出错，提示类似“With对象设置”什么的
请具体解释并告知解决方法（可以绕道而行）

Answer 1

new过，没有什么其它的故障，仅是传递参数上的错误

Answer 2

Class要定义，最好避免Class这样的定义，以免跟Vb的关键字冲突

Answer 3

dim re as long
dim cls as new Classre=cls.test(status.caption,progress.value)

Answer 4

对 davidlv：
就是这个方法，你可以去试一试，会出错的。
就是因为status和progress是控件