类模块的方法读窗体数据,该怎么解决

类模块的方法读窗体数据
我写一个DLL，

工程中有窗体from1、模板Module1、类模块class.cls三部份，在窗体中一个text和Command控件，当点击Command控件以后把text1.text的值传到 class.cls中test() 方法
public sub test() 
dim textval as string 
textval=text1.text(意思这样)
end sub

[解决办法]
textval=Form1.text1.text
[解决办法]
public sub test(Txt AS Control) 
dim textval as string 
textval=Txt.text(意思这样) 
end sub

使用的时候把控件的名字传进去

或

public sub test(Txt AS Object)
[解决办法]

VB code

'Class1public sub test(byval textval as string )     msgbox textvalend sub
[解决办法]
探讨

VB code'Class1publicsub test(byval textvalasstring )  
   msgbox textvalend sub
VB code'Form1privatesub Command1_Click()dim cas class1set c=new class1
   c.text Text1.Text
   Unload Meend sub