GefScreen.Application (read-only property)

Gets the application object.
Syntax: Set GefApplication = object.Application
Description: The gets the application associated with the screen, either CimView or CimEdit



Example:

Sub GefScreen_Application()
    
    Dim oCimScr As GefScreen
    Dim oCimApp As GefApplication
    
    Set oCimScr = CimGetScreen()
    Set oCimApp = oCimScr.Application
    MsgBox "The application is " & """" & oCimApp.Name & """"
    
End Sub
See Also: Parent