vb自定义对象属性附值