Alias CreateFileA ( _ ByVal lpFileName As String, _ ByVal dwDesiredAccess As Long, _ ByVal dwShareMode As Long, _ ByVal lpSecurityAttributes As Long, _ ByVal dwCreationDisposition As Long, _ ByVal dwFlagsAndAttributes As Long, _ ByVal hTemplateFile As Long _ ) As Long Const GENERIC_READ = &H80000000 Const GENERIC_WRITE = &H40000000 Const FILE_SHARE_READ = &H1 Const FILE_SHARE_WRITE = &H2 Const OPEN_EXISTING = 3 Private Declare Function CreateFileMapping Lib kernel32 _ Alias CreateFileMappingA ( _ ByVal hFile As Long, _ ByVal lpSecurityAttributes As Long, _ ByVal flProtect As Long, _ ByVal dwMaximumSizeHigh As Long, _ ByVal dwMaximumSizeLow As Long, _ ByVal lpName As String _ ) As Long Const PAGE_NOACCESS = &H1 Const PAGE_READONLY = &H2 Const PAGE_READWRITE = &H4 Const PAGE_WRITECOPY = &H8 Const PAGE_EXECUTE = &H10 Const PAGE_EXECUTE_READ = &H20 Const PAGE_EXECUTE_READWRITE = &H40 Const PAGE_EXECUTE_WRITECOPY = &H80 Const PAGE_GUARD = &H100 Const PAGE_NOCACHE = &H200 Private Declare Function MapViewOfFile Lib kernel32 ( _ ByVal hFileMappingObject As Long, _ ByVal dwDesiredAccess As Long, _ ByVal dwFileOffsetHigh As Long, _ ByVal dwFileOffsetLow As Long, _ ByVal dwNumberOfBytesToMap As Long _ ) As Long Const SECTION_EXTEND_SIZE = &H10 Const SECTION_MAP_EXECUTE = &H8 Const SECTION_MAP_READ = &H4 Const SECTION_MAP_WRITE = &H2 Const SECTION_QUERY = &H1 Const FILE_MAP_COPY = SECTION_QUERY Const FILE_MAP_READ = SECTION_MAP_READ Const FILE_MAP_WRITE = SECTION_MAP_WRITE |