87:
I can not reach the Maximum value I set. What can be the problem
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ScrollBar1_Changing(OldValue,NewValue)
	With ScrollBar1
		.ToolTipText = NewValue
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.IgnoreLargeChange = True
		.Maximum = 128
		.Value = 128
	End With
End Function
</SCRIPT>
</BODY>

86:
How do I use the RenderType property

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(260) = &H1000000
		.VisualAppearance.RenderType = 1073742079
	End With
End Function
</SCRIPT>
</BODY>

85:
How can I make a spin control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ScrollBar1_Change()
	With ScrollBar1
		alert( "Change" )
		alert( .Value )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

81:
How can I change the visual appearance of the right button usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Mode = 1
		.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(392) = &H1000000
		.Background(393) = &H2000000
		.Background(394) = &H1000000
		.Background(395) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Mode = 1
		.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(388) = &H1000000
		.Background(389) = &H2000000
		.Background(390) = &H1000000
		.Background(391) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

79:
How can I change the visual appearance of the left button usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Mode = 1
		.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(384) = &H1000000
		.Background(385) = &H2000000
		.Background(386) = &H1000000
		.Background(387) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

78:
How can I change the visual appearance for all buttons usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Mode = 1
		.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(324) = &H1000000
		.Background(325) = &H2000000
		.Background(326) = &H1000000
		.Background(327) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

77:
How can I change the visual appearance of the down button usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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(264) = &H1000000
		.Background(265) = &H2000000
		.Background(266) = &H1000000
		.Background(267) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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>

75:
How can I change the visual appearance of the up button usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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(256) = &H1000000
		.Background(257) = &H2000000
		.Background(258) = &H1000000
		.Background(259) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

74:
How can I change the visual appearance for all buttons usign your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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(324) = &H1000000
		.Background(325) = &H2000000
		.Background(326) = &H1000000
		.Background(327) = &H3000000
	End With
End Function
</SCRIPT>
</BODY>

73:
Can I indent the caption in the button or part

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Caption(256) = "<img>0</img>thumb indented by 20 pixels and moved up by 5 pixels"
		.CaptionAlignment(256) = 0
		.CaptionIndentX(256) = 20
		.CaptionIndentY(256) = -5
	End With
End Function
</SCRIPT>
</BODY>

72:
Can I indent the caption in the button or part

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Caption(256) = "<img>0</img>thumb indented by 20 pixels"
		.CaptionAlignment(256) = 0
		.CaptionIndentX(256) = 20
	End With
End Function
</SCRIPT>
</BODY>

71:
Can i specify to ignore the large change value when getting the maximum value
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

70:
Is there any way to specify the order of the buttons/parts

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.OrderParts = "l,r,t"
		.Value = 15
	End With
End Function
</SCRIPT>
</BODY>

69:
Does your control support owner draw feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

68:
Can I assing any extra data to a button or part of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

67:
How can I specify the size of the thumb

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

66:
Is there any property to disable the up or down button, as a disable when there is no scroll

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

65:
Is there any property to disable the up or down button, so user can't click it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.EnablePart(64) = False
	End With
End Function
</SCRIPT>
</BODY>

64:
Is there any property to disable the up or down button, so user can't click it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
	End With
End Function
</SCRIPT>
</BODY>

62:
Can I change the tooltip's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
	End With
End Function
</SCRIPT>
</BODY>

61:
Can I change the tooltip's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
	End With
End Function
</SCRIPT>
</BODY>

60:
Can I change the tooltip's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
	End With
End Function
</SCRIPT>
</BODY>

59:
Can I change the tooltip's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
	End With
End Function
</SCRIPT>
</BODY>

58:
Can I change the tooltip's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

57:
Can I change the tooltip's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

56:
Can I change the tooltip's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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 = 43
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.ToolTipTitle = "Title"
		.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>

54:
Is there any function to specify the size/width of the buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Mode = 1
		.BtnWidth = 32
	End With
End Function
</SCRIPT>
</BODY>

53:
Is there any function to specify the size/height of the buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.BtnHeight = 32
	End With
End Function
</SCRIPT>
</BODY>

52:
How do scroll to a specified position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

51:
How do scroll to a specified position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Scroll 4,10
	End With
End Function
</SCRIPT>
</BODY>

50:
How do simulate clicking the down button
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Scroll 1,0
	End With
End Function
</SCRIPT>
</BODY>

49:
I am using your control in a C++ application, and I would preffer handle messages instead events
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

48:
How can I get the value from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

47:
Is there any function to identify the part from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

46:
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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

45:
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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

44:
How do I specify the maxmimum value in the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Maximum = 95
		.Value = 90
	End With
End Function
</SCRIPT>
</BODY>

43:
How do I specify the minimum value in the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Minimum = 5
		.Value = 7
	End With
End Function
</SCRIPT>
</BODY>

42:
How do I change control's position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

41:
How do I change the position of the thumb
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.VisiblePart(32768) = True
		.EnablePart(32768) = False
		.Caption(32768) = "<img>0</img><fgcolor=808080>extra button</fgcolor>"
	End With
End Function
</SCRIPT>
</BODY>

39:
How do show or hide buttons in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.VisiblePart(32768) = True
		.Caption(32768) = "<img>0</img>extra button"
		.VisiblePart(1) = True
		.Caption(1) = "<img>0</img>extra button"
		.VisiblePart(2) = True
		.Caption(2) = "<img>0</img>extra button"
	End With
End Function
</SCRIPT>
</BODY>

38:
How do I arrange the control horizontally

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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> ... <img>1</img> icon"
		.ThumbSize = 48
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

36:
How do I add icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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>

35:
How do I change the caption for the extra button I added
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.VisiblePart(32768) = True
		.Caption(32768) = "<img>0</img>extra button"
	End With
End Function
</SCRIPT>
</BODY>

34:
How can I align the caption to the right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Caption(256) = "<img>0</img>thumb right"
		.CaptionAlignment(256) = 2
	End With
End Function
</SCRIPT>
</BODY>

33:
How can I align the caption to the left

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

32:
How can show the caption using a different font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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> ... <img>1</img> icon"
		.ThumbSize = 48
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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>

26:
How can paint the caption using multiple lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Caption(256) = "<img>0</img>line1<br>line2"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

23:
How can show the caption as strikeout

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

22:
How can underline a portion of the caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

19:
How can I put a text on the background part in the lower or upper , horizontally

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Caption(512) = "<img>0</img>upper"
		.Caption(128) = "<img>0</img>lower"
		.Value = 45
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

17:
How can I put a text on the background part, horizontally

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

15:
How can I put a text on the thumb, horizontally

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Caption(256) = "<img>0</img>thumb"
	End With
End Function
</SCRIPT>
</BODY>

14:
How can I put a text on the thumb

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

13:
How can I disable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
		.VisiblePart(640) = False
		.BackColor = &H80000004
	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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
		.VisiblePart(640) = False
		.BackColor = &H80000004
	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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
		.VisiblePart(640) = False
		.BackColor = &H80000004
	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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
		.VisiblePart(640) = False
		.BackColor = &H80000004
	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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
		.Value = 50
		.VisiblePart(640) = False
		.BackColor = &H80000004
	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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
		.VisiblePart(640) = False
		.BackColor = &H80000004
		.Value = 50
	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:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
		.VisiblePart(640) = False
		.BackColor = &H80000004
		.Value = 50
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ScrollBar1
		.Picture = ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.VisiblePart(640) = False
		.BackColor = &H80000004
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

3:
How do I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:5DE2B956-5AB5-47EE-8225-6AB7F9B4FC18" id="ScrollBar1"></OBJECT>

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