Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (Destination As Any, _ ByVal Length As Long, _ ByVal Fill As Byte)
FillMemory заполняет блок памяти некоторым значением.
FillMemory не возвращает значений.
' Инициализируем все элементы массива байтов значением 76. ' Также каждый символ 20-символьной строки заполняем символом "X" Dim bytearray(0 To 9) As Byte Dim bytestring As String Dim c As Integer ' Заполняем память в массиве bytearray() значением 76 FillMemory bytearray(0), 10, 76 ' Проверим For c = 0 To 9 Debug.Print bytearray(c); Next c ' Теперь заполним строку символом "X" ' Используем ByVal в этом случае bytestring = Space(20) FillMemory ByVal bytestring, 20, Asc("X") ' Проверим Debug.Print bytestring