LOCAL m_activecoll
local lnColor, cfld
lnColor = rgb( 0, 0, 0 )
m_activecoll = thisform.GrdInvRes.ActiveColumn
IF m_activecoll # 0
  cfld = EVALUATE(FIELD(m_activecoll,"xtabresult"))
  IF TYPE("cfld")
     do case
        case cfld = 'NEG'
             lnColor = rgb( 255, 0, 0 )
        case cfld $ 'POS AFF'
             lnColor = rgb( 0, 255, 0 )
     endcase
  ENDIF
ENDIF
return lnColor