Sub SetSpriteAlpha(sprite, alpha)