for i=1 to myheight
			for j=1 to mywidth
				k=k+1
				argb=hex(argbdata(k))
					set pixel(j,i)=new color
					with pixel(j,i)
						.argb=toten(argb)
						.alpha=toten(mid(argb,1,2))
						.red=toten(mid(argb,3,2))
						.green=toten(mid(argb,5,2))
						.blue=toten(mid(argb,7,2))
					end with
			next
		next
复制代码

class color
	public argb
	public red
	public green
	public blue
	public alpha
end class
复制代码