Hi Bo,

>Never gets released.

Right you are! The following code should take care of this:

Declare Long ReleaseStgMedium in ole32.Dll String pmedium
ReleaseStgMedium( BinToC(4,"RS")+BinToC(oStream,"RS")+BinToC(0,"RS") )