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

Basic Extensions.