'MAKES OUTLINES OF THE ACTIVE FEATURE THEME TRANSPARENT

theView = av.GetActiveDoc
TheTheme=theView.GetActiveThemes.Get(0)
TheLegend=TheTheme.GetLegend

TheSymbols=TheLegend.GetSymbols

for each r in TheSymbols
  r.SetOutlined(False)
end

TheTheme.UpdateLegend