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>