Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

Option Explicit

Private Declare Function CreateStreamOnHGlobal Lib "ole32" ( _
   ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, _
   ppstm As IUnknown) As Long

Private Type GUID
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4( 7 ) As Byte
End Type

Private Declare Function OleLoadPicture Lib "olepro32" ( _
   ByVal pStream As IUnknown, ByVal lSize As Long, _
   ByVal fRunmode As Long, riid As GUID, ppvPic As IPictureDisp) As Long

Public Function LoadPictureUsingStream(bPicData() As Byte) As IPictureDisp
 Dim lResult As Long
 Dim oStream As IUnknown
 Dim IID_IDispatch As GUID
 
 lResult = CreateStreamOnHGlobal(VarPtr(bPicData(LBound(bPicData))),  0 , oStream)
 If lResult <  0  Then Exit Function
 
 With IID_IDispatch
    .Data1 = &H20400
    .Data4( 0 ) = &HC0
    .Data4( 7 ) = &H46
 End With
 lResult = OleLoadPicture(oStream, UBound(bPicData) - LBound(bPicData) +  1 ,  1 , _
                          IID_IDispatch, LoadPictureUsingStream)
End Function

Private Sub Command1_Click()
 Set Image1.Picture = LoadPictureUsingStream(LoadResData( 101 , "CUSTOM"))
End Sub