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