Mem As Long) As Long
Private Declare Function GlobalReAlloc Lib "kernel32" (ByVal hMem As Long,
 ByVal dwBytes As Long, ByVal wFlags As Long) As Long
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As
 Long
Private Const GMEM_DDESHARE = &amp;H2000
Private Const GMEM_DISCARDABLE = &amp;H100
Private Const GMEM_DISCARDED = &amp;H4000
Private Const GMEM_FIXED = &amp;H0
Private Const GMEM_INVALID_HANDLE = &a