local m.yrep m.yrep=addbs(justpath(sys(16,1))) &&start folder if !directory (m.yrep+"images") &&images created folder md (m.yrep+"images") endi local m.xpict,imgObj m.xpict=getpict() if empty(m.xpict) return .f. endi imgObj = CreateObject("ImageMagickObject.MagickImage.1") = imgObj.Convert(xpict, "-resize", "100x100!", "images\thumb.png") = imgObj.Convert(xpict, "-resize", "200x200!", "-type", "Grayscale", "-depth", "8", "images\thumb_grayscale.png") = imgObj.Convert(xpict,"-negate", "-resize", "300x250!", "images\thumb_negate.png") = imgObj.montage("-label","myShadow",xpict,':','-background','none','-geometry','+15+15','-shadow', 'images\shadow.png') = imgObj.montage (xpict,"-background","Gold","-flatten","-frame","6","-geometry","'64x64+10+10>'","-size","16x16","-bordercolor","LimeGreen","-background","SeaGreen","images\ymontage_texture_border.gif") = imgObj.convert(xpict,":","-raise","12","images\yraise.gif") imgObj=nullto work with images,can receive all IM command lines as