cImage = Getpict('jpg') ConvertToGrayscale(cImage) Function ConvertToGrayscale(lcImage) Set Classlib To Home()+'ffc/_gdiplus.vcx' Additive oLogoImage = Newobject('gpBitmap',Home()+'ffc/_gdiplus.vcx') oLogoImage.CreateFromFile(lcImage) Private x,Y,nColor lnWidth = oLogoImage.imagewidth lnHeight = oLogoImage.imageheight For Y=0 To lnHeight-1 For x=0 To lnWidth-1 Wait Window Nowait "Width in pixels: "+Transform(x)+", height pixels :" +Transform(Y) nColor = oLogoImage.GetPixel(x,Y) oColor = Createobject("gpColor",nColor) oAvg = (oColor.Red+oColor.Green+oColor.Blue)/3 oColor.Set(Int(oAvg),Int(oAvg),Int(oAvg)) oLogoImage.SetPixel(x,Y,oColor.ARGB) Next Next oLogoImage.SaveToFile("c:\ex.jpg","image/jpeg", "quality=100" ) Endfunc>Hi,