Use the Template/Item property to get/set properties / fields / parameters, invoke methods of the hosting /NET framework Value, using the x-script code. The Item property does exactly the same thing as Template call, excepts that it returns the TemplateResult property. For instance, using the Template/Item property you can change the hosting control's background color, add nodes, and so on. Prior to Template/Item call, you can invoke the SetTemplateDef to define values from your code to Template's code ( TemplateDef variables ).

in VB/NET under the .NET Framework, you use a code like follows to add nodes to a TreeView control:

With TreeView1
    With .Nodes.Add("Root 1")
        .Nodes.Add("Child 1")
        With .Nodes.Add("Child 2")
            .Nodes.Add("Sub-Child 2.1")
            .Nodes.Add("Sub-Child 2.2")
            .Nodes.Add("Sub-Child 2.3")
            .Expand()
        End With
        .Nodes.Add("Child 3")
        .Expand()
    End With
    With .Nodes.Add("Root 2")
        .Nodes.Add("Child 1")
        .Nodes.Add("Child 2")
        .Nodes.Add("Child 3")
    End With
End With

while on VB using the NETHost control you should use a code like:

With NETHost1
    .AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
    .AssemblyName = "System.Windows.Forms.TreeView"
    With .Host
        With .Item("Nodes.Add(`Root 1`)")
            .Template = "Nodes.Add(`Child 1`)"
            With .Item("Nodes.Add(`Child 2`)")
                .Template = "Nodes.Add(`Sub-Child 2.1`)"
                .Template = "Nodes.Add(`Sub-Child 2.2`)"
                .Template = "Nodes.Add(`Sub-Child 2.3`)"
                .Template = "Expand()"
            End With
            .Template = "Nodes.Add(`Child 3`)"
            .Template = "Expand()"
        End With
        With .Item("Nodes.Add(`Root 2`)")
            .Template = "Nodes.Add(`Child 1`)"
            .Template = "Nodes.Add(`Child 2`)"
            .Template = "Nodes.Add(`Child 3`)"
        End With
    End With
End With

The Template / x-script is composed by lines of instructions. Instructions are separated by "\r\n" ( new line characters ) or ";" character. The TemplateThrowError property specifies whether the control fires an exception/error when the Template call fails. The TemplateError / TemplateException gets the error if the Template calls fails. The TemplateResult property returns the result of the last instruction into a Template call, as a NETObjectTemplate object.

An x-script instruction/line can be one of the following:

• Dim variable[, variable, ...] declares the variables in the context. Multiple variables are separated by commas. The SetTemplateDef method can declare new variables to be available for the main context. ( Sample: Dim h, h1, h2 )
• variable = [object.][property/method( arguments ).]property/method( arguments ) assigns the result of the property/method call to the variable. ( Sample: h = Nodes.Add(`Node`) )
• [object.][property/method( arguments ).]property( arguments ) = value assigns the value to the property. ( Sample: Nodes.Add(`Node`).BackColor = RGB(255,0,0) )
• [object.][property/method( arguments ).]property/method( arguments ) invokes the property/method. ( Sample: Nodes.Add(`Node`) )
• {context } delimits the object's context. The properties/fields or methods called between { and } are related to the last object returned by the property/method prior to { declaration. (Sample: Nodes{Add(`Child 1`);Add(`Child 2`)} )
• . delimits the object than its property or method. (Sample: Nodes.Add(`Element`), or Nodes.Add(`Element`) and Nodes{Add(`Element`)} are equivalents )

where

• variable is the name of a variable declared with Dim command or previously defined using the SetTemplateDef method.
• property is the name of a property/field of the current object in the current context.
• method is the name of a method of the current object in the current context.
• arguments include constants and/or variables and/or property/method calls separated by comma character.
• object can be a variable of an Object type, Me or CreateObject call.

The x-script uses constant expressions as follows:

• boolean expression with possible values as True or False. The True value is equivalent with -1, while False with 0. (Sample: Visible = False )
• numeric expression may starts with 0x which indicates a hexa decimal representation, else it should starts with digit, or +/- followed by a digit, and . is the decimal separator. Sample: 13 indicates the integer 13, or 12.45 indicates the double expression 12,45. ( Sample: BackColor = 0xFF0000 )
• date expression is delimited by # character in the format #mm/dd/yyyy hh:mm:ss#. Sample: #31/12/1971# indicates the December 31, 1971 ( Sample: FirstVisibleDate = #1/1/2001# )
• string expression is delimited by " or ` characters. If using the ` character, please make sure that it is different than ' which allows adding comments inline. Sample: "text" or `text` indicates the string text, while the ' text , specifies the comment text. ( Sample: Text = "caption" )

Also , the template or x-script code supports general functions as follows:

• Me property indicates the original object, and it is defined as a predefined variable.  ( Sample: Me.Nodes.Add(`Root 1`) )
• RGB(R,G,B) property retrieves an RGB value, where the R, G, B are byte values that indicates the Red Green Blue bytes for the color being specified. ( Sample: Nodes.Add(`Root 1`).BackColor = RGB(255,0,0) )
• LoadPicture(file) property loads a picture from a file and returns a Picture object required by the picture properties. (Sample: BackgroundImage = LoadPicture(`C:\exontrol\images\auction.gif`)
• CreateObject(assemblyQualifiedName) property creates an instance of the specified type using that type's default constructor. The assemblyQualifiedName indicates the assembly-qualified name of the type to get. See AssemblyQualifiedName. If the type is in the currently executing assembly or in Mscorlib.dll, it is sufficient to supply the type name qualified by its namespace. ( Sample: "CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text = `Page`;UseVisualStyleBackColor = True}" )

The Template/x-script syntax in BNF notation is defined like follows:

<x-script> := <lines>
<lines> := <line>[<eol> <lines>] | <block>
<block> := <call> [<eol>] { [<eol>] <lines> [<eol>] } [<eol>]
<eol> := ";" | "\r\n"
<line> := <dim> | <createobject> | <call> | <set> | <comment>
<dim> := "DIM" <variables>
<variables> := <variable> [, <variables>]
<variable> := "ME" | <identifier>
<createobject> := "CREATEOBJECT(`"<type>"`)"
<call> := <variable> | <property> | <variable>"."<property> | <createobject>"."<property>
<property> := [<property>"."]<identifier>["("<parameters>")"]
<set> := <call> "=" <value>
<property> := <identifier> | <identifier>"("[<parameters>]")"
<parameters> := <value> [","<parameters>]
<value> := <boolean> | <number> | <color> | <date> | <string> | <createobject> | <call>
<boolean> := "TRUE" | "FALSE"
<number> := "0X"<hexa> | ["-"]<integer>["."<integer>]
<digit10> := 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9
<digit16> := <digit10> | A | B | C | D | E | F
<integer> := <digit10>[<integer>]
<hexa> := <digit16>[<hexa>]
<color> := "RGB("<integer>","<integer>","<integer>")"
<date> := "#"<integer>"/"<integer>"/"<integer>" "[<integer>":"<integer>":"<integer>"]"#"
<string> := '"'<text>'"' | "`"<text>"`"
<comment> := "'"<text>

where:

<identifier> indicates an identifier of the variable, property or method, and should start with a letter.
<type> indicates the type the CreateObject function creates, as the assembly-qualified name of the type to create.
<text> any string of characters

The following samples shows how you can use the Item property.

VBA (MS Access, Excell...)

With NETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		With .Item("Nodes.Add(`Root 1`)")
			Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			With .Item("Nodes.Add(`Child 2`)")
				Set var_NETHostObject1 = .Item("Nodes.Add(`Sub-Child 2.1`)")
				Set var_NETHostObject2 = .Item("Nodes.Add(`Sub-Child 2.2`)")
				Set var_NETHostObject3 = .Item("Nodes.Add(`Sub-Child 2.3`)")
				Set var_Object = .Item("Expand()")
			End With
			Set var_NETHostObject4 = .Item("Nodes.Add(`Child 3`)")
			Set var_Object1 = .Item("Expand()")
		End With
		With .Item("Nodes.Add(`Root 2`)")
			Set var_NETHostObject5 = .Item("Nodes.Add(`Child 1`)")
			Set var_NETHostObject6 = .Item("Nodes.Add(`Child 2`)")
			Set var_NETHostObject7 = .Item("Nodes.Add(`Child 3`)")
		End With
	End With
End With

VB6

With NETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		With .Item("Nodes.Add(`Root 1`)")
			Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			With .Item("Nodes.Add(`Child 2`)")
				Set var_NETHostObject1 = .Item("Nodes.Add(`Sub-Child 2.1`)")
				Set var_NETHostObject2 = .Item("Nodes.Add(`Sub-Child 2.2`)")
				Set var_NETHostObject3 = .Item("Nodes.Add(`Sub-Child 2.3`)")
				Set var_Object = .Item("Expand()")
			End With
			Set var_NETHostObject4 = .Item("Nodes.Add(`Child 3`)")
			Set var_Object1 = .Item("Expand()")
		End With
		With .Item("Nodes.Add(`Root 2`)")
			Set var_NETHostObject5 = .Item("Nodes.Add(`Child 1`)")
			Set var_NETHostObject6 = .Item("Nodes.Add(`Child 2`)")
			Set var_NETHostObject7 = .Item("Nodes.Add(`Child 3`)")
		End With
	End With
End With

VB.NET

Dim var_NETHostObject,var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7,var_Object,var_Object1
With Exnethost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		With .Item("Nodes.Add(`Root 1`)")
			var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			With .Item("Nodes.Add(`Child 2`)")
				var_NETHostObject1 = .Item("Nodes.Add(`Sub-Child 2.1`)")
				var_NETHostObject2 = .Item("Nodes.Add(`Sub-Child 2.2`)")
				var_NETHostObject3 = .Item("Nodes.Add(`Sub-Child 2.3`)")
				var_Object = .Item("Expand()")
			End With
			var_NETHostObject4 = .Item("Nodes.Add(`Child 3`)")
			var_Object1 = .Item("Expand()")
		End With
		With .Item("Nodes.Add(`Root 2`)")
			var_NETHostObject5 = .Item("Nodes.Add(`Child 1`)")
			var_NETHostObject6 = .Item("Nodes.Add(`Child 2`)")
			var_NETHostObject7 = .Item("Nodes.Add(`Child 3`)")
		End With
	End With
End With

VB.NET for /COM

Dim var_NETHostObject,var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7,var_Object,var_Object1
With AxNETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		With .Item("Nodes.Add(`Root 1`)")
			var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			With .Item("Nodes.Add(`Child 2`)")
				var_NETHostObject1 = .Item("Nodes.Add(`Sub-Child 2.1`)")
				var_NETHostObject2 = .Item("Nodes.Add(`Sub-Child 2.2`)")
				var_NETHostObject3 = .Item("Nodes.Add(`Sub-Child 2.3`)")
				var_Object = .Item("Expand()")
			End With
			var_NETHostObject4 = .Item("Nodes.Add(`Child 3`)")
			var_Object1 = .Item("Expand()")
		End With
		With .Item("Nodes.Add(`Root 2`)")
			var_NETHostObject5 = .Item("Nodes.Add(`Child 1`)")
			var_NETHostObject6 = .Item("Nodes.Add(`Child 2`)")
			var_NETHostObject7 = .Item("Nodes.Add(`Child 3`)")
		End With
	End With
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'exontrol_NETHost' for the library: 'Exontrol NETHost ActiveX Component'

	#import <exontrol.NETHost.tlb>
*/
exontrol_NETHost::INETHostCtrlPtr spNETHost1 = GetDlgItem(IDC_NETHOST1)->GetControlUnknown();
spNETHost1->PutAssemblyLocation(L"C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll");
spNETHost1->PutAssemblyName(L"System.Windows.Forms.TreeView");
exontrol_NETHost::INETHostObjectPtr var_NETHostObject = spNETHost1->GetHost();
	exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject1 = var_NETHostObject->GetItem(L"Nodes.Add(`Root 1`)");
		exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject = var_NETHostObject1->GetItem(L"Nodes.Add(`Child 1`)");
		exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject2 = var_NETHostObject1->GetItem(L"Nodes.Add(`Child 2`)");
			var_NETHostObject1 = var_NETHostObject2->GetItem(L"Nodes.Add(`Sub-Child 2.1`)");
			var_NETHostObject2 = var_NETHostObject2->GetItem(L"Nodes.Add(`Sub-Child 2.2`)");
			exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject3 = var_NETHostObject2->GetItem(L"Nodes.Add(`Sub-Child 2.3`)");
			ObjectPtr var_Object = ((ObjectPtr)(var_NETHostObject2->GetItem(L"Expand()")));
		exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject4 = var_NETHostObject1->GetItem(L"Nodes.Add(`Child 3`)");
		ObjectPtr var_Object1 = ((ObjectPtr)(var_NETHostObject1->GetItem(L"Expand()")));
	exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject5 = var_NETHostObject->GetItem(L"Nodes.Add(`Root 2`)");
		var_NETHostObject5 = var_NETHostObject5->GetItem(L"Nodes.Add(`Child 1`)");
		exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject6 = var_NETHostObject5->GetItem(L"Nodes.Add(`Child 2`)");
		exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject7 = var_NETHostObject5->GetItem(L"Nodes.Add(`Child 3`)");

C++ Builder

NETHost1->AssemblyLocation = L"C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
NETHost1->AssemblyName = L"System.Windows.Forms.TreeView";
Exontrol_nethost_tlb::INETHostObjectPtr var_NETHostObject = NETHost1->Host;
	Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject1 = var_NETHostObject->get_Item(L"Nodes.Add(`Root 1`)");
		Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject = var_NETHostObject1->get_Item(L"Nodes.Add(`Child 1`)");
		Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject2 = var_NETHostObject1->get_Item(L"Nodes.Add(`Child 2`)");
			var_NETHostObject1 = var_NETHostObject2->get_Item(L"Nodes.Add(`Sub-Child 2.1`)");
			var_NETHostObject2 = var_NETHostObject2->get_Item(L"Nodes.Add(`Sub-Child 2.2`)");
			Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject3 = var_NETHostObject2->get_Item(L"Nodes.Add(`Sub-Child 2.3`)");
			_tlb::ObjectPtr var_Object = var_NETHostObject2->get_Item(L"Expand()");
		Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject4 = var_NETHostObject1->get_Item(L"Nodes.Add(`Child 3`)");
		_tlb::ObjectPtr var_Object1 = var_NETHostObject1->get_Item(L"Expand()");
	Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject5 = var_NETHostObject->get_Item(L"Nodes.Add(`Root 2`)");
		var_NETHostObject5 = var_NETHostObject5->get_Item(L"Nodes.Add(`Child 1`)");
		Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject6 = var_NETHostObject5->get_Item(L"Nodes.Add(`Child 2`)");
		Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject7 = var_NETHostObject5->get_Item(L"Nodes.Add(`Child 3`)");

C#

exnethost1.AssemblyLocation = "C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
exnethost1.AssemblyName = "System.Windows.Forms.TreeView";
exontrol_NETHost.NETHostObject var_NETHostObject = exnethost1.Host;
	exontrol_NETHost.NETHostObject var_NETHostObject1 = var_NETHostObject["Nodes.Add(`Root 1`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject = var_NETHostObject1["Nodes.Add(`Child 1`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject2 = var_NETHostObject1["Nodes.Add(`Child 2`)"];
			var_NETHostObject1 = var_NETHostObject2["Nodes.Add(`Sub-Child 2.1`)"];
			var_NETHostObject2 = var_NETHostObject2["Nodes.Add(`Sub-Child 2.2`)"];
			exontrol_NETHost.NETHostObject var_NETHostObject3 = var_NETHostObject2["Nodes.Add(`Sub-Child 2.3`)"];
			Object var_Object = (var_NETHostObject2["Expand()"] as Object);
		exontrol_NETHost.NETHostObject var_NETHostObject4 = var_NETHostObject1["Nodes.Add(`Child 3`)"];
		Object var_Object1 = (var_NETHostObject1["Expand()"] as Object);
	exontrol_NETHost.NETHostObject var_NETHostObject5 = var_NETHostObject["Nodes.Add(`Root 2`)"];
		var_NETHostObject5 = var_NETHostObject5["Nodes.Add(`Child 1`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject6 = var_NETHostObject5["Nodes.Add(`Child 2`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject7 = var_NETHostObject5["Nodes.Add(`Child 3`)"];

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	NETHost1.AssemblyLocation = "C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
	NETHost1.AssemblyName = "System.Windows.Forms.TreeView";
	var var_NETHostObject = NETHost1.Host;
		var var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root 1`)");
			var var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)");
			var var_NETHostObject2 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)");
				var_NETHostObject1 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.1`)");
				var_NETHostObject2 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.2`)");
				var var_NETHostObject3 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.3`)");
				var var_Object = var_NETHostObject2.Item("Expand()");
			var var_NETHostObject4 = var_NETHostObject1.Item("Nodes.Add(`Child 3`)");
			var var_Object1 = var_NETHostObject1.Item("Expand()");
		var var_NETHostObject5 = var_NETHostObject.Item("Nodes.Add(`Root 2`)");
			var_NETHostObject5 = var_NETHostObject5.Item("Nodes.Add(`Child 1`)");
			var var_NETHostObject6 = var_NETHostObject5.Item("Nodes.Add(`Child 2`)");
			var var_NETHostObject7 = var_NETHostObject5.Item("Nodes.Add(`Child 3`)");
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
		.AssemblyName = "System.Windows.Forms.TreeView"
		With .Host
			With .Item("Nodes.Add(`Root 1`)")
				Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
				With .Item("Nodes.Add(`Child 2`)")
					Set var_NETHostObject1 = .Item("Nodes.Add(`Sub-Child 2.1`)")
					Set var_NETHostObject2 = .Item("Nodes.Add(`Sub-Child 2.2`)")
					Set var_NETHostObject3 = .Item("Nodes.Add(`Sub-Child 2.3`)")
					Set var_Object = .Item("Expand()")
				End With
				Set var_NETHostObject4 = .Item("Nodes.Add(`Child 3`)")
				Set var_Object1 = .Item("Expand()")
			End With
			With .Item("Nodes.Add(`Root 2`)")
				Set var_NETHostObject5 = .Item("Nodes.Add(`Child 1`)")
				Set var_NETHostObject6 = .Item("Nodes.Add(`Child 2`)")
				Set var_NETHostObject7 = .Item("Nodes.Add(`Child 3`)")
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axNETHost1.AssemblyLocation = "C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
axNETHost1.AssemblyName = "System.Windows.Forms.TreeView";
exontrol_NETHost.NETHostObject var_NETHostObject = axNETHost1.Host;
	exontrol_NETHost.NETHostObject var_NETHostObject1 = var_NETHostObject["Nodes.Add(`Root 1`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject = var_NETHostObject1["Nodes.Add(`Child 1`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject2 = var_NETHostObject1["Nodes.Add(`Child 2`)"];
			var_NETHostObject1 = var_NETHostObject2["Nodes.Add(`Sub-Child 2.1`)"];
			var_NETHostObject2 = var_NETHostObject2["Nodes.Add(`Sub-Child 2.2`)"];
			exontrol_NETHost.NETHostObject var_NETHostObject3 = var_NETHostObject2["Nodes.Add(`Sub-Child 2.3`)"];
			Object var_Object = (var_NETHostObject2["Expand()"] as Object);
		exontrol_NETHost.NETHostObject var_NETHostObject4 = var_NETHostObject1["Nodes.Add(`Child 3`)"];
		Object var_Object1 = (var_NETHostObject1["Expand()"] as Object);
	exontrol_NETHost.NETHostObject var_NETHostObject5 = var_NETHostObject["Nodes.Add(`Root 2`)"];
		var_NETHostObject5 = var_NETHostObject5["Nodes.Add(`Child 1`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject6 = var_NETHostObject5["Nodes.Add(`Child 2`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject7 = var_NETHostObject5["Nodes.Add(`Child 3`)"];

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_NETHostObject,com_NETHostObject1,com_NETHostObject2,com_NETHostObject3,com_NETHostObject4,com_NETHostObject5,com_NETHostObject6,com_NETHostObject7,com_Object,com_Object1;
	anytype var_NETHostObject,var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7,var_Object,var_Object1;
	;

	super();

	exnethost1.AssemblyLocation("C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll");
	exnethost1.AssemblyName("System.Windows.Forms.TreeView");
	var_NETHostObject = exnethost1.Host(); com_NETHostObject = var_NETHostObject;
		var_NETHostObject1 = com_NETHostObject.Item("Nodes.Add(`Root 1`)"); com_NETHostObject1 = var_NETHostObject1;
			var_NETHostObject = COM::createFromObject(com_NETHostObject1.Item("Nodes.Add(`Child 1`)")); com_NETHostObject = var_NETHostObject;
			var_NETHostObject2 = com_NETHostObject1.Item("Nodes.Add(`Child 2`)"); com_NETHostObject2 = var_NETHostObject2;
				var_NETHostObject1 = COM::createFromObject(com_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.1`)"));
				var_NETHostObject2 = COM::createFromObject(com_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.2`)"));
				var_NETHostObject3 = COM::createFromObject(com_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.3`)")); com_NETHostObject3 = var_NETHostObject3;
				var_Object = COM::createFromObject(com_NETHostObject2.Item("Expand()")); com_Object = var_Object;
			var_NETHostObject4 = COM::createFromObject(com_NETHostObject1.Item("Nodes.Add(`Child 3`)")); com_NETHostObject4 = var_NETHostObject4;
			var_Object1 = COM::createFromObject(com_NETHostObject1.Item("Expand()")); com_Object1 = var_Object1;
		var_NETHostObject5 = com_NETHostObject.Item("Nodes.Add(`Root 2`)"); com_NETHostObject5 = var_NETHostObject5;
			var_NETHostObject5 = COM::createFromObject(com_NETHostObject5.Item("Nodes.Add(`Child 1`)"));
			var_NETHostObject6 = COM::createFromObject(com_NETHostObject5.Item("Nodes.Add(`Child 2`)")); com_NETHostObject6 = var_NETHostObject6;
			var_NETHostObject7 = COM::createFromObject(com_NETHostObject5.Item("Nodes.Add(`Child 3`)")); com_NETHostObject7 = var_NETHostObject7;
}

Delphi 8 (.NET only)

with AxNETHost1 do
begin
	AssemblyLocation := 'C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll';
	AssemblyName := 'System.Windows.Forms.TreeView';
	with Host do
	begin
		with Item['Nodes.Add(`Root 1`)'] do
		begin
			var_NETHostObject := Item['Nodes.Add(`Child 1`)'];
			with Item['Nodes.Add(`Child 2`)'] do
			begin
				var_NETHostObject1 := Item['Nodes.Add(`Sub-Child 2.1`)'];
				var_NETHostObject2 := Item['Nodes.Add(`Sub-Child 2.2`)'];
				var_NETHostObject3 := Item['Nodes.Add(`Sub-Child 2.3`)'];
				var_Object := (Item['Expand()'] as Object);
			end;
			var_NETHostObject4 := Item['Nodes.Add(`Child 3`)'];
			var_Object1 := (Item['Expand()'] as Object);
		end;
		with Item['Nodes.Add(`Root 2`)'] do
		begin
			var_NETHostObject5 := Item['Nodes.Add(`Child 1`)'];
			var_NETHostObject6 := Item['Nodes.Add(`Child 2`)'];
			var_NETHostObject7 := Item['Nodes.Add(`Child 3`)'];
		end;
	end;
end

Delphi (standard)

with NETHost1 do
begin
	AssemblyLocation := 'C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll';
	AssemblyName := 'System.Windows.Forms.TreeView';
	with Host do
	begin
		with Item['Nodes.Add(`Root 1`)'] do
		begin
			var_NETHostObject := Item['Nodes.Add(`Child 1`)'];
			with Item['Nodes.Add(`Child 2`)'] do
			begin
				var_NETHostObject1 := Item['Nodes.Add(`Sub-Child 2.1`)'];
				var_NETHostObject2 := Item['Nodes.Add(`Sub-Child 2.2`)'];
				var_NETHostObject3 := Item['Nodes.Add(`Sub-Child 2.3`)'];
				var_Object := (IUnknown(Item['Expand()']) as _TLB.Object);
			end;
			var_NETHostObject4 := Item['Nodes.Add(`Child 3`)'];
			var_Object1 := (IUnknown(Item['Expand()']) as _TLB.Object);
		end;
		with Item['Nodes.Add(`Root 2`)'] do
		begin
			var_NETHostObject5 := Item['Nodes.Add(`Child 1`)'];
			var_NETHostObject6 := Item['Nodes.Add(`Child 2`)'];
			var_NETHostObject7 := Item['Nodes.Add(`Child 3`)'];
		end;
	end;
end

VFP

with thisform.NETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	with .Host
		with .Item("Nodes.Add(`Root 1`)")
			var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			with .Item("Nodes.Add(`Child 2`)")
				var_NETHostObject1 = .Item("Nodes.Add(`Sub-Child 2.1`)")
				var_NETHostObject2 = .Item("Nodes.Add(`Sub-Child 2.2`)")
				var_NETHostObject3 = .Item("Nodes.Add(`Sub-Child 2.3`)")
				var_Object = .Item("Expand()")
			endwith
			var_NETHostObject4 = .Item("Nodes.Add(`Child 3`)")
			var_Object1 = .Item("Expand()")
		endwith
		with .Item("Nodes.Add(`Root 2`)")
			var_NETHostObject5 = .Item("Nodes.Add(`Child 1`)")
			var_NETHostObject6 = .Item("Nodes.Add(`Child 2`)")
			var_NETHostObject7 = .Item("Nodes.Add(`Child 3`)")
		endwith
	endwith
endwith

dBASE Plus

local oNETHost,var_NETHostObject,var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7,var_Object,var_Object1

oNETHost = form.Activex1.nativeObject
oNETHost.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oNETHost.AssemblyName = "System.Windows.Forms.TreeView"
var_NETHostObject = oNETHost.Host
	var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root 1`)")
		var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject2 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)")
			var_NETHostObject1 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.1`)")
			var_NETHostObject2 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.2`)")
			var_NETHostObject3 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.3`)")
			var_Object = var_NETHostObject2.Item("Expand()")
		var_NETHostObject4 = var_NETHostObject1.Item("Nodes.Add(`Child 3`)")
		var_Object1 = var_NETHostObject1.Item("Expand()")
	var_NETHostObject5 = var_NETHostObject.Item("Nodes.Add(`Root 2`)")
		var_NETHostObject5 = var_NETHostObject5.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject6 = var_NETHostObject5.Item("Nodes.Add(`Child 2`)")
		var_NETHostObject7 = var_NETHostObject5.Item("Nodes.Add(`Child 3`)")

XBasic (Alpha Five)

Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 as P
Dim var_NETHostObject2 as P
Dim var_NETHostObject3 as P
Dim var_NETHostObject4 as P
Dim var_NETHostObject5 as P
Dim var_NETHostObject6 as P
Dim var_NETHostObject7 as P
Dim var_Object as P
Dim var_Object1 as P

oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oNETHost.AssemblyName = "System.Windows.Forms.TreeView"
var_NETHostObject = oNETHost.Host
	var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root 1`)")
		var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject2 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)")
			var_NETHostObject1 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.1`)")
			var_NETHostObject2 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.2`)")
			var_NETHostObject3 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.3`)")
			var_Object = var_NETHostObject2.Item("Expand()")
		var_NETHostObject4 = var_NETHostObject1.Item("Nodes.Add(`Child 3`)")
		var_Object1 = var_NETHostObject1.Item("Expand()")
	var_NETHostObject5 = var_NETHostObject.Item("Nodes.Add(`Root 2`)")
		var_NETHostObject5 = var_NETHostObject5.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject6 = var_NETHostObject5.Item("Nodes.Add(`Child 2`)")
		var_NETHostObject7 = var_NETHostObject5.Item("Nodes.Add(`Child 3`)")

Visual Objects

local var_NETHostObject as INETHostObject
local var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7 as INETObjectTemplate
local var_Object,var_Object1 as USUAL

oDCOCX_Exontrol1:AssemblyLocation := "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oDCOCX_Exontrol1:AssemblyName := "System.Windows.Forms.TreeView"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject1 := var_NETHostObject:[Item,"Nodes.Add(`Root 1`)"]
		var_NETHostObject := var_NETHostObject1:[Item,"Nodes.Add(`Child 1`)"]
		var_NETHostObject2 := var_NETHostObject1:[Item,"Nodes.Add(`Child 2`)"]
			var_NETHostObject1 := var_NETHostObject2:[Item,"Nodes.Add(`Sub-Child 2.1`)"]
			var_NETHostObject2 := var_NETHostObject2:[Item,"Nodes.Add(`Sub-Child 2.2`)"]
			var_NETHostObject3 := var_NETHostObject2:[Item,"Nodes.Add(`Sub-Child 2.3`)"]
			var_Object := var_NETHostObject2:[Item,"Expand()"]
		var_NETHostObject4 := var_NETHostObject1:[Item,"Nodes.Add(`Child 3`)"]
		var_Object1 := var_NETHostObject1:[Item,"Expand()"]
	var_NETHostObject5 := var_NETHostObject:[Item,"Nodes.Add(`Root 2`)"]
		var_NETHostObject5 := var_NETHostObject5:[Item,"Nodes.Add(`Child 1`)"]
		var_NETHostObject6 := var_NETHostObject5:[Item,"Nodes.Add(`Child 2`)"]
		var_NETHostObject7 := var_NETHostObject5:[Item,"Nodes.Add(`Child 3`)"]

PowerBuilder

OleObject oNETHost,var_NETHostObject,var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7,var_Object,var_Object1

oNETHost = ole_1.Object
oNETHost.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oNETHost.AssemblyName = "System.Windows.Forms.TreeView"
var_NETHostObject = oNETHost.Host
	var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root 1`)")
		var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject2 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)")
			var_NETHostObject1 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.1`)")
			var_NETHostObject2 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.2`)")
			var_NETHostObject3 = var_NETHostObject2.Item("Nodes.Add(`Sub-Child 2.3`)")
			var_Object = var_NETHostObject2.Item("Expand()")
		var_NETHostObject4 = var_NETHostObject1.Item("Nodes.Add(`Child 3`)")
		var_Object1 = var_NETHostObject1.Item("Expand()")
	var_NETHostObject5 = var_NETHostObject.Item("Nodes.Add(`Root 2`)")
		var_NETHostObject5 = var_NETHostObject5.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject6 = var_NETHostObject5.Item("Nodes.Add(`Child 2`)")
		var_NETHostObject7 = var_NETHostObject5.Item("Nodes.Add(`Child 3`)")

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComAssemblyLocation to "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	Set ComAssemblyName to "System.Windows.Forms.TreeView"
	Variant voNETHostObject
	Get ComHost to voNETHostObject
	Handle hoNETHostObject
	Get Create (RefClass(cComNETHostObject)) to hoNETHostObject
	Set pvComObject of hoNETHostObject to voNETHostObject
		Variant voNETHostObject1
		Get ComItem of hoNETHostObject "Nodes.Add(`Root 1`)" to voNETHostObject1
		Handle hoNETHostObject1
		Get Create (RefClass(cComNETHostObject)) to hoNETHostObject1
		Set pvComObject of hoNETHostObject1 to voNETHostObject1
			Variant var_NETHostObject
			Get ComItem of hoNETHostObject1 "Nodes.Add(`Child 1`)" to var_NETHostObject
			Variant voNETHostObject2
			Get ComItem of hoNETHostObject1 "Nodes.Add(`Child 2`)" to voNETHostObject2
			Handle hoNETHostObject2
			Get Create (RefClass(cComNETHostObject)) to hoNETHostObject2
			Set pvComObject of hoNETHostObject2 to voNETHostObject2
				Variant var_NETHostObject1
				Get ComItem of hoNETHostObject2 "Nodes.Add(`Sub-Child 2.1`)" to var_NETHostObject1
				Variant var_NETHostObject2
				Get ComItem of hoNETHostObject2 "Nodes.Add(`Sub-Child 2.2`)" to var_NETHostObject2
				Variant var_NETHostObject3
				Get ComItem of hoNETHostObject2 "Nodes.Add(`Sub-Child 2.3`)" to var_NETHostObject3
				Variant var_Object
				Get ComItem of hoNETHostObject2 "Expand()" to var_Object
			Send Destroy to hoNETHostObject2
			Variant var_NETHostObject4
			Get ComItem of hoNETHostObject1 "Nodes.Add(`Child 3`)" to var_NETHostObject4
			Variant var_Object1
			Get ComItem of hoNETHostObject1 "Expand()" to var_Object1
		Send Destroy to hoNETHostObject1
		Variant voNETHostObject3
		Get ComItem of hoNETHostObject "Nodes.Add(`Root 2`)" to voNETHostObject3
		Handle hoNETHostObject3
		Get Create (RefClass(cComNETHostObject)) to hoNETHostObject3
		Set pvComObject of hoNETHostObject3 to voNETHostObject3
			Variant var_NETHostObject5
			Get ComItem of hoNETHostObject3 "Nodes.Add(`Child 1`)" to var_NETHostObject5
			Variant var_NETHostObject6
			Get ComItem of hoNETHostObject3 "Nodes.Add(`Child 2`)" to var_NETHostObject6
			Variant var_NETHostObject7
			Get ComItem of hoNETHostObject3 "Nodes.Add(`Child 3`)" to var_NETHostObject7
		Send Destroy to hoNETHostObject3
	Send Destroy to hoNETHostObject
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oNETHostObject
	LOCAL oNETHostObject1,oNETHostObject2,oNETHostObject3,var_NETHostObject,var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7
	LOCAL oNETHost
	LOCAL var_Object,var_Object1

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oNETHost := XbpActiveXControl():new( oForm:drawingArea )
	oNETHost:CLSID  := "Exontrol.NETHost" /*{FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565}*/
	oNETHost:create(,, {10,60},{610,370} )

		oNETHost:AssemblyLocation := "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
		oNETHost:AssemblyName := "System.Windows.Forms.TreeView"
		oNETHostObject := oNETHost:Host()
			oNETHostObject1 := oNETHostObject:Item("Nodes.Add(`Root 1`)")
				var_NETHostObject := oNETHostObject1:Item("Nodes.Add(`Child 1`)")
				oNETHostObject2 := oNETHostObject1:Item("Nodes.Add(`Child 2`)")
					var_NETHostObject1 := oNETHostObject2:Item("Nodes.Add(`Sub-Child 2.1`)")
					var_NETHostObject2 := oNETHostObject2:Item("Nodes.Add(`Sub-Child 2.2`)")
					var_NETHostObject3 := oNETHostObject2:Item("Nodes.Add(`Sub-Child 2.3`)")
					var_Object := oNETHostObject2:Item("Expand()")
				var_NETHostObject4 := oNETHostObject1:Item("Nodes.Add(`Child 3`)")
				var_Object1 := oNETHostObject1:Item("Expand()")
			oNETHostObject3 := oNETHostObject:Item("Nodes.Add(`Root 2`)")
				var_NETHostObject5 := oNETHostObject3:Item("Nodes.Add(`Child 1`)")
				var_NETHostObject6 := oNETHostObject3:Item("Nodes.Add(`Child 2`)")
				var_NETHostObject7 := oNETHostObject3:Item("Nodes.Add(`Child 3`)")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN