设该属性有n个参数 Public Property Get 属性名(参数1 As 类型1, 参数2 As 类型2,...,参数n) As 返回类型 ... colwidth=类的某私有变量的值 '将类的私有变量的值赋给属性 ... End PropertyPublic Property Let 属性名(参数1 As 类型1, 参数2 As 类型2,...,参数n,参数n+1 As 类型n+1) ... 类的某私有变量=参数n+1 '将最后一个参数的值赋给类的某私有变量 ... End Property
Public Property Get 属性名(参数1 As 类型1, 参数2 As 类型2,...,参数n) As 返回类型
...
colwidth=类的某私有变量的值 '将类的私有变量的值赋给属性
...
End PropertyPublic Property Let 属性名(参数1 As 类型1, 参数2 As 类型2,...,参数n,参数n+1 As 类型n+1)
...
类的某私有变量=参数n+1 '将最后一个参数的值赋给类的某私有变量
...
End Property