GefScreen.Overlay (method)

Opens a screen file and overlays it on this screen object.

Syntax:

Boolean = object.Overlay ( FileName, Project )

Parameters:

FileName As String -

Optional Project As String -

Description:

The Project parameter is used as the project to qualify any unqualified points on the screen.

Example:

Sub GefScreen_Overlay()

    Dim oCimScr As GefScreen
    Dim strProject As String

    Set oCimScr = CimGetScreen

    strProject =
PointGet("$PROJECT")

    If oCimScr.Overlay("SourceScr.Cim",
strProject) = True Then

        MsgBox "The
Screen was overlaid"

Else

        MsgBox "The
screen was not overlaid"

End If

End Sub