>Function getwebcolor >Return Substr(Transform(GetColor(),'@0'),5)
>lcHexColor=Substr(Transform(lnColor,'@0'),5)