Const FILE_BEGIN = 0
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long,
 lpFileSizeHigh As Any) As Long

' Resource functions:
Private Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA"
 (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As
 Long
' Missing from VB API declarations:
Private Const LOAD_LIBRARY_AS_DATAFILE = &amp;H2&amp;
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long)
 As Long
Private Declare Funct