>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...