DO CASE CASE lcName = 'FirstObj' loRef = This.FirstObj CASE lcName = 'NextObj' loRef = This.NextObj CASE lcName = 'OtherObj' loRef = This.OtherObj ENDCASEcan be replaced by simply:
loRef = EVAL( "This." + lcName )which avoids the necessity of hard-coding all the alternatives and is much more efficient too.