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