Function fadetext(itemName)
if (itemName)<>"" then inName=itemName
if (hex>0) then hex=hex-11 lbl1.Style("color") = "black" lbl1.Style("background-color") = "rgb(&hex& ,255,&hex&)" setTimeout("fadetext()", 50) else hex=255 lbl1.Style("background-color") = "rgb(255,255,255)" end if
end Function
.NET Development22
|