Dim i As Long
 Dim j As Long
 For i = 0 To 800
    For j = 0 To 800
        B1(2, i, j) = B2(2, i, j)
         B1(1, i, j) = B2(1, i, j)
         B1(0, i, j) = B2(0, i, j)
        
     Next j
 Next i
感觉这个地方十分耗时间，数组B1和B2是两个大小不一样的数组，B1的范围比B2大，用不了CopyMemory

谢谢