GefObjects.AddActiveXControl (method)

Creates and returns a new object in this container.

Syntax:

Set GefObject = object.AddActiveXControl ( ClassType, Left, Top, Width, Height )

Parameters:

ClassType As String -

Optional Left As long -

Optional Top As long -

Optional Width As long -

Optional Height As long -

Description:

The ClassType parameter can be found by inserting an OLE object into a CimEdit screen and looking at the Class Type field on the General property page.

Example:

Sub GefObjects_AddActiveXControl()

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

    Dim oCimActiveXObj As
GefObject

Set oCimScr = CimGetScreen

    Set oCimObj =
oCimScr.Object

    Set oCimObjs =
oCimObj.Objects

    Set oCimActiveXObj =
oCimObjs.AddActiveXControl("CIMGRAPH.CimGraphCtrl.1",_

         120 *
20, 120 * 20, 120 * 20, 120 * 20)

oCimScr.Refresh False

End Sub