image - バイト配列から IPictureDisp

Question

リソース ディクショナリにイメージがあり、SetMenuBitMaps API を使用してメニューのアイコンとして配置したいので、リソース ディクショナリにイメージのバイト配列があります。バイトを IPictureDisp に変換するにはどうすればよいですか? 私はこれを見つけました ：

      Private Declare Function CreateStreamOnHGlobal Lib "ole32.dll" (ByRef hGlobal As Any, ByVal fDeleteOnResume As Long, ByRef ppstr As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32.dll" (ByVal lpStream As IUnknown, ByVal lSize As Long, ByVal fRunMode As Long, ByRef riid As GUID, ByRef lplpObj As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpsz As Long, ByRef pclsid As GUID) As Long
Private Const SIPICTURE As String = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Public Function PictureFromArray(ByRef b() As Byte) As IPicture
      On Error GoTo errorhandler

      Dim istrm As IUnknown
      Dim tGuid As GUID

      If Not CreateStreamOnHGlobal(b(LBound(b)), False, istrm) Then
        CLSIDFromString StrPtr(SIPICTURE), tGuid
        OleLoadPicture istrm, UBound(b) - LBound(b) + 1, False, tGuid, PictureFromArray
      End If

      Set istrm = Nothing
      Exit Function
    errorhandler:
      Debug.Print "Could not convert to IPicture!"
    End Function

しかし、それは私にとってはうまくいきません。常に「Nothing」を返します。