#include gpImage.h If Not "gpImage" $ Set("Procedure") Set Procedure To gpImage Additive EndIf gdip = CreateObject("gpInit") img = CreateObject("gpImage") lcFile = GETPICT() img.Load(lcFile) lcDestFile = "_" + JUSTSTEM(lcFile) img.SaveAsJPEG(lcDestFile) img.SaveAsTIFF(lcDestFile) img.SaveAsBMP(lcDestFile) img.SaveAsGIF(lcDestFile) img.SaveAsPNG(lcDestFile) img = NULL gdip = NULLYou can download GPIMAGE from UT downloads or an enhanced version from this link