Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
sub aaa()
  CopyMemory Arr1(10), Arr2(0), 5
end if

以上代码在vb6.0 可以通过，它的作用是将数组arr2 的5个元素追加到数组ARR1的第10个元素之后，实现数组的合并。
但在上提示错误：
  错误    33  “Declare”语句中不支持“As Any”

  我将声明行改成
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal lpvDest() As Byte, ByVal lpvSource() As Byte, ByVal cbCopy As Integer)
  结果下面 CopyMemory Arr1(10), Arr2(0), 5 行又提示错误：
错误 34      类型“Byte”的值无法转换为“Byte 的 1 维数组”。
不知道这段代码在中该怎么改，请高手指点。