Option Explicit
Private Declare Function GetDIBits Lib "gdi32.dll" ( _
     ByVal aHDC As Long, _
     ByVal hBitmap As Long, _
     ByVal nStartScan As Long, _
     ByVal nNumScans As Long, _
     ByRef lpBits As Any, _
     ByRef lpBI As Any, _
     ByVal wUsage As Long) As Long
Private Declare Function GetObject Lib "gdi32.dll" Alias "GetObjectA" ( _
     ByVal hObject As Long, _
     ByVal nCount As Long, _
     ByRef lpObject As Any) As Long
Private Declare Function CreateDIBitmap Lib "gdi32.dll" ( _
     ByVal hDC As Long, _
     ByRef lpInfoHeader As Any, _
     ByVal dwUsage As Long, _
     ByRef lpInitBits As Any, _
     ByRef lpInitInfo As Any, _
     ByVal wUsage As Long) As Long
 
Public Function FI2hBMP(ByVal FreeImagePointer As Long, ByVal CompatibleDC As _
  Long) As Long
Dim FIB As Long
FIB = FreeImagePointer
 
FI2hBMP = CreateDIBitmap(CompatibleDC, ByVal FreeImage_GetInfoHeader(FIB), _
    CBM_INIT, ByVal FreeImage_GetBits(FIB), ByVal FreeImage_GetInfo(FIB), _
    DIB_RGB_COLORS)
End Function
 
Public Function hBMP2FI(ByVal hBMPpointer As Long, CompatibleDC As Long) As Long
Dim hbmp As Long
hbmp = hBMPpointer
Dim bm As BITMAP
GetObject hbmp, Len(bm), bm
Dim FIB As Long
FIB = FreeImage_Allocate(bm.bmWidth, bm.bmHeight, bm.bmBitsPixel)
GetDIBits CompatibleDC, hbmp, 0, FreeImage_GetHeight(FIB), ByVal _
  FreeImage_GetBits(FIB), _
    ByVal FreeImage_GetInfo(FIB), DIB_RGB_COLORS
hBMP2FI = FIB
End Function