GefApplication.ActiveScreen (read-only property)

Gets the currently active screen.
Syntax: Set GefScreen = object.ActiveScreen
Description: If there is no current active screen, this property returns Nothing.

Example:

Sub Application_ActiveScreen()
    
    Dim oCimApp As GefApplication
    Dim oCimScr As GefScreen
    Set oCimApp = CimGetScreen.Application
    Set oCimScr = oCimApp.ActiveScreen
    If oCimScr Is Nothing Then
        MsgBox "No screen active."
    Else
        MsgBox oCimScr.Name
    End If
    
End Sub