>loParent = THIS
>llGotParent = .F.
>
>DO WHILE .T.
>  IF TYPE("loParent.PARENT") = "O"
>     loParent = loParent.PARENT
>     llGotParent = .T.
>  ELSE
>     *-- Top most parent
>     EXIT
>  ENDIF
>ENDDO
>
>IF llGotParent
>  ?loParent.NAME
>ENDIF
>