Private Declare Sub VBGetMemory 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
     VBGetMemory newMemS
 
     If newMemS.MemPtr > 0 Then
           n = n + 1
           ReDim Preserve myMemoryKeys(n)
           myMemoryKeys(n) = newMemS
     End If
End Sub