51:
The sample displays the value in years, months, weeks, days, hours, minutes and secons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``)  + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=i" & _
	"nt((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(" & _
	"=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0" & _
	":=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
		.EvaluationText = "value = 1\r\nvalue=2 + 1/24/60\r\nvalue=365 + 12 * 1/24\r\nvalue=1212.25\r\nvalue=366.02512"
		.SplitPaneWidth = 464
	End With
End Function
</SCRIPT>
</BODY>

50:
The sample displays the value in seconds

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "(1:=(int(0:=(value*24*60*60 + 1/24/60/60/2))) ? =: 1 + ` sec(s)` : ``)"
		.EvaluationText = "value = 1\r\nvalue=2 + 1/24/60\r\nvalue=365 + 12 * 1/24\r\nvalue=1212.25\r\nvalue=366.02512"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

49:
The sample displays the value in minutes and seconds

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "trim((1:=(int(0:=(value*24*60 + 1/24/60/60/2))) ? =: 1 + ` min(s)` : ``) + ` ` + (2:=int((=:0 - =:1)*60) ? =:2 + ` sec(s)` : ``" & _
	"))"
		.EvaluationText = "value = 1\r\nvalue=2 + 1/24/60\r\nvalue=365 + 12 * 1/24\r\nvalue=1212.25\r\nvalue=366.02512"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

48:
The sample displays the value in hours and minutes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((" & _
	"1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
		.EvaluationText = "value = 1\r\nvalue=2 + 1/24/60\r\nvalue=365 + 12 * 1/24\r\nvalue=1212.25\r\nvalue=366.02512"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

47:
How can I check for a blank-date (sample 3) Expression

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "type(value) case ( default : `<fgcolor=000000><s>invalid</s></fgcolor>`; 0 : `<fgcolor=FF0000>null</fgcolor>`; 1 : `null` ; 7 :" & _
	" longdate(value) )"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

46:
How can I check for a blank-date (sample 2) Expression

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "len(value) ? longdate(value) : ``"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

45:
How can I check for a blank-date (sample 1) Expression

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "type(value) = 7 ? longdate(value) : ``"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

44:
Easter Sunday

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((y" & _
	"ear(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

43:
The sample displays the value in days, hours and minutes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
	"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

42:
How can I display the date in short format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "shortdate(date(value))"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

41:
How can I display the date in long format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "longdate(date(value))"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

40:
The sample displays the positive values in blue, being preceded by + sign, negative values in red preceded by - sign, 0 as 0.00 while for null values is displays null. The numbers are displayed using 2 digits, . as decimal separator and grouping by 3 digits by , separator

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3,' ) : (dbl(value)>0 ? '<fgcolor=0000F" & _
	"F>+'+(value format '2|.|3,' ): '0.00') ) "
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

39:
How can I format a numeric value so it display as a currency

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "currency(dbl(value))"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

38:
How can I format a numeric value to with grouping

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "dbl(value) format ''"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

37:
How can I convert the value to a numeric ( integer ) value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "int(value)"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

36:
How can I convert the value to a numeric ( double ) value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "dbl(value)"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

35:
How can I format a date as YYYY-MMM-DD (sample 4)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "(year(value) + '-') + (month(value) array('','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')) + '-' + " & _
	"(day(value)<10 ? '0' : '') + day(value)"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

34:
How can I format a date as YYYY-MMM-DD (sample 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "(2 array ( 0 := (shortdateF(value) split `/`) ) ) + `-`+ ((month(value) - 1) array `Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov" & _
	" Dec` split ` `) + `-`+ (1 array =: 0)"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

33:
How can I format a date as YYYY-MMM-DD (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "ltrim((2 array longdate(value) split `,`)) + `-` +  ((1 array (1 array longdate(value) split `,`) split ` `) left 3 ) + `-` + (" & _
	"`00` left (2 - len(day(value)))) + day(value)"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

32:
How can I format a date as YYYY-MMM-DD (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "year(value) + `-` +  (month(value)-1 array ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')) + `-` + (" & _
	"`00` left (2 - len(day(value)))) + day(value)"
		.SplitPaneWidth = 256
	End With
End Function
</SCRIPT>
</BODY>

31:
How can I use my own operators only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AllowValueKeyword = False
		.AllowDefaultOperators = False
		.AddCustomOperator "+","<b>+</b>","This is a new binary-operator",2
		.AddCustomOperator "xxx","<b>xxx</b>","This is a new keyword",0
		.AddCustomOperator "yyy","<b>yyy</b>","This is a unary-operator",1
		.AddCustomOperator "zzz","<b>zzz</b>","This is a binary-operator",2
		.Text = "xxx + yyy(100 zzz 200)"
	End With
End Function
</SCRIPT>
</BODY>

30:
How can I add a new binary-operator

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AddCustomOperator "xxx","<b>xxx</b>","This is a new binary-operator",2
		.Text = "value + 100 xxx 200"
	End With
End Function
</SCRIPT>
</BODY>

29:
How can I add a new unary-operator

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AddCustomOperator "xxx","<b>xxx</b>","This is a new unary-operator",1
		.Text = "value + xxx(100)"
	End With
End Function
</SCRIPT>
</BODY>

28:
How can I add a new keyword

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AddCustomOperator "xxx","<b>xxx</b>","This is a new keyword",0
		.Text = "value + xxx"
	End With
End Function
</SCRIPT>
</BODY>

27:
How can I disable all operators
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AllowValueKeyword = False
		.AllowDefaultOperators = False
	End With
End Function
</SCRIPT>
</BODY>

26:
How can I disable the value keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AllowValueKeyword = False
	End With
End Function
</SCRIPT>
</BODY>

25:
Usage of and ( and operator )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "(value contains 1) and (value != 1)"
	End With
End Function
</SCRIPT>
</BODY>

24:
Usage of or ( or operator )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "(value=1) or value=`string`"
	End With
End Function
</SCRIPT>
</BODY>

23:
Usage of not ( not operator )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "not(value=1)"
	End With
End Function
</SCRIPT>
</BODY>

22:
Usage of - ( subtraction operator )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value - 2"
	End With
End Function
</SCRIPT>
</BODY>

21:
Usage of + ( addition operator )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value + 2"
	End With
End Function
</SCRIPT>
</BODY>

20:
Usage of mod ( reminder operator )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value mod 2"
	End With
End Function
</SCRIPT>
</BODY>

19:
Usage of / (divide operator)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value / 2"
	End With
End Function
</SCRIPT>
</BODY>

18:
Usage of * (multiplicity operator)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "2 * value"
	End With
End Function
</SCRIPT>
</BODY>

17:
How can I get the word from cursor when user double clicks the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Expression1_DblClick(Shift,X,Y)
	With Expression1
		alert( "Word: " )
		alert( .WordFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.AllowSplitter = 2
		.SplitPaneHeight = 196
	End With
End Function
</SCRIPT>
</BODY>

16:
How do I determine the word from the cursor
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Expression1_Click()
	With Expression1
		alert( "Word: " )
		alert( .WordFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.SplitPaneHeight = 196
		.Background(1) = RGB(240,240,240)
		.AllowSplitter = 2
	End With
End Function
</SCRIPT>
</BODY>

15:
How can I check if the expression is valid/syntactically correct
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Expression1_Change()
	With Expression1
		alert( "Valid: " )
		alert( .IsValid )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.SplitPaneHeight = 196
		.Background(1) = RGB(240,240,240)
		.AllowSplitter = 2
	End With
End Function
</SCRIPT>
</BODY>

14:
How can I change the visual appearance of the horizontal splitter

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.SplitPaneHeight = 196
		.Background(1) = RGB(240,240,240)
		.AllowSplitter = 2
	End With
End Function
</SCRIPT>
</BODY>

13:
How can I change the visual appearance of the vertical splitter

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.SplitPaneWidth = 196
		.Background(0) = RGB(240,240,240)
	End With
End Function
</SCRIPT>
</BODY>

12:
How can I add a new menu-item to control's context menu
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Expression1_ExecuteContextMenu(Item,Position)
	With Expression1
		alert( "ExecuteContextMenu: " )
		alert( Item )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value + 100"
		.ContextMenuItems = "Test"
	End With
End Function
</SCRIPT>
</BODY>

11:
How can I change the tooltip that shows when cursor hovers a keyword

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.Description(0) = "This is a bit of text to be shown when cursor hovers the <b>value</b> keyword."
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

10:
How do I check if the expression is correct
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "currency(value)"
		alert( .IsValid )
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I programmatically evaluate the expression
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "currency(value)"
		alert( .Evaluate("value=100") )
	End With
End Function
</SCRIPT>
</BODY>

8:
How can I assign multiple values for variables %1, %2, ...

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "currency(%1 + %2)"
		.EvaluationText = "%1 = 100;%2 = 200"
	End With
End Function
</SCRIPT>
</BODY>

7:
How can I change the values to show the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "currency(value)"
		.EvaluationText = "value = 100"
	End With
End Function
</SCRIPT>
</BODY>

6:
How can I prevent changing the color when expression is invalid
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value 2"
		.ForeColorInvalid = RGB(0,0,0)
	End With
End Function
</SCRIPT>
</BODY>

5:
How can I change the color when expression is invalid
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value 2"
		.ForeColorInvalid = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

4:
How can I prevent evaluation the selection

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value + 1"
		.EvaluateSelection = False
		.HideSelection = False
		.SelLength = 1
	End With
End Function
</SCRIPT>
</BODY>

3:
How can I programatically show the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "value"
	End With
End Function
</SCRIPT>
</BODY>

2:
How can I get ride of the right-vertical line/split
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.AllowSplitter = 0
		.Expression = "value + 1"
	End With
End Function
</SCRIPT>
</BODY>

1:
How can I change the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.Expression = "value"
		.BackColor = RGB(240,240,240)
	End With
End Function
</SCRIPT>
</BODY>