Class MyClass
private value '私有变量

Sub Class_Initialize()
' 类初始化会自动调用此函数。可以在此初始化资源
End Function

Sub Class_Terminate()
' 类终止时会自动调用此函数。可以在此释放资源
End Function

'成员方法
Public Function aaa(x, y)
aaa = x + y
End Function

'成员属性(读)
Public Property Get MyPro
MyPro = value
End Property
'成员属性（写）。注：和 Get 要匹配，如果参数是对像必须使用 Set 而非 Let
Publci Property Let MyPro(ByVal NewValue)
value = NewValue
End Property
End Class

' 调用
Dim mycls

mycls = new MyClass

'调用方法
Response.Write mycls.aaa(x, y)

'调用属性
mycls.MyPro = "dsafas"
Response.Write mycls.MyPro