GefObjects.AddActiveXControl (method)

Creates and returns a new object in this container.
Syntax: Set GefObject = object.AddActiveXControl ( ClassType, Left, Top, Width, Height )
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.


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