GefObject.Objects (read-only property)

Gets the GefObjects collection representing the children of this object.
Syntax: Set GefObjects = object.Objects
Description: This property is only valid for container objects (GefObjectFrame, GefObjectFrameContainer, GefObjectGroup, GefObjectScreen).

If this property is not valid for a particular object type, it returns Nothing.

Example:

Sub GefObject_Objects()
    
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects
    Dim ObjCount As Integer
    Dim ObjLoop As Integer
    
    Set oCimObj = CimGetObject
    Set oCimObjs = oCimObj.Objects
    If Not oCimObjs Is Nothing Then
        ObjCount = oCimObjs.Count
        If ObjCount <> 0 Then
            For ObjLoop = 0 To ObjCount - 1
                MsgBox "Object " & ObjLoop & " is " & _
                    oCimObjs.Item(ObjLoop).Name
            Next ObjLoop
        Else
            MsgBox "There are no objects below " & oCimObj.Name
        End If
    Else
        MsgBox "There are no objects under this one"
    End If
    
End Sub