用vb代码动态增加对象