GefChildScreens.Count (read-only property)

Gets the number of objects in the collection.

Syntax:

long = object.Count

Description:

Gets the number of child screens that are open.

Example:

Sub GefChildScreens_Count()

Dim oCimScr As GefScreen

    Dim oCimChildScrs As
GefChildScreens

    Dim oCimOpenScr As
GefScreen

Dim nScrsCount As Integer

    Dim oCimParentScrs As
GefScreens

Set oCimScr = CimGetScreen

    Set oCimOpenScr =
oCimScr.Application.Screens.DialogPopup( _

        CimGetScreen,
"SourceScr.Cim")

    Set oCimParentScrs =
oCimOpenScr.Parent

    For nScrsCount = 0 To
oCimParentScrs.Item(0).ChildScreens.Count - 1

        Set
oCimChildScrs =
oCimParentScrs.Item(0).ChildScreens(nScrsCount)

        MsgBox
"Screen " & nScrsCount + 1 & " is " & _

            oCimChildScrs.Name
    Next nScrsCount

End Sub