If your destination array is a dynamic array, then you can simply copy the source array to destination using a simple assingment. Otherwise, you can use the CopyMemory function to copy an array to a fixed array.
___
[tt]
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim A(5) As Long, N As Long
Dim B() As Long 'dynamic array
Dim C(5) As Long 'fixed array
'fill the source array
For N = 0 To 5
A(N) = N
Next
'copy A to B
B = A
'copy A to C
CopyMemory C(0), A(0), 24 'size of the array
End Sub[/tt]
___
See also thread711-763982.