GefScreen.Visible (property)

Indicates whether the screen is visible.
Syntax: Boolean = object.Visible
object.Visible = Boolean
Description: The Visible property gets and sets the visiblility state of the screen.


Sub GefScreen_Visible()
    Dim oCimScr As GefScreen
    Set oCimScr = CimGetScreen
    oCimScr.Visible = False
    CimGetScreen.Refresh False
    MsgBox "The screen is now invisible, click ok to bring it make it visible"
    oCimScr.Visible = True
End Sub