GefObjects.AddLicensedActiveXControl (method)

Creates and returns a new object in this container.
Syntax: Set GefObject = object.AddLicensedActiveXControl ( ClassType, LicenseKey, Left, Top, Width, Height )
ClassType As String -
LicenseKey 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. The LicenseKey value must be obtained from the control vendor.


Sub GefObjects_AddLicActiveXControl()
    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.AddLicensedActiveXControl("CIMGRAPH.CimGraphCtrl.1", "MyLicKey", _
         120 * 20, 120 * 20, 120 * 20, 120 * 20)
    oCimScr.Refresh False
End Sub