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

Obsolete basic extensions.