同类型怎么整体 数组给数组赋值

同类型如何整体 数组给数组赋值
请教高手
比如有2个数组
Dim Array1(9) AS Byte
Dim Array2(99) As Byte

有什么方法可以连续10次 将 Array1 数组的值顺序的赋值到Array2的数组中
不要FOR等等的循环语句逐条赋值，要整体赋值的方法


[解决办法]
直接赋值是没办法了
用指针也要用到FOR循环啊
[解决办法]
用API CopyMemory
[解决办法]