I am not shure if I got the hole deal. But, I can see some changes to be done like this:
oFOO="THIS." + loObject + ".array"
IF TYPE("oFOO") = "O"
wait window "Ops.. the object exists !" nowait
else
THIS.AddObject(loObject, lcObjectClass)
ENDIF
note: We have to test the string portion of oFOO
CLAUDIO
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20