简单转换一下 PNG-->ICO 也可以
** form.PngToIco(pngPath)
LPARAMETERS pngPath
png = FILETOSTR(pngPath)
ico = 0h000001000100+REPLICATE(0h00,8)+BINTOC(LEN(png),"4rs")+0h16000000+png
icon = FORCEEXT(pngPath,"ico")
STRTOFILE(ico,icon)
RETURN icon
** CommandButton.Init
this.Picture = thisform.PngToIco(this.Picture)