Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, _
ByVal ByteLen As Long)

'Kopier a( ) till b ( ) som är av samma DataTyp
' N är hur många poster/fack du vill kopiera

CopyMemory b( 0 ) , a ( 0 ) , N * Len(a( 0 ))