Function ARGB(a=255,r=0,g=0,b=0) Return (((a) Shl 24) + ((r) Shl 16) + ((g) Shl 8) + (b)) End Function