怎么 复制 对象数组

如何 复制 对象数组
一个函数，返回一个对象数组，如下
public function FunA(参数列表) as newObject()
  '函数体内计算，并得到一个NewObject对象数组ObjctB()

end function

如何将ObjctB()数组传给FunA返回？

有两个问题：
1。FunA是函数，而且有参数，不能用FunA(0),FunA(1)这样的形式来访问数组
2。如何把ObjctB()数组复制给FunA? CopyMemory搞不定啊

[解决办法]
FunA(参数列表)(0)
FunA(参数列表)(1)

不过建议
public function FunA(参数列表) as variant

dim tmp as variant
dim x as newObject

tmp = FunA(参数列表)
set x = FunA(0)
call x.abc()


[解决办法]

VB code

[code=VB]public function FunA(参数列表) as newObject()   '函数体内计算，并得到一个NewObject对象数组ObjctB()    FunA=ObjctBend function dim myObj as objectdim objListdim i as longobj=FunA(参数列表)for i=0 to ubound(objlist)    set myobj=objlist(i)next
[解决办法]
探讨

用set给对象赋值时VB到底私下做了一些什么操作？