GefObjects.Count (read-only property)

Gets the number of objects in the collection.

Syntax:

long = object.Count

Description:

The Count property returns the number of objects in the collection.

Example:

Sub GefObjects_Count()

    Dim oCimScr As GefScreen
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects

    Set oCimScr = CimGetScreen

    Set oCimObj =
oCimScr.Object

    Set oCimObjs =
oCimObj.Objects

    MsgBox "The number of objects on the
screen is " & oCimObjs.Count

End Sub