GefScreens.Count (read-only property)

Gets the number of open screens.

Syntax:

long = object.Count

Description:

The Count property gets the number of open screens.

Example:

Sub GefScreens_Count()

    Dim oCimScr As GefScreen
    Dim oCimScrs As GefScreens

    Set oCimScr = CimGetScreen

    Set oCimScrs =
oCimScr.Parent

MsgBox "The number of screens is " & oCimScrs.Count

End Sub