Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)
ZeroMemory не возвращает значений
' Инициализируем все элементы массива значением 0 Dim bytearray(0 To 9) as Byte ' массив из 10 элементов Dim c As Integer ' счетчик ' Заполним ячейки памяти массива нулями ZeroMemory bytearray(0), 10 ' Проверяем For c = 0 To 9 Debug.Print bytearray(c); Next c