HeapDestroy (Kernel32)

Usage

    Private Declare Function HeapCreate Lib "kernel32.dll" (ByVal flOptions As Integer, ByVal dwInitialSize As Integer, ByVal dwMaximumSize As Integer) As Integer
    Private Declare Function HeapDestroy Lib "kernel32" (ByVal hHeap As IntPtr) As Integer

        Dim hHeap As Integer
        hHeap = HeapCreate(0, 1024& * 1024, 0)
        HeapDestroy(hHeap)