vb中getobject函数