Private Declare Function HeapCreate Lib "kernel32.dll" (ByVal Options As Integer, ByVal InitialSize As Integer, ByVal MaximumSize As Integer) As Integer Dim hHeap As Integer hHeap = HeapCreate(0, 4, 0)