code:

---

function FadeToBlack($color, $level)

	Dim $B, $G, $R
	$B=$color/65536
	$G=($color mod 65536)/256
	$R=$color-($B*65536)-($G*256)
	
	$B = IIF($B<$level), $B, $B-17)
	$G = IIF($G<$level), $G, $G-17)
	$R = IIF($R<$level), $R, $R-17) 

	$B = IIF($B<0), 0, $B)
	$G = IIF($G<0), 0, $G)
	$R = IIF($R<0), 0, $R) 
	
	return ($B*65536)+($G*256)+$R

endfunction

---