GefChildScreens (object)

Represents the child screens in the application.

Description:

The child screens are captive windows to the parent.

Example:

Sub GefChildScreens_Item()

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

Properties:

Methods: