TYPE MemInfo 
  MemSize AS LONG
  MemPtr AS LONG
  MemLock AS LONG
END TYPE

Private Declare Sub GetMemory Lib "vbex32.dll" Alias _
        "VBLOCKMEMORY" (ptrMemInfo As MemInfo)
 
Public TYPE MemInfo 
      MemSize AS LONG
      MemPtr AS LONG
      MemLock AS LONG
END TYPE
 
Public myMemoryKeys() AS MemInfo 
 
Public Sub GetMemory(Byval nSize As Long)
     Dim newMemS As MemInfo
     Static n As Long
 
     newMemS.Size = nSize
     GetMemory newMemS
 
     If newMemS.MemPtr > 0 Then
           n = n + 1
           ReDim Preserve myMemoryKeys(n)
           myMemoryKeys(n) = newMemS
     End If
End Sub