CimObject.Container (read-only property)

Obsolete Replaced by a GefObject
Syntax CimObject.Container
Description Returns a CimObject representing the container of this object.
Example 

                Sub ShowContainers
                  Dim obj As CimObject
                  Set obj = CimGetEvent().TriggerObject
                  mymsg$ = ""
                  While (Not obj Is Nothing)
                    mymsg$ = obj.Name + " " + mymsg$
                    Set obj = obj.Container
                  Wend
                  MsgBox mymsg$
                End Sub