Sharpen [vRadius][, vX][, xY][, vWidth][, vHeight]
Set g = CreateObject("shotgraph.image")
file_name = "c:\files\image.jpg"
g.GetFileDimensions file_name,xsize,ysize
g.CreateImage xsize,ysize,256
g.ReadImage file_name,palette,0,0
g.Sharpen
g.JpegImage 95,0,"c:\newimage.gif"