类的两个实例如何进行值拷贝？
第一个问题：如何让函数返回类的实例
        我要写个函数，返回一个类的实例。
'定义个类
class   payinfo
      dim   shpaydate
      dim   shpayPrin
end   class

'示范函数
function   sample
      set   pi=new   payinfo
      pi.shpaydate=cdate( "2007-4-29 ")
      pi.shpayPrin=100
     
      sample=pi
end   function

结果运行的时候，说   对象不支持此属性或方法.
请问该如何返回呢？

第二个问题：类的两个实例如何进行值拷贝
        还有就是，如何值拷贝两个实例呢？像如下代码
set   pi=new   payinfo
set   p2=new   payinfo
p2.shpaydate=cdate( "2007-4-25 ")
p2.shpayprin=300
pi=p2
这个代码则说   对象不支持此属性或方法:   'pi '
有没有方法可以像在C++的类那样操作，重载=或者值拷贝呢？在类定义里实现。
谢谢

------解决方案--------------------
asp的类的属性需要Property Let和 Property Get