code:

---

function FadeToBlack($c, $)

 dim $b, $g, $r

 $b = $c / 65536
 $g = ($c & &FF00) / 256
 $r = $c & &FF

 $FadeToBlack = iif($b>$, $, $b) * 65536 + iif($g>$, $, $g) * 256 + IIF($r>$, $, $r)

endfunction  

---