description的应用

直接通过description来实现,并且可以通过子类的方法（若是多个对象获取的属性值均相同）：

'定义一个抽象对象
Dim a
'定义一个抽象对象的子对象
Dim b
'定义一个子对象总个数
Dim c
'定义一个实际的当前对象
Dim d
'利用description创建一个对象
Set a=description.Create
'创建当前对象的一种属性
a("Class Name").value="RadioButton"
'给当前对象创造子对象
b=window("").ChildObjects(a)
c=b.count
d=randomnumber.Value(0,c-1)
b(d).set