GefObject.Screen (read-only property)

Gets the open screen in the application.
Syntax: Set GefScreen = object.Screen
Description: The GefScreens collection does not include the screens in the cache in CimView.

Example:

Sub GefObject_Screen()
    
    Dim oCimObj As GefObject
    Dim oCimScr As GefScreen
    
    Set oCimObj = CimGetObject
    Set oCimScr = oCimObj.Screen
    
    MsgBox "The current screen is " & oCimScr.FullName
    
End Sub