关于变体数组的拷贝问题

我们知道可以用CopyMemory拷贝大数组:
CopyMemory ByVal VarPtr(Dest(0)), ByVal VarPtr(Src(0)), Ln
问题：如果源 Src是一个Variant型的数组(有些控件输出这种数据)，上面
的调用结果却是错的。 如变体果Src元素个数巨大，考虑运行效率，要求不能
用For循环将数据拷贝到一个新数组。请问高手如何解决这一问题？