>OK, I have just downloaded Alexander Golovlev's GDI+Image- class its download #18584 .
>
>With this at hand, all there is to do is:
>
>

>ogpInit    = newobject("gpinit", "gpImage.prg")  && <-- needed as a basis for gpImage
>ogpImage   = newobject("gpimage", "gpImage.prg")
>oIconBuddy = newobject("iconbuddy", "iconbuddy")
>
>*-- vars for the Icons
>oSmall     = null
>oLarge     = null
>
>*-- get the icons for an Excel-File
>? oIconBuddy.GetAssocIconPairObjects(getfile("xls"),@oLarge, @oSmall)
>
>*-- load the large Icon into the gpImage-Class
>? ogpImage.FromPicture(oLarge)
>
>*-- And save it as a bitmap
>? ogpImage.SaveAsBMP("XL_Large.bmp")
>
>*-- the small one too
>? ogpImage.FromPicture(oSmall)
>? ogpImage.SaveAsBMP("XL_Small.bmp")
>
>*-- And we're  D O N E ! !
>
>

Terrific! :)) But I'm leaving soon. May be I'd have some time at night, let's hope...