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 |