GefObject.Select (method)

Selects this object.
Syntax: object.Select Replace
Optional Replace As Boolean -
Description: Selects this object. The object must be an immediate child of the screen. If bReplace is True the object becomes the new selection. If bReplace is False the object is added to the current selection. The default is True.

In CimView, only one object can be selected at a time and it must be an action object. If no objects can be selected, the selection is emptied.


Sub SmartObject()
    Dim oCimScr As GefScreen
    Dim nI As Integer
    Set oCimScr = CimGetScreen
    For nI = 0 To oCimScr.object.Objects.Count - 1
        oCimObj.Container.Objects.Item(nI).Select False
    Next nI
End Sub