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 |