Hi Marco,

>How should i check if to object refrence refer to the same object (its names are not unique).

   Function XCompObj
   LParameter toRef1, toRef2
   
      *-- Are their properties identical?
      *     CompObj(): Jeffery Donnici (75460,437)
      *     CompObj is several times faster than 
      *     all the rest of the code in the IF.
      Local llReturn
      llReturn = CompObj( toRef1, toRef2 )
      
      If llReturn
      
         *-- Find a unique ID
         Local lcID
         lcID = Sys(2015)
         Do While toRef1.Comment == lcID
            lcID = Sys(2015)
         Enddo
         
         *-- compare objects
         Local lcOldVal
         lcOldVal = toRef1.Comment
         toRef1.Comment = lcID
         llReturn = CompObj( toRef1, toRef2 )
         toRef1.Comment = lcOldVal
         
      Endif
      
      *-- return .t. if objects are identical
      Return llReturn
      
   Endfunc

Christof