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.


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 " & _
            Next ObjLoop
            MsgBox "There are no objects below " & oCimObj.Name
        End If
        MsgBox "There are no objects under this one"
    End If
End Sub