Malcolm,

I don't know if it would work or not, but perhaps using the PictureVal property instead of writing it out to a file:

#define CF_DIB 8
if oDataObject.GetFormat( 2 )
  this.PictureVal = oDataObject.GetData( CF_DIB )
endif

That may still require the header someone else (Herman, I believe) referred to, but it's worth a shot.

HTH,
Chad

>Assuming my drop target is an image control:
>
>

>#define CF_DIB 8
>if oDataObject.GetFormat( 2 )
>  lcData = oDataObject.GetData( CF_DIB )
>  strtofile( lcData, "myimage.dib" )
>  this.picture = "myimage.dib"
>endif
>

>
>I am not able to display the myimage.dib file in MS Paint either. I'm sure I'm missing another small detail. Does anyone see it?
>
>Thank you,
>
>Malcolm