What's wrong with LoadPicture? Please Help

Hi there,

I encountered a problem when i work with an activex project. I want to load an icon from file and save it to a binary stream, here is what i did:
Dim objPic as stdPicture
set objPic = LoadPicture("c:\test.ico")
...
and save it to:
propbag.writeproperty "Picture", objPic
...
and later i retrieve it from the property bag:
set objPic = propbag.ReadProperty "Picture", nothing
...

The problem is this code cannot work for 16X16 icons(all black) or icons with more than 16 colors. I guess something is wrong with LoadPicture function but I tried something in vbaccelerator but still cannot get it right.

Thanks in advance

Xun