22
How can I play animated GIF using the control

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.Create "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.Label"
		.Host.Template = "Image = LoadPicture(`C:\Program Files (x86)\Exontrol\ExNETHost\Sample\wait.gif`)"
	End With
End Function
</SCRIPT>
</BODY>
21
How can I use the Template property
<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"
		.Host.Template = "Nodes { Add(`Root 1`).Nodes { Add(`Child 1`); Add(`Child 2`) }  }"
	End With
End Function
</SCRIPT>
</BODY>
20
How can I use the TemplateResult property (method 2)
<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`){ BackColor = RGB(255,0,0);ForeColor = RGB(255,255,255) }"
			.TemplateResult.Template = "Nodes{ Add(`Child 1`); Add(`Child 2`) }; Expand() }"
		End With
	End With
End Function
</SCRIPT>
</BODY>
19
How can I use the TemplateResult property (method 1)
<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>
18
How can I find the information about the hosting control, like name, version, ...
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.AssemblyQualifiedName = "System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
		With .Host
			alert( .Item("ProductName").Value )
			alert( .Item("ProductVersion").Value )
			alert( .Item("CompanyName").Value )
		End With
	End With
End Function
</SCRIPT>
</BODY>
17
How do I get the hwnd/handle of the hosting control
<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"
		alert( .Host.Item("Handle").AsInt )
	End With
End Function
</SCRIPT>
</BODY>
16
How do I get the number of arguments that an event has
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function NETHost1_HostEvent(Ev)
	With NETHost1
		alert( "Ev.Arguments.Item(""GetType().GetProperties().Length"").AsString" )
			alert( Ev )
	End With
End Function
</SCRIPT>

<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"
	End With
End Function
</SCRIPT>
</BODY>
15
How can I change the control's background color, as BackgroundColor seems to have no effect

<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 = "BackColor = RGB(240,240,240)"
			With .Item("Nodes.Add(`Root`)")
				Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
				Set var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
				Set var_Object = .Item("Expand()")
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
14
How can I add a TreeView

<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>
13
How can I add a ProgressBar

<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.ProgressBar"
		With .Host
			.SetTemplateDef "Dim percent"
			.SetTemplateDef 50
			.Template = "Value = percent"
		End With
	End With
End Function
</SCRIPT>
</BODY>
12
How can I add a DateTimePicker

<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.DateTimePicker"
		With .Host
			.SetTemplateDef "Dim date"
			.SetTemplateDef #1/1/2001#
			.Template = "Value = date"
		End With
	End With
End Function
</SCRIPT>
</BODY>
11
How can I add CheckedListBox

<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.CheckedListBox"
		With .Host
			.Template = "FormattingEnabled = True"
			.Template = "Items.Add(`Check 1`)"
			.Template = "Items.Add(`Check 2`,True)"
		End With
	End With
End Function
</SCRIPT>
</BODY>
10
How can I specify the list of events to be handled
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function NETHost1_HostEvent(Ev)
	With NETHost1
		alert( Ev )
		alert( "Button " )
		alert( Ev )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.BackgroundColor = 16777215
		.HostEvents = "MouseUp MouseDown"
		.Create "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar"
		.Host.Template = "MaxSelectionCount = 1"
	End With
End Function
</SCRIPT>
</BODY>
9
Is it possible to handle only a specific event
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function NETHost1_HostEvent(Ev)
	With NETHost1
		alert( Ev )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.BackgroundColor = 16777215
		.Create "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar"
		.HostEvents = "DateSelected"
		With .Host
			.Template = "MaxSelectionCount = 1"
		End With
	End With
End Function
</SCRIPT>
</BODY>
8
How can I handle events withing the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function NETHost1_HostEvent(Ev)
	With NETHost1
		alert( Ev )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.BackgroundColor = 16777215
		.Create "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar"
		With .Host
			.Template = "MaxSelectionCount = 1"
		End With
	End With
End Function
</SCRIPT>
</BODY>
7
How can I add the Tab page, and pages inside (method 2)

<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.TabControl"
		With .Host
			With .Item("Dim page; page = CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyT" & _
	"oken=b77a5c561934e089`){Text = `new`};Controls.Add(page);page")
				.Template = "Text = `Page 1`;UseVisualStyleBackColor = True"
				.Template = "Dim c; c = CreateObject(`System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b7" & _
	"7a5c561934e089`){Text=`Button 2`;Dock=1}; Controls.Add(c)"
				.Template = "Dim c; c = CreateObject(`System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b7" & _
	"7a5c561934e089`){Text=`Button 1`;Dock=1}; Controls.Add(c)"
			End With
			With .Item("Dim page; page = CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyT" & _
	"oken=b77a5c561934e089`){Text = `new`};Controls.Add(page);page")
				.Template = "Text = `Page 1`;UseVisualStyleBackColor = True"
				.Template = "Dim c; c = CreateObject(`System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b" & _
	"77a5c561934e089`){Text=`Edit 2`;Dock=1}; Controls.Add(c)"
				.Template = "Dim c; c = CreateObject(`System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b" & _
	"77a5c561934e089`){Text=`Edit 1`;Dock=1}; Controls.Add(c)"
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
6
How can I add the Tab page, and pages inside (method 1)

<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.TabControl"
		With .Host
			With .Item("CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934" & _
	"e089`)")
				.Template = "Text = `Page 1`;UseVisualStyleBackColor = True"
			End With
			.SetTemplateDef "Dim page"
			.SetTemplateDef .TemplateResult.Value
			.Template = "Controls.Add(page)"
			With .Item("CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934" & _
	"e089`)")
				.Template = "Text = `Page 2`;UseVisualStyleBackColor = True"
			End With
			.SetTemplateDef "Dim page"
			.SetTemplateDef .TemplateResult.Value
			.Template = "Controls.Add(page)"
		End With
	End With
End Function
</SCRIPT>
</BODY>
5
Just wondering if I can host your /NET control

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.AssemblyLocation = "C:\Program Files\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll"
		With .Host
			.Template = "LoadXML(`http://www.exontrol.net/testing.xml`)"
		End With
	End With
End Function
</SCRIPT>
</BODY>
4
How can I insert the MonthCalendar of /NET framework

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.BackgroundColor = 16777215
		.Create "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar"
		With .Host
			.SetTemplateDef "Dim x"
			.SetTemplateDef #1/1/2001#
			.Template = "MaxSelectionCount = 1;SelectionStart = x"
		End With
	End With
End Function
</SCRIPT>
</BODY>
3
How can I use the AssemblyQualifiedName property

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.AssemblyQualifiedName = "System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
		With .Host.Item("Items")
			.Template = "Add(2001)"
			.Template = "Add(4.1234)"
			.Template = "Add(#1/1/2001#)"
			.Template = "Add(RGB(255,0,0))"
			.Template = "Add(1);Add(2);Add(3)"
		End With
	End With
End Function
</SCRIPT>
</BODY>
2
How can I use the AssemblyLocation property

<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.ListView"
		With .Host
			.Template = "Items.Add(`first`)"
			With .Item("CreateObject(`System.Windows.Forms.ListViewItem, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c5" & _
	"61934e089`)")
				.Template = "Text = `second`;ForeColor = RGB(255,0,0)"
			End With
			.SetTemplateDef "Dim n"
			.SetTemplateDef .TemplateResult.Value
			.Template = "Items.Add(n)"
			.Template = "Items.Add(`third`)"
		End With
	End With
End Function
</SCRIPT>
</BODY>
1
How can I insert the PropertyGrid of /NET framework

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.AssemblyQualifiedName = "System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
		With .Host
			.Template = "BackColor = RGB(255,255,255);ViewBackColor = RGB(255,255,255);LineColor = ViewBackColor"
			.SetTemplateDef "dim object"
			.SetTemplateDef NETHost1
			.Template = "SelectedObject = object"
		End With
	End With
End Function
</SCRIPT>
</BODY>