Procedure ARGB(Red, Green, Blue, Alpha = 255) ProcedureReturn Alpha << 24 | Red << 16 | Green << 8 | Blue EndProcedure