Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
CopyMemory копирует блок памяти из одного места в другой с использованием указателей. Очень удобная функция для копирования массивов.
CopyMemory не возвращает значений
' Переместим содержимое массива в другой массив ' После перемещения исходный массив будут пустым Dim source(0 To 9) As Byte Dim target(0 To 9) As Byte Dim c As Integer ' счетчик ' Заполним первый массив некоторыми значениями For c = 0 To 9 source(c) = c Next c ' Переместим данные исходного массива в другой CopyMemory target(0), source(0), 10 ' Убеждаемся, что перемещение состоялось For c = 0 To 9 Debug.Print target(c); Next c