ResourceBrowser.vbp sample error

[mjohn]

I Download VBCorLib_Src_2_3.zip,
when I run the ResourceBrowser.vbp in Examples\IO Examples\ResourceBrowser,
open ResourceBrowser.RES,
It raise error in below code in class ResBitmapDecoder.cls:


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Private Helpers
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function CreatePicture(ByRef Bytes() As Byte) As StdPicture
......
Call OleLoadPicture(Stream, cArray.GetLength(Bytes) + ByteCountOffset, True, UnkIID, Unk)

' Return it, casting to a StdPicture object.
Set CreatePicture = Unk
End Function

Can youn help me?

Thanks!