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>