BitOr[BitShiftLeft[r,16], BitShiftLeft[g,8], b] where {r=0, g=255, b=0}