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 = &amp;H8000
Private Const GMEM_LOCKCOUNT = &amp;HFF
Private Const GMEM_MODIFY = &amp;H80
Private Const GMEM_MOVEABLE = &amp;H2
Private Const GMEM_NOCOMPACT = &amp;H10
Private Const GMEM_NODISCARD = &amp;H20
Private Const GMEM_NOT_BANKED = &a