GefObjects.AddLinkContainer (method)

Creates and returns a new object in this container.

Syntax:

Set GefObject = object.AddLinkContainer ( FileName, ObjectName )

Parameters:

FileName As String -

ObjectName As String -

Description:

The AddLinkContainer method adds a new Link Container to the desired container object.

Example:

Sub GefObjects_AddLinkContainer()

    Dim oCimScr As GefScreen
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects

    Dim oCimLinkObj As
GefObject

Set oCimScr = CimGetScreen

    Set oCimObj =
oCimScr.Object

    Set oCimObjs =
oCimObj.Objects

    Set oCimLinkObj =
oCimObjs.AddLinkContainer("SourceScr.Cim", "LinkSource")

oCimLinkObj.Top = 200 * 20

    oCimLinkObj.Left = 200 *
20

oCimScr.Refresh False

End Sub