CimView (function)

Syntax GefApplication = CimView ( )
Description Returns the GefApplication Automation object representing the CimView application.
Status The extension can be used.
Example 

                Dim ViewApp As GefObjectModel.GefApplication
                Dim currentScreen As GefObjectModel.GefScreen
                Set ViewApp = CimView()
                Set currentScreen = ViewApp.ActiveScreen