96:
How can I display the value in reverse order or from bottom to top

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' +" & _
	" value ) )"
		.Minimum = -100
		.Maximum = 100
		.TickFrequency = 10
		.ThumbSize = 40
		.Orientation = 16
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

95:
How can I display the value in reverse order or from right to left

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' +" & _
	" value ) )"
		.Minimum = -100
		.Maximum = 100
		.TickFrequency = 10
		.ThumbSize = 40
		.Orientation = 17 ' OrientationEnum.exReverseOrder Or OrientationEnum.exHorizontal
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

94:
I need only to change the knob of the slider with a picture. Is it possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' +" & _
	" value ) )"
		.Minimum = -100
		.Maximum = 100
		.TickFrequency = 10
		.Background(388) = &H1000000
		.ThumbSize = 40
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

93:
Is it possible to print the control's Value on the thumb

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Slider1_Change()
	With Slider1
		.Caption(256) = .Value
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickStyle = 2
		.ThumbSize = 48
		.TickFrequency = 0
		.Value = 5
	End With
End Function
</SCRIPT>
</BODY>

92:
How can I display the value on the thumb

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Slider1_Change()
	With Slider1
		.Caption(256) = .ValueF
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.AllowFloat = True
		.MinimumF = -3.25
		.MaximumF = 3.25
		.SmallChangeF = 0.25
		.ThumbSize = 48
		.ValueF = 0
		.TickStyle = 2
		.TickFrequencyF = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

91:
How can I display a different text than the slider's value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.LabelTick = "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' split ' ')"
	End With
End Function
</SCRIPT>
</BODY>

90:
How can I show values for selec range only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.SelectRange = True
		.SelStart = 1
		.SelLength = 2
		.LabelTick = "value=current ? '<b><font ;10>' + value : ( value>=smin and value<=smax ? '<fgcolor=0000FF>' + value : '' ) "
	End With
End Function
</SCRIPT>
</BODY>

89:
Is it possible to display min max value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' +" & _
	" value ) )"
	End With
End Function
</SCRIPT>
</BODY>

88:
How can I show the value for current value only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.LabelTick = "value = current ? value : ''"
	End With
End Function
</SCRIPT>
</BODY>

87:
Is it possible to show the value using the tooltip

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Slider1_Change()
	With Slider1
		.ToolTipText = .Value
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

86:
Is it possible to show labels for ticks

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.LabelTick = "value"
	End With
End Function
</SCRIPT>
</BODY>

85:
How can I change the tooltip's border using your EBN files with a different color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H100ffa0
		.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 43
	End With
End Function
</SCRIPT>
</BODY>

84:
Can I change the color for the control's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777471 ' &H10000f8 Or AppearanceEnum.Bump Or AppearanceEnum.Sunken
	End With
End Function
</SCRIPT>
</BODY>

83:
How can I display a character from a specified font ( for vertical alignment )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Caption(256) = "<img>-1</img><font Webdings;10>a</font>"
		.Orientation = 0
	End With
End Function
</SCRIPT>
</BODY>

82:
How can I display a character from a specified font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Caption(256) = "<font Webdings;10>a</font>"
	End With
End Function
</SCRIPT>
</BODY>

81:
When I have a slider in vertical orientation, how can I get the caption horizontal

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Caption(256) = "<img>-1</img>thumb"
		.Orientation = 0
	End With
End Function
</SCRIPT>
</BODY>

80:
Does your control support floating points
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Slider1_Change()
	With Slider1
		alert( .ValueF )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.AllowFloat = True
		.MinimumF = -3
		.MaximumF = 3
		.SmallChangeF = 0.5
		.LargeChangeF = 1
		.TickFrequencyF = .SmallChangeF
		.ValueF = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

79:
How do I change the control's border, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777216 ' &H1000000
	End With
End Function
</SCRIPT>
</BODY>

78:
How can I change the color of the selected range in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Orientation = 0
		.SelectRange = True
		.SelStart = 2
		.SelLength = 2
		.Value = 1
		.Background(280) = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

77:
How can I change the color of the selection in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.SelectRange = True
		.SelStart = 2
		.SelLength = 2
		.Value = 1
		.Background(408) = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

76:
How can I change the visual appearance of the selected range in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Orientation = 0
		.SelectRange = True
		.SelStart = 2
		.SelLength = 2
		.Value = 1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(280) = &H1000000
		.Caption(1) = "selection"
	End With
End Function
</SCRIPT>
</BODY>

75:
How can I change the visual appearance of the selection in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.SelectRange = True
		.SelStart = 2
		.SelLength = 2
		.Value = 1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(408) = &H1000000
		.Caption(1) = "selection"
	End With
End Function
</SCRIPT>
</BODY>

74:
Is there any option to select a range in the control, or to highlight my selection

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.SelectRange = True
		.SelStart = 2
		.SelLength = 2
		.Value = 1
	End With
End Function
</SCRIPT>
</BODY>

73:
How can I specify the upper and lower parts using gradient colors

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Value = 3
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.Background(396) = &H1000000
		.Background(400) = &H2000000
	End With
End Function
</SCRIPT>
</BODY>

72:
How can I specify the upper and lower parts using gradient colors

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Orientation = 0
		.Value = 3
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.Background(268) = &H1000000
		.Background(272) = &H2000000
	End With
End Function
</SCRIPT>
</BODY>

71:
How can I change the color of the progress bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ShowThumbProgress = True
		.VisiblePart(640) = False
		.TickStyle = 3
		.Value = 3
		.Background(260) = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

70:
How can I change the visual appearance of the progress bar using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ShowThumbProgress = True
		.VisiblePart(640) = False
		.TickStyle = 3
		.Value = 3
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
		.Background(260) = &H1000000
		.Background(261) = &H2000000
		.Background(262) = &H1000000
		.Background(263) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

69:
How can I show a progress bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ShowThumbProgress = True
		.VisiblePart(640) = False
		.TickStyle = 3
		.Value = 3
	End With
End Function
</SCRIPT>
</BODY>

68:
May I change the color of the ticks

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

67:
How do I specify the frequency of the ticks on the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickFrequency = 2
	End With
End Function
</SCRIPT>
</BODY>

66:
How can I show the tickers on bottom/right side only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickStyle = 0
	End With
End Function
</SCRIPT>
</BODY>

65:
How can I show the tickers on top/left side only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickStyle = 1
	End With
End Function
</SCRIPT>
</BODY>

64:
How can I show the tickers on both sides

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickStyle = 2
	End With
End Function
</SCRIPT>
</BODY>

63:
How can I hide the tickers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.TickStyle = 3
	End With
End Function
</SCRIPT>
</BODY>

62:
Is there any function to show the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ShowToolTip "This message is shown when ShowToolTip methoid is called"
	End With
End Function
</SCRIPT>
</BODY>

61:
Is there any function to highligth the control when it gets the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ShowFocusRect = True
	End With
End Function
</SCRIPT>
</BODY>

60:
I am using your control in a C++ application, and I would preffer handle messages instead events
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.NotifyParent = True
	End With
End Function
</SCRIPT>
</BODY>

59:
How can I change the visual appearance of the thumb usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Orientation = 0
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
		.Background(260) = &H1000000
		.Background(261) = &H2000000
		.Background(262) = &H1000000
		.Background(263) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

58:
How can I change the visual appearance of the thumb usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
		.Background(260) = &H1000000
		.Background(261) = &H2000000
		.Background(262) = &H1000000
		.Background(263) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

57:
Can I indent the caption in parts of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 64
		.Caption(256) = "20 pixels<br>from left"
		.CaptionAlignment(256) = 0
		.CaptionIndentX(256) = 20
		.Value = 3
	End With
End Function
</SCRIPT>
</BODY>

56:
Does your control support owner draw feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.OwnerDrawPart(256) = True
	End With
End Function
</SCRIPT>
</BODY>

55:
Can I assing any extra data to a button or part of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.UserData(256) = "This is just some extra data assigned to the control's thumb"
	End With
End Function
</SCRIPT>
</BODY>

54:
How can I specify the size of the thumb
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 48
	End With
End Function
</SCRIPT>
</BODY>

53:
Can I change the tooltip's border using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

52:
Can I change the tooltip's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ToolTipText = "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

51:
Can I change the tooltip's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Background(65) = RGB(255,0,0)
		.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

50:
Can I change the tooltip's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ToolTipText = "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

49:
Can I change the tooltip's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Background(66) = RGB(255,0,0)
		.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

48:
Can I change the tooltip's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.ToolTipWidth = 256
		.ToolTipText = "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a" & _
	" new position"
		.Value = 4
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

47:
Can I change the tooltip's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.ToolTipTitle = "Title"
		.ToolTipText = "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a" & _
	" new position"
		.Value = 4
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

46:
Can I change the tooltip's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		Set f = CreateObject("StdFont")
		With f
			.Name = "Tahoma"
			.Size = 12
		End With
		.ToolTipFont = f
		.ToolTipTitle = "Title"
		.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

45:
Can I display a tooltip when user clicks the thumb and drags it to a new position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ToolTipTitle = "Title"
		.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

44:
How can I get the value from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		var_ValueFromPoint = .ValueFromPoint(-1,-1)
	End With
End Function
</SCRIPT>
</BODY>

43:
Is there any function to identify the part from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		var_PartFromPoint = .PartFromPoint(-1,-1) ' .PartFromPoint(-1,-1)
	End With
End Function
</SCRIPT>
</BODY>

42:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.LargeChange = 2
	End With
End Function
</SCRIPT>
</BODY>

41:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.SmallChange = 1
	End With
End Function
</SCRIPT>
</BODY>

40:
How do I specify the maxmimum value in the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Maximum = 20
		.Value = 10
	End With
End Function
</SCRIPT>
</BODY>

39:
How do I specify the minimum value in the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Minimum = 2
		.Value = 3
	End With
End Function
</SCRIPT>
</BODY>

38:
How do I change control's position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

37:
How do I change the position of the thumb
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

36:
How do I enable or disable a part of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Value = 2
		.ThumbSize = 48
		.EnablePart(256) = False
		.Caption(256) = "<fgcolor=808080>thumb</fgcolor>"
	End With
End Function
</SCRIPT>
</BODY>

35:
How do show or hide parts in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.VisiblePart(256) = False
	End With
End Function
</SCRIPT>
</BODY>

34:
How do I arrange the control vertically

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Orientation = 0
	End With
End Function
</SCRIPT>
</BODY>

33:
How do I prevent painting the control when I perform several changes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
		.Caption(256) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
		.ThumbSize = 124
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

32:
How do I add icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 64
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Caption(256) = "<img>1</img>thumb"
	End With
End Function
</SCRIPT>
</BODY>

31:
How can I align the caption to the right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 64
		.Caption(256) = "thumb right"
		.CaptionAlignment(256) = 2
	End With
End Function
</SCRIPT>
</BODY>

30:
How can I align the caption to the left

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 64
		.Caption(256) = " thumb left"
		.CaptionAlignment(256) = 0
	End With
End Function
</SCRIPT>
</BODY>

29:
How can show the caption using a different font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Caption(512) = "<font Tahoma;12>upper</font> part"
		.Caption(128) = "<font ;4>lower</font> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

28:
Is there any option to display icons or pictures in the parts of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 124
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
		.Caption(256) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
	End With
End Function
</SCRIPT>
</BODY>

27:
Is there any option to display icons or pictures in the parts of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 124
		.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
		.Caption(256) = "<img>p1</img> thumb <img>p2</img>"
	End With
End Function
</SCRIPT>
</BODY>

26:
Is there any option to display icons or pictures in the parts of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Caption(256) = "<img>1</img> thumb <img>2</img>"
	End With
End Function
</SCRIPT>
</BODY>

25:
Is there any option to display icons or pictures in the parts of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Caption(256) = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb"
	End With
End Function
</SCRIPT>
</BODY>

24:
Is there any option to display icons or pictures in the parts of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Caption(256) = "<img>1</img>thumb"
	End With
End Function
</SCRIPT>
</BODY>

23:
How can paint the caption using multiple lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 48
		.Caption(256) = "line1<br>line2"
	End With
End Function
</SCRIPT>
</BODY>

22:
How can change the background color for a portion of text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Caption(512) = "<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
		.Caption(128) = "<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

21:
How can change the foreground color for a portion of text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Caption(512) = "<fgcolor=FF0000>upper</fgcolor> part"
		.Caption(128) = "<fgcolor=0000FF>upper</fgcolor> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

20:
How can show the caption as strikeout

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		Set f = CreateObject("StdFont")
		With f
			.Name = "Tahoma"
			.Size = 12
		End With
		.Font = f
		.Caption(512) = "<s>upper</s> part"
		.Caption(128) = "<s>lower</s> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

19:
How can underline a portion of the caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		Set f = CreateObject("StdFont")
		With f
			.Name = "Tahoma"
			.Size = 12
		End With
		.Font = f
		.Caption(512) = "<u>upper</u> part"
		.Caption(128) = "<u>lower</u> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

18:
How can I draw in italic a portion of the caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		Set f = CreateObject("StdFont")
		With f
			.Name = "Tahoma"
			.Size = 12
		End With
		.Font = f
		.Caption(512) = "<i>upper</i> part"
		.Caption(128) = "<i>lower</i> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

17:
How can I draw in bold a portion of the caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		Set f = CreateObject("StdFont")
		With f
			.Name = "Tahoma"
			.Size = 12
		End With
		.Font = f
		.Caption(512) = "<b>upper</b> part"
		.Caption(128) = "<b>lower</b> part"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

16:
How can I put a text on the background part in the lower or upper side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Caption(512) = "upper"
		.Caption(128) = "lower"
		.Value = 4
	End With
End Function
</SCRIPT>
</BODY>

15:
How can I put a text on the background part

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Caption(640) = "background"
	End With
End Function
</SCRIPT>
</BODY>

14:
How can I put a text on the thumb

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 32
		.Caption(256) = "thumb"
	End With
End Function
</SCRIPT>
</BODY>

13:
How can I disable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

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

12:
How do I put a picture on the center of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
	End With
End Function
</SCRIPT>
</BODY>

11:
How do I resize/stretch a picture on the control's background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
	End With
End Function
</SCRIPT>
</BODY>

10:
How do I put a picture on the control's center right bottom side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I put a picture on the control's center left bottom side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
	End With
End Function
</SCRIPT>
</BODY>

8:
How do I put a picture on the control's center top side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
		.Value = 5
	End With
End Function
</SCRIPT>
</BODY>

7:
How do I put a picture on the control's right top corner

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
		.Value = 5
	End With
End Function
</SCRIPT>
</BODY>

6:
How do I put a picture on the control's left top corner

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
		.Value = 5
	End With
End Function
</SCRIPT>
</BODY>

5:
How do I put a picture on the control's background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>

4:
How can I change the size of control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 96
		.Font.Size = 12
		.ForeColor = RGB(255,0,0)
		.Caption(256) = "thumb"
	End With
End Function
</SCRIPT>
</BODY>

3:
How do I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ThumbSize = 32
		.Font.Name = "Tahoma"
		.ForeColor = RGB(255,0,0)
		.Caption(256) = "thumb"
	End With
End Function
</SCRIPT>
</BODY>

2:
How can I change the control's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.ForeColor = RGB(255,0,0)
		.ThumbSize = 32
		.Caption(256) = "thumb"
	End With
End Function
</SCRIPT>
</BODY>

1:
How can I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Slider1
		.BackColor = RGB(0,255,0)
	End With
End Function
</SCRIPT>
</BODY>