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

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider.Minimum = -100
oSlider.Maximum = 100
oSlider.TickFrequency = 10
oSlider.ThumbSize = 40
oSlider.Orientation = 16
oSlider.EndUpdate()

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider.Minimum = -100
oSlider.Maximum = 100
oSlider.TickFrequency = 10
oSlider.ThumbSize = 40
oSlider.Orientation = 17 /*exReverseOrder | exHorizontal*/
oSlider.EndUpdate()

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"
oSlider.Minimum = -100
oSlider.Maximum = 100
oSlider.TickFrequency = 10
oSlider.Background(388,16777216 /*0x1000000*/)
oSlider.ThumbSize = 40
oSlider.EndUpdate()

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

/*begin event Change() - Occurs when the value of the control is changed.*/
/*
	oSlider = ole_1.Object
	oSlider.Caption(256,String(oSlider.Value))
*/
/*end event Change*/

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickStyle = 2
oSlider.ThumbSize = 48
oSlider.TickFrequency = 0
oSlider.Value = 5

92:
How can I display the value on the thumb

/*begin event Change() - Occurs when the value of the control is changed.*/
/*
	oSlider = ole_1.Object
	oSlider.Caption(256,String(oSlider.ValueF))
*/
/*end event Change*/

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.AllowFloat = true
oSlider.MinimumF = -3.25
oSlider.MaximumF = 3.25
oSlider.SmallChangeF = 0.25
oSlider.ThumbSize = 48
oSlider.ValueF = 0
oSlider.TickStyle = 2
oSlider.TickFrequencyF = 0
oSlider.EndUpdate()

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.LabelTick = "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' split ' ')"

90:
How can I show values for selec range only

OleObject oSlider

oSlider = ole_1.Object
oSlider.SelectRange = true
oSlider.SelStart = 1
oSlider.SelLength = 2
oSlider.LabelTick = "value=current ? '<b><font ;10>' + value : ( value>=smin and value<=smax ? '<fgcolor=0000FF>' + value : '' ) "

89:
Is it possible to display min max value

OleObject oSlider

oSlider = ole_1.Object
oSlider.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' + value ) )"

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.LabelTick = "value = current ? value : ''"

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

/*begin event Change() - Occurs when the value of the control is changed.*/
/*
	oSlider = ole_1.Object
	oSlider.ToolTipText = String(oSlider.Value)
*/
/*end event Change*/

OleObject oSlider

oSlider = ole_1.Object

86:
Is it possible to show labels for ticks

OleObject oSlider

oSlider = ole_1.Object
oSlider.LabelTick = "value"

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Background(64,16842656 /*0x100ffa0*/)
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 43

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Appearance = 16777471 /*0x10000f8 | Bump | Sunken*/

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Caption(256,"<img>-1</img><font Webdings;10>a</font>")
oSlider.Orientation = 0

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Caption(256,"<font Webdings;10>a</font>")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Caption(256,"<img>-1</img>thumb")
oSlider.Orientation = 0

80:
Does your control support floating points
/*begin event Change() - Occurs when the value of the control is changed.*/
/*
	oSlider = ole_1.Object
	MessageBox("Information",string( String(oSlider.ValueF) ))
*/
/*end event Change*/

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.AllowFloat = true
oSlider.MinimumF = -3
oSlider.MaximumF = 3
oSlider.SmallChangeF = 0.5
oSlider.LargeChangeF = 1
oSlider.TickFrequencyF = oSlider.SmallChangeF
oSlider.ValueF = 0
oSlider.EndUpdate()

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Appearance = 16777216 /*0x1000000 | */

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Orientation = 0
oSlider.SelectRange = true
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.Background(280,RGB(255,0,0))

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.SelectRange = true
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.Background(408,RGB(255,0,0))

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Orientation = 0
oSlider.SelectRange = true
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Background(280,16777216 /*0x1000000*/)
oSlider.Caption(1,"selection")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.SelectRange = true
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Background(408,16777216 /*0x1000000*/)
oSlider.Caption(1,"selection")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.SelectRange = true
oSlider.SelStart = 2
oSlider.SelLength = 2
oSlider.Value = 1

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Value = 3
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.Background(396,16777216 /*0x1000000*/)
oSlider.Background(400,33554432 /*0x2000000*/)

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Orientation = 0
oSlider.Value = 3
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.Background(268,16777216 /*0x1000000*/)
oSlider.Background(272,33554432 /*0x2000000*/)

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ShowThumbProgress = true
oSlider.VisiblePart(640,false)
oSlider.TickStyle = 3
oSlider.Value = 3
oSlider.Background(260,RGB(255,0,0))

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ShowThumbProgress = true
oSlider.VisiblePart(640,false)
oSlider.TickStyle = 3
oSlider.Value = 3
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oSlider.Background(260,16777216 /*0x1000000*/)
oSlider.Background(261,33554432 /*0x2000000*/)
oSlider.Background(262,16777216 /*0x1000000*/)
oSlider.Background(263,50331648 /*0x3000000*/)

69:
How can I show a progress bar

OleObject oSlider

oSlider = ole_1.Object
oSlider.ShowThumbProgress = true
oSlider.VisiblePart(640,false)
oSlider.TickStyle = 3
oSlider.Value = 3

68:
May I change the color of the ticks

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickColor = RGB(255,0,0)

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickFrequency = 2

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickStyle = 0

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickStyle = 1

64:
How can I show the tickers on both sides

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickStyle = 2

63:
How can I hide the tickers

OleObject oSlider

oSlider = ole_1.Object
oSlider.TickStyle = 3

62:
Is there any function to show the tooltip
OleObject oSlider

oSlider = ole_1.Object
oSlider.ShowToolTip("This message is shown when ShowToolTip methoid is called")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ShowFocusRect = true

60:
I am using your control in a C++ application, and I would preffer handle messages instead events
OleObject oSlider

oSlider = ole_1.Object
oSlider.NotifyParent = true

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Orientation = 0
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oSlider.Background(260,16777216 /*0x1000000*/)
oSlider.Background(261,33554432 /*0x2000000*/)
oSlider.Background(262,16777216 /*0x1000000*/)
oSlider.Background(263,50331648 /*0x3000000*/)

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oSlider.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oSlider.Background(260,16777216 /*0x1000000*/)
oSlider.Background(261,33554432 /*0x2000000*/)
oSlider.Background(262,16777216 /*0x1000000*/)
oSlider.Background(263,50331648 /*0x3000000*/)

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 64
oSlider.Caption(256,"20 pixels<br>from left")
oSlider.CaptionAlignment(256,0)
oSlider.CaptionIndentX(256,20)
oSlider.Value = 3

56:
Does your control support owner draw feature
OleObject oSlider

oSlider = ole_1.Object
oSlider.OwnerDrawPart(256,true)

55:
Can I assing any extra data to a button or part of the control
OleObject oSlider

oSlider = ole_1.Object
oSlider.UserData(256,"This is just some extra data assigned to the control's thumb")

54:
How can I specify the size of the thumb
OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 48

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSlider.Background(64,16777216 /*0x1000000*/)
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

52:
Can I change the tooltip's background color

OleObject oSlider

oSlider = ole_1.Object
oSlider.ToolTipText = "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

51:
Can I change the tooltip's background color

OleObject oSlider

oSlider = ole_1.Object
oSlider.Background(65,RGB(255,0,0))
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

50:
Can I change the tooltip's foreground color

OleObject oSlider

oSlider = ole_1.Object
oSlider.ToolTipText = "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

49:
Can I change the tooltip's foreground color

OleObject oSlider

oSlider = ole_1.Object
oSlider.Background(66,RGB(255,0,0))
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

48:
Can I change the tooltip's width

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.ToolTipWidth = 256
oSlider.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"
oSlider.Value = 4
oSlider.EndUpdate()

47:
Can I change the tooltip's font

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.ToolTipTitle = "Title"
oSlider.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"
oSlider.Value = 4
oSlider.EndUpdate()

46:
Can I change the tooltip's font

OleObject f,oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.ToolTipFont = f
oSlider.ToolTipTitle = "Title"
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4
oSlider.EndUpdate()

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ToolTipTitle = "Title"
oSlider.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oSlider.Value = 4

44:
How can I get the value from the cursor
OleObject oSlider
any var_ValueFromPoint

oSlider = ole_1.Object
var_ValueFromPoint = oSlider.ValueFromPoint(-1,-1)

43:
Is there any function to identify the part from the cursor
OleObject oSlider
any var_PartFromPoint

oSlider = ole_1.Object
var_PartFromPoint = oSlider.PartFromPoint(-1,-1)

42:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
OleObject oSlider

oSlider = ole_1.Object
oSlider.LargeChange = 2

41:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
OleObject oSlider

oSlider = ole_1.Object
oSlider.SmallChange = 1

40:
How do I specify the maxmimum value in the control
OleObject oSlider

oSlider = ole_1.Object
oSlider.Maximum = 20
oSlider.Value = 10

39:
How do I specify the minimum value in the control
OleObject oSlider

oSlider = ole_1.Object
oSlider.Minimum = 2
oSlider.Value = 3

38:
How do I change control's position
OleObject oSlider

oSlider = ole_1.Object
oSlider.Value = 4

37:
How do I change the position of the thumb
OleObject oSlider

oSlider = ole_1.Object
oSlider.Value = 4

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Value = 2
oSlider.ThumbSize = 48
oSlider.EnablePart(256,false)
oSlider.Caption(256,"<fgcolor=808080>thumb</fgcolor>")

35:
How do show or hide parts in the control

OleObject oSlider

oSlider = ole_1.Object
oSlider.VisiblePart(256,false)

34:
How do I arrange the control vertically

OleObject oSlider

oSlider = ole_1.Object
oSlider.Orientation = 0

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
oSlider.HTMLPicture("p2","c:\exontrol\images\auction.gif")
oSlider.Caption(256,"<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon")
oSlider.ThumbSize = 124
oSlider.EndUpdate()

32:
How do I add icons

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 64
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Caption(256,"<img>1</img>thumb")

31:
How can I align the caption to the right

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 64
oSlider.Caption(256,"thumb right")
oSlider.CaptionAlignment(256,2)

30:
How can I align the caption to the left

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 64
oSlider.Caption(256," thumb left")
oSlider.CaptionAlignment(256,0)

29:
How can show the caption using a different font

OleObject oSlider

oSlider = ole_1.Object
oSlider.Caption(512,"<font Tahoma;12>upper</font> part")
oSlider.Caption(128,"<font ;4>lower</font> part")
oSlider.Value = 4

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 124
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
oSlider.HTMLPicture("p2","c:\exontrol\images\auction.gif")
oSlider.Caption(256,"<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 124
oSlider.HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
oSlider.HTMLPicture("p2","c:\exontrol\images\auction.gif")
oSlider.Caption(256,"<img>p1</img> thumb <img>p2</img>")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Caption(256,"<img>1</img> thumb <img>2</img>")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Caption(256,"<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSlider.Caption(256,"<img>1</img>thumb")

23:
How can paint the caption using multiple lines

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 48
oSlider.Caption(256,"line1<br>line2")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Caption(512,"<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part")
oSlider.Caption(128,"<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part")
oSlider.Value = 4

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Caption(512,"<fgcolor=FF0000>upper</fgcolor> part")
oSlider.Caption(128,"<fgcolor=0000FF>upper</fgcolor> part")
oSlider.Value = 4

20:
How can show the caption as strikeout

OleObject f,oSlider

oSlider = ole_1.Object
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Caption(512,"<s>upper</s> part")
oSlider.Caption(128,"<s>lower</s> part")
oSlider.Value = 4

19:
How can underline a portion of the caption

OleObject f,oSlider

oSlider = ole_1.Object
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Caption(512,"<u>upper</u> part")
oSlider.Caption(128,"<u>lower</u> part")
oSlider.Value = 4

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

OleObject f,oSlider

oSlider = ole_1.Object
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Caption(512,"<i>upper</i> part")
oSlider.Caption(128,"<i>lower</i> part")
oSlider.Value = 4

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

OleObject f,oSlider

oSlider = ole_1.Object
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oSlider.Font = f
oSlider.Caption(512,"<b>upper</b> part")
oSlider.Caption(128,"<b>lower</b> part")
oSlider.Value = 4

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Caption(512,"upper")
oSlider.Caption(128,"lower")
oSlider.Value = 4

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Caption(640,"background")

14:
How can I put a text on the thumb

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 32
oSlider.Caption(256,"thumb")

13:
How can I disable the control
OleObject oSlider

oSlider = ole_1.Object
oSlider.Enabled = false

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 17

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 49

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 34

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 32

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 1
oSlider.Value = 5

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 2
oSlider.Value = 5

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oSlider.PictureDisplay = 0
oSlider.Value = 5

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.Picture = oSlider.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 96
oSlider.Font.Size = 12
oSlider.ForeColor = RGB(255,0,0)
oSlider.Caption(256,"thumb")

3:
How do I change the control's font

OleObject oSlider

oSlider = ole_1.Object
oSlider.ThumbSize = 32
oSlider.Font.Name = "Tahoma"
oSlider.ForeColor = RGB(255,0,0)
oSlider.Caption(256,"thumb")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.ForeColor = RGB(255,0,0)
oSlider.ThumbSize = 32
oSlider.Caption(256,"thumb")

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

OleObject oSlider

oSlider = ole_1.Object
oSlider.BackColor = RGB(0,255,0)