This step-by-step article describes how to manually add a run-time license to an ActiveX control that is dynamically created in Visual Basic .NET or in Visual Basic 2005. In Visual Basic version 6, you can manually add licenses to the license collection by using the Licenses.Add() method. For more information about what License.Add() does in Visual Basic 6, see the "References" section of this article.
In Visual Basic .NET or in Visual Basic 2005, the licenses collection no longer exists. You must embed the license information in the control.
This article assumes that the control that requires the run-time license is in MyProject.OCX and is named MyLicensedControl. MyProject.OCX is located in C:\Windows\System32.
Click Start, point to All Programs, point to Microsoft Visual Studio .NET or Microsoft Visual Studio 2005, point to Visual Studio .NET Tools or Visual Studio 2005 Tools, and then click Visual Studio .NET Command Prompt or Visual Studio 2005 Command Prompt.
To create the two interop assemblies that you must have, type the following command:
Determine and note the run-time license key for the control. For MyLicensedControl, the license key is "gnvlslnjskvlmlgnnimh".
In the Button Click Event method, paste the following code below Dim myControl As New AxMyProject.AxMyLicensedControl():
Dim f As System.Reflection.FieldInfo f = GetType(AxHost).GetField("licenseKey", _ Reflection.BindingFlags.NonPublic _ Or Reflection.BindingFlags.Instance) f.SetValue(myControl, "gnvlslnjskvlmlgnnimh")
This code inserts the run-time license into the control. It creates an instance of FieldInfo, which is part of the property bag OCXState. This property bag is full of specific ActiveX control information. In this case, you are obtaining the field licenseKey and setting it for myControl. You must do this for each instance of any ActiveX control that requires a run-time license.
Add the control to the form's Controls collection, and then show the control. To do this, you can use the following code:
Paste this code in the Button Click Event method, after "f.SetValue(myControl, "gnvlslnjskvlmlgnnimh")", and before the "End Sub" line.
NOTE: If the license is not added to the control and the license is required, Controls.Add will fail. Controls.Add runs the code that contains that license validation. When you try and run Controls.Add, you see the following error in debug mode:
An unhandled exception of type 'System.ComponentModel.LicenseException' occurred in system.windows.forms.dll Additional information: You do not have a license to use this ActiveX control.
Or, at run time, you may see the following similar error message:
An unhandled exception has occurred in your application. You do not have a license to use this ActiveX control.
Press F5 to run the project.
Click the button to add your ActiveX Control to the form.
IMPORTANT: Note the following about this operation:
You must add the license to every instance of every ActiveX control that requires a run-time license. For example, if you create a second instance of MyLicensedControl, you have to add the license to that instance also.
Make sure that you have the correct license key for your control. Determining the correct license key is specific to the control: For additional information about determining the key, click the article number below to view the article in the Microsoft Knowledge Base:
151771 LICREQST.EXE Requesting a License Key from an Object
Alternatively, you can use Licenses.Add for the control in Visual Basic 6 on a computer that has the license in the registry. Licenses.Add returns the run-time license that it added as a string; you can then use Debug.Print to obtain the license key.