.RemoveObject('cntProperty') ** Determine which property container to add DO CASE CASE ThisForm.cClassType='E' AND ThisForm.cCategory= 'R' cClassName = 'cntProperty_RE' CASE ThisForm.cClassType='E' cClassName = 'cntProperty_E' CASE ThisForm.cClassType='L' cClassName = 'cntProperty_L' CASE ThisForm.cClassType='M' cClassName = 'cntProperty_M' CASE ThisForm.cClassType='P' cClassName = 'cntProperty_P' CASE ThisForm.cClassType='S' cClassName = 'cntProperty_S' CASE ThisForm.cClassType='C' AND ThisForm.cCardType = 'S' cClassName = 'cntProperty_B' CASE ThisForm.cClassType='C' cClassName = 'cntProperty_C' ENDCASE ** Add the new property container .AddObject('cntProperty', cClassName)