NETObjectTemplate.Template Property (ExNETHost)

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 code is a simple way of calling hosting control/object's properties, methods/ events using strings. Exontrol owns the x-script implementation in its easiest way and it does not require any VB engine to get executed. Our simple rule is using the component alone without any other dependency than the Windows system.

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 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#. For instance, #31/12/1971# indicates the December 31, 1971 ( Sample: Chart.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 following samples shows how you can use the Template and TemplateResult properties:

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
		.Template = "Nodes.Add(`Root 1`)"
		With .TemplateResult
			.Template = "Nodes.Add(`Child 1`)"
			.Template = "Nodes.Add(`Child 2`)"
			.Template = "Expand()"
		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
		.Template = "Nodes.Add(`Root 1`)"
		With .TemplateResult
			.Template = "Nodes.Add(`Child 1`)"
			.Template = "Nodes.Add(`Child 2`)"
			.Template = "Expand()"
		End With
	End With
End With

VB.NET

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
		.Template = "Nodes.Add(`Root 1`)"
		With .TemplateResult
			.Template = "Nodes.Add(`Child 1`)"
			.Template = "Nodes.Add(`Child 2`)"
			.Template = "Expand()"
		End With
	End With
End With

VB.NET for /COM

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
		.Template = "Nodes.Add(`Root 1`)"
		With .TemplateResult
			.Template = "Nodes.Add(`Child 1`)"
			.Template = "Nodes.Add(`Child 2`)"
			.Template = "Expand()"
		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::INETObjectTemplatePtr var_NETObjectTemplate = spNETHost1->GetHost();
	var_NETObjectTemplate->PutTemplate(L"Nodes.Add(`Root 1`)");
	exontrol_NETHost::INETObjectTemplatePtr var_NETObjectTemplate1 = var_NETObjectTemplate->GetTemplateResult();
		var_NETObjectTemplate1->PutTemplate(L"Nodes.Add(`Child 1`)");
		var_NETObjectTemplate1->PutTemplate(L"Nodes.Add(`Child 2`)");
		var_NETObjectTemplate1->PutTemplate(L"Expand()");

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::INETObjectTemplatePtr var_NETObjectTemplate = NETHost1->Host;
	var_NETObjectTemplate->Template = L"Nodes.Add(`Root 1`)";
	Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETObjectTemplate1 = var_NETObjectTemplate->TemplateResult;
		var_NETObjectTemplate1->Template = L"Nodes.Add(`Child 1`)";
		var_NETObjectTemplate1->Template = L"Nodes.Add(`Child 2`)";
		var_NETObjectTemplate1->Template = L"Expand()";

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.NETObjectTemplate var_NETObjectTemplate = exnethost1.Host;
	var_NETObjectTemplate.Template = "Nodes.Add(`Root 1`)";
	exontrol_NETHost.NETObjectTemplate var_NETObjectTemplate1 = var_NETObjectTemplate.TemplateResult;
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 1`)";
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 2`)";
		var_NETObjectTemplate1.Template = "Expand()";

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_NETObjectTemplate = NETHost1.Host;
		var_NETObjectTemplate.Template = "Nodes.Add(`Root 1`)";
		var var_NETObjectTemplate1 = var_NETObjectTemplate.TemplateResult;
			var_NETObjectTemplate1.Template = "Nodes.Add(`Child 1`)";
			var_NETObjectTemplate1.Template = "Nodes.Add(`Child 2`)";
			var_NETObjectTemplate1.Template = "Expand()";
}
</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
			.Template = "Nodes.Add(`Root 1`)"
			With .TemplateResult
				.Template = "Nodes.Add(`Child 1`)"
				.Template = "Nodes.Add(`Child 2`)"
				.Template = "Expand()"
			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.NETObjectTemplate var_NETObjectTemplate = axNETHost1.Host;
	var_NETObjectTemplate.Template = "Nodes.Add(`Root 1`)";
	exontrol_NETHost.NETObjectTemplate var_NETObjectTemplate1 = var_NETObjectTemplate.TemplateResult;
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 1`)";
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 2`)";
		var_NETObjectTemplate1.Template = "Expand()";

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_NETObjectTemplate,com_NETObjectTemplate1;
	anytype var_NETObjectTemplate,var_NETObjectTemplate1;
	;

	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_NETObjectTemplate = exnethost1.Host(); com_NETObjectTemplate = var_NETObjectTemplate;
		com_NETObjectTemplate.Template("Nodes.Add(`Root 1`)");
		var_NETObjectTemplate1 = com_NETObjectTemplate.TemplateResult(); com_NETObjectTemplate1 = var_NETObjectTemplate1;
			com_NETObjectTemplate1.Template("Nodes.Add(`Child 1`)");
			com_NETObjectTemplate1.Template("Nodes.Add(`Child 2`)");
			com_NETObjectTemplate1.Template("Expand()");
}

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
		Template := 'Nodes.Add(`Root 1`)';
		with TemplateResult do
		begin
			Template := 'Nodes.Add(`Child 1`)';
			Template := 'Nodes.Add(`Child 2`)';
			Template := 'Expand()';
		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
		Template := 'Nodes.Add(`Root 1`)';
		with TemplateResult do
		begin
			Template := 'Nodes.Add(`Child 1`)';
			Template := 'Nodes.Add(`Child 2`)';
			Template := 'Expand()';
		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
		.Template = "Nodes.Add(`Root 1`)"
		with .TemplateResult
			.Template = "Nodes.Add(`Child 1`)"
			.Template = "Nodes.Add(`Child 2`)"
			.Template = "Expand()"
		endwith
	endwith
endwith

dBASE Plus

local oNETHost,var_NETObjectTemplate,var_NETObjectTemplate1

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_NETObjectTemplate = oNETHost.Host
	var_NETObjectTemplate.Template = "Nodes.Add(`Root 1`)"
	var_NETObjectTemplate1 = var_NETObjectTemplate.TemplateResult
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 1`)"
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 2`)"
		var_NETObjectTemplate1.Template = "Expand()"

XBasic (Alpha Five)

Dim oNETHost as P
Dim var_NETObjectTemplate as P
Dim var_NETObjectTemplate1 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_NETObjectTemplate = oNETHost.Host
	var_NETObjectTemplate.Template = "Nodes.Add(`Root 1`)"
	var_NETObjectTemplate1 = var_NETObjectTemplate.TemplateResult
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 1`)"
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 2`)"
		var_NETObjectTemplate1.Template = "Expand()"

Visual Objects

local var_NETObjectTemplate as INETObjectTemplate
local var_NETObjectTemplate1 as INETObjectTemplate

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_NETObjectTemplate := oDCOCX_Exontrol1:Host
	var_NETObjectTemplate:Template := "Nodes.Add(`Root 1`)"
	var_NETObjectTemplate1 := var_NETObjectTemplate:TemplateResult
		var_NETObjectTemplate1:Template := "Nodes.Add(`Child 1`)"
		var_NETObjectTemplate1:Template := "Nodes.Add(`Child 2`)"
		var_NETObjectTemplate1:Template := "Expand()"

PowerBuilder

OleObject oNETHost,var_NETObjectTemplate,var_NETObjectTemplate1

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_NETObjectTemplate = oNETHost.Host
	var_NETObjectTemplate.Template = "Nodes.Add(`Root 1`)"
	var_NETObjectTemplate1 = var_NETObjectTemplate.TemplateResult
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 1`)"
		var_NETObjectTemplate1.Template = "Nodes.Add(`Child 2`)"
		var_NETObjectTemplate1.Template = "Expand()"

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 voNETObjectTemplate
	Get ComHost to voNETObjectTemplate
	Handle hoNETObjectTemplate
	Get Create (RefClass(cComNETObjectTemplate)) to hoNETObjectTemplate
	Set pvComObject of hoNETObjectTemplate to voNETObjectTemplate
		Set ComTemplate of hoNETObjectTemplate to "Nodes.Add(`Root 1`)"
		Variant voNETObjectTemplate1
		Get ComTemplateResult of hoNETObjectTemplate to voNETObjectTemplate1
		Handle hoNETObjectTemplate1
		Get Create (RefClass(cComNETObjectTemplate)) to hoNETObjectTemplate1
		Set pvComObject of hoNETObjectTemplate1 to voNETObjectTemplate1
			Set ComTemplate of hoNETObjectTemplate1 to "Nodes.Add(`Child 1`)"
			Set ComTemplate of hoNETObjectTemplate1 to "Nodes.Add(`Child 2`)"
			Set ComTemplate of hoNETObjectTemplate1 to "Expand()"
		Send Destroy to hoNETObjectTemplate1
	Send Destroy to hoNETObjectTemplate
End_Procedure

XBase++

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

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oNETObjectTemplate
	LOCAL oNETObjectTemplate1
	LOCAL oNETHost

	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"
		oNETObjectTemplate := oNETHost:Host()
			oNETObjectTemplate:Template := "Nodes.Add(`Root 1`)"
			oNETObjectTemplate1 := oNETObjectTemplate:TemplateResult()
				oNETObjectTemplate1:Template := "Nodes.Add(`Child 1`)"
				oNETObjectTemplate1:Template := "Nodes.Add(`Child 2`)"
				oNETObjectTemplate1:Template := "Expand()"

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

		Type	Description
		String	A String expression that specifies the x-script/template code to be executed.