GefScreen.Overlay (method)

Opens a screen file and overlays it on this screen object.
Syntax: Boolean = object.Overlay ( FileName, Project )
FileName As String -
Optional Project As String -
Description: The Project parameter is used as the project to qualify any unqualified points on the screen.


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"
        MsgBox "The screen was not overlaid"
    End If
End Sub