code:

---

function FadeToBlack($c, $)

	Dim $B, $G, $R
	$B=$c/65536
	$G=($c mod 65536)/256
	$R=$c-($B*65536)-($G*256)


	$B = IIF($B>$, $, $B)
	$G = IIF($G>$, $, $G)
	$R = IIF($R>$, $, $R)

	$FadeToBlack = $B*65536+$G*256+$R

endfunction  

---