FUNCTION ITEM(eIndex)

    NODEFAULT

    IF VARTYPE(eIndex) = 'C'
        LOCAL eIndex
        eIndex = ASCAN(THIS.OBJECTS, eIndex, 1, -1, 1, 15) && ASCAN with case Insensitive
        IF !EMPTY(eIndex)
            RETURN THIS.OBJECTS[eIndex, 2]
        ELSE
            RETURN DODEFAULT(eIndex)
        ENDIF
    ELSE
        RETURN THIS.OBJECTS[eIndex, 2]
    ENDIF
RETURN