GefObjects.AddLinkContainer (method)

Creates and returns a new object in this container.
Syntax: Set GefObject = object.AddLinkContainer ( FileName, ObjectName )
FileName As String -
ObjectName As String -
Description: The AddLinkContainer method adds a new Link Container to the desired container object.


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