GefApplication.Screens (read-only property)

Gets the collection of open screens in the application.
Syntax: Set GefScreens = object.Screens
Description: In CimView, this collection does not include the screens in the cache.


Sub GefApplication_Screens()
    Dim oCimApp As GefApplication
    Dim oCimScrs As GefScreens
    Set oCimApp = CimGetScreen.Application
    Set oCimScrs = oCimApp.Screens
    MsgBox "There are currently " & oCimScrs.Count & " open."
    MsgBox "The first screen is " & oCimScrs.Item(0).Name
End Sub