Sub SetSpriteColorMod(sprite, color)