93. Is it possible to print the control's Value on the thumb 
*** Change event - Occurs when the value of the control is changed. ***
LPARAMETERS nop
	with thisform.Slider1
		.Object.Caption(256) = .Value
	endwith

with thisform.Slider1
	.TickStyle = 2
	.ThumbSize = 48
	.TickFrequency = 0
	.Value = 5
endwith
92. How can I display the value on the thumb 
*** Change event - Occurs when the value of the control is changed. ***
LPARAMETERS nop
	with thisform.Slider1
		.Object.Caption(256) = .ValueF
	endwith

with thisform.Slider1
	.BeginUpdate
	.AllowFloat = .T.
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = 2
	.TickFrequencyF = 0
	.EndUpdate
endwith
91. How can I display a different text than the slider's value 
with thisform.Slider1
	var_s = "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' spl"
	var_s = var_s + "it ' ')"
	.LabelTick = var_s
endwith
90. How can I show values for selec range only 
with thisform.Slider1
	.SelectRange = .T.
	.SelStart = 1
	.SelLength = 2
	var_s = "value=current ? '<b><font ;10>' + value : ( value>=smin and value<=smax ? '<fgcolor=0000FF>' + v"
	var_s = var_s + "alue : '' ) "
	.LabelTick = var_s
endwith
89. Is it possible to display min max value 
with thisform.Slider1
	var_s = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>'"
	var_s = var_s + " + value : '<fgcolor=808080>' + value ) )"
	.LabelTick = var_s
endwith
88. How can I show the value for current value only 
with thisform.Slider1
	.LabelTick = "value = current ? value : ''"
endwith
87. Is it possible to show the value using the tooltip 
*** Change event - Occurs when the value of the control is changed. ***
LPARAMETERS nop
	with thisform.Slider1
		.ToolTipText = .Value
	endwith
86. Is it possible to show labels for ticks 
with thisform.Slider1
	.LabelTick = "value"
endwith
85. How can I change the tooltip's border using your EBN files with a different color 
with thisform.Slider1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x100ffa0
	var_s = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 43
endwith
84. Can I change the color for the control's border 
with thisform.Slider1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777471
endwith
83. How can I display a character from a specified font ( for vertical alignment ) 
with thisform.Slider1
	.ThumbSize = 96
	.Object.Caption(256) = "<img>-1</img><font Webdings;10>a</font>"
	.Orientation = 0
endwith
82. How can I display a character from a specified font 
with thisform.Slider1
	.ThumbSize = 96
	.Object.Caption(256) = "<font Webdings;10>a</font>"
endwith
81. When I have a slider in vertical orientation, how can I get the caption horizontal 
with thisform.Slider1
	.ThumbSize = 96
	.Object.Caption(256) = "<img>-1</img>thumb"
	.Orientation = 0
endwith
80. Does your control support floating points 
*** Change event - Occurs when the value of the control is changed. ***
LPARAMETERS nop
	with thisform.Slider1
		DEBUGOUT( .ValueF )
	endwith

with thisform.Slider1
	.BeginUpdate
	.AllowFloat = .T.
	.MinimumF = -3
	.MaximumF = 3
	.SmallChangeF = 0.5
	.LargeChangeF = 1
	.TickFrequencyF = .SmallChangeF
	.ValueF = 0
	.EndUpdate
endwith
79. How do I change the control's border, using your EBN files 
with thisform.Slider1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216
endwith
78. How can I change the color of the selected range in the control 
with thisform.Slider1
	.Orientation = 0
	.SelectRange = .T.
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.Object.Background(280) = RGB(255,0,0)
endwith
77. How can I change the color of the selection in the control 
with thisform.Slider1
	.SelectRange = .T.
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.Object.Background(408) = RGB(255,0,0)
endwith
76. How can I change the visual appearance of the selected range in the control 
with thisform.Slider1
	.Orientation = 0
	.SelectRange = .T.
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(280) = 0x1000000
	.Object.Caption(1) = "selection"
endwith
75. How can I change the visual appearance of the selection in the control 
with thisform.Slider1
	.SelectRange = .T.
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(408) = 0x1000000
	.Object.Caption(1) = "selection"
endwith
74. Is there any option to select a range in the control, or to highlight my selection 
with thisform.Slider1
	.SelectRange = .T.
	.SelStart = 2
	.SelLength = 2
	.Value = 1
endwith
73. How can I specify the upper and lower parts using gradient colors 
with thisform.Slider1
	.Value = 3
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.Object.Background(396) = 0x1000000
	.Object.Background(400) = 0x2000000
endwith
72. How can I specify the upper and lower parts using gradient colors 
with thisform.Slider1
	.Orientation = 0
	.Value = 3
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.Object.Background(268) = 0x1000000
	.Object.Background(272) = 0x2000000
endwith
71. How can I change the color of the progress bar 
with thisform.Slider1
	.ShowThumbProgress = .T.
	.Object.VisiblePart(640) = .F.
	.TickStyle = 3
	.Value = 3
	.Object.Background(260) = RGB(255,0,0)
endwith
70. How can I change the visual appearance of the progress bar using your EBN files 
with thisform.Slider1
	.ShowThumbProgress = .T.
	.Object.VisiblePart(640) = .F.
	.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")
	.Object.Background(260) = 0x1000000
	.Object.Background(261) = 0x2000000
	.Object.Background(262) = 0x1000000
	.Object.Background(263) = 0x3000000
endwith
69. How can I show a progress bar 
with thisform.Slider1
	.ShowThumbProgress = .T.
	.Object.VisiblePart(640) = .F.
	.TickStyle = 3
	.Value = 3
endwith
68. May I change the color of the ticks 
with thisform.Slider1
	.TickColor = RGB(255,0,0)
endwith
67. How do I specify the frequency of the ticks on the control 
with thisform.Slider1
	.TickFrequency = 2
endwith
66. How can I show the tickers on bottom/right side only 
with thisform.Slider1
	.TickStyle = 0
endwith
65. How can I show the tickers on top/left side only 
with thisform.Slider1
	.TickStyle = 1
endwith
64. How can I show the tickers on both sides 
with thisform.Slider1
	.TickStyle = 2
endwith
63. How can I hide the tickers 
with thisform.Slider1
	.TickStyle = 3
endwith
62. Is there any function to show the tooltip 
with thisform.Slider1
	.ShowToolTip("This message is shown when ShowToolTip methoid is called")
endwith
61. Is there any function to highligth the control when it gets the focus 
with thisform.Slider1
	.ShowFocusRect = .T.
endwith
60. I am using your control in a C++ application, and I would preffer handle messages instead events 
with thisform.Slider1
	.NotifyParent = .T.
endwith
59. How can I change the visual appearance of the thumb usign your EBN files 
with thisform.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")
	.Object.Background(260) = 0x1000000
	.Object.Background(261) = 0x2000000
	.Object.Background(262) = 0x1000000
	.Object.Background(263) = 0x3000000
endwith
58. How can I change the visual appearance of the thumb usign your EBN files 
with thisform.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")
	.Object.Background(260) = 0x1000000
	.Object.Background(261) = 0x2000000
	.Object.Background(262) = 0x1000000
	.Object.Background(263) = 0x3000000
endwith
57. Can I indent the caption in parts of the control 
with thisform.Slider1
	.ThumbSize = 64
	.Object.Caption(256) = "20 pixels<br>from left"
	.Object.CaptionAlignment(256) = 0
	.Object.CaptionIndentX(256) = 20
	.Value = 3
endwith
56. Does your control support owner draw feature 
with thisform.Slider1
	.Object.OwnerDrawPart(256) = .T.
endwith
55. Can I assing any extra data to a button or part of the control 
with thisform.Slider1
	.Object.UserData(256) = "This is just some extra data assigned to the control's thumb"
endwith
54. How can I specify the size of the thumb 
with thisform.Slider1
	.ThumbSize = 48
endwith
53. Can I change the tooltip's border using your EBN files 
with thisform.Slider1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x1000000
	var_s = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
endwith
52. Can I change the tooltip's background color 
with thisform.Slider1
	var_s = "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags th"
	var_s = var_s + "e thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
endwith
51. Can I change the tooltip's background color 
with thisform.Slider1
	.Object.Background(65) = RGB(255,0,0)
	var_s = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
endwith
50. Can I change the tooltip's foreground color 
with thisform.Slider1
	var_s = "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags th"
	var_s = var_s + "e thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
endwith
49. Can I change the tooltip's foreground color 
with thisform.Slider1
	.Object.Background(66) = RGB(255,0,0)
	var_s = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
endwith
48. Can I change the tooltip's width 
with thisform.Slider1
	.BeginUpdate
	.ToolTipWidth = 256
	var_s = "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user "
	var_s = var_s + "clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
	.EndUpdate
endwith
47. Can I change the tooltip's font 
with thisform.Slider1
	.BeginUpdate
	.ToolTipTitle = "Title"
	var_s = "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user "
	var_s = var_s + "clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
	.EndUpdate
endwith
46. Can I change the tooltip's font 
with thisform.Slider1
	.BeginUpdate
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.ToolTipFont = f
	.ToolTipTitle = "Title"
	var_s = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
	.EndUpdate
endwith
45. Can I display a tooltip when user clicks the thumb and drags it to a new position 
with thisform.Slider1
	.ToolTipTitle = "Title"
	var_s = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.ToolTipText = var_s
	.Value = 4
endwith
44. How can I get the value from the cursor 
with thisform.Slider1
	var_ValueFromPoint = .ValueFromPoint(-1,-1)
endwith
43. Is there any function to identify the part from the cursor 
with thisform.Slider1
	var_PartFromPoint = .PartFromPoint(-1,-1)
endwith
42. Is there any option to specify the value to be added or subtracted when user presses the contro's background 
with thisform.Slider1
	.LargeChange = 2
endwith
41. Is there any option to specify the value to be added or subtracted when user presses the up or down button 
with thisform.Slider1
	.SmallChange = 1
endwith
40. How do I specify the maxmimum value in the control 
with thisform.Slider1
	.Maximum = 20
	.Value = 10
endwith
39. How do I specify the minimum value in the control 
with thisform.Slider1
	.Minimum = 2
	.Value = 3
endwith
38. How do I change control's position 
with thisform.Slider1
	.Value = 4
endwith
37. How do I change the position of the thumb 
with thisform.Slider1
	.Value = 4
endwith
36. How do I enable or disable a part of the control 
with thisform.Slider1
	.Value = 2
	.ThumbSize = 48
	.Object.EnablePart(256) = .F.
	.Object.Caption(256) = "<fgcolor=808080>thumb</fgcolor>"
endwith
35. How do show or hide parts in the control 
with thisform.Slider1
	.Object.VisiblePart(256) = .F.
endwith
34. How do I arrange the control vertically 
with thisform.Slider1
	.Orientation = 0
endwith
33. How do I prevent painting the control when I perform several changes 
with thisform.Slider1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Object.Caption(256) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
	.ThumbSize = 124
	.EndUpdate
endwith
32. How do I add icons 
with thisform.Slider1
	.ThumbSize = 64
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.Caption(256) = "<img>1</img>thumb"
endwith
31. How can I align the caption to the right 
with thisform.Slider1
	.ThumbSize = 64
	.Object.Caption(256) = "thumb right"
	.Object.CaptionAlignment(256) = 2
endwith
30. How can I align the caption to the left 
with thisform.Slider1
	.ThumbSize = 64
	.Object.Caption(256) = " thumb left"
	.Object.CaptionAlignment(256) = 0
endwith
29. How can show the caption using a different font 
with thisform.Slider1
	.Object.Caption(512) = "<font Tahoma;12>upper</font> part"
	.Object.Caption(128) = "<font ;4>lower</font> part"
	.Value = 4
endwith
28. Is there any option to display icons or pictures in the parts of the control 
with thisform.Slider1
	.ThumbSize = 124
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Object.Caption(256) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
endwith
27. Is there any option to display icons or pictures in the parts of the control 
with thisform.Slider1
	.ThumbSize = 124
	.Object.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Object.Caption(256) = "<img>p1</img> thumb <img>p2</img>"
endwith
26. Is there any option to display icons or pictures in the parts of the control 
with thisform.Slider1
	.ThumbSize = 96
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.Caption(256) = "<img>1</img> thumb <img>2</img>"
endwith
25. Is there any option to display icons or pictures in the parts of the control 
with thisform.Slider1
	.ThumbSize = 96
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.Caption(256) = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb"
endwith
24. Is there any option to display icons or pictures in the parts of the control 
with thisform.Slider1
	.ThumbSize = 96
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.Caption(256) = "<img>1</img>thumb"
endwith
23. How can paint the caption using multiple lines 
with thisform.Slider1
	.ThumbSize = 48
	.Object.Caption(256) = "line1<br>line2"
endwith
22. How can change the background color for a portion of text 
with thisform.Slider1
	.Object.Caption(512) = "<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
	.Object.Caption(128) = "<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
	.Value = 4
endwith
21. How can change the foreground color for a portion of text 
with thisform.Slider1
	.Object.Caption(512) = "<fgcolor=FF0000>upper</fgcolor> part"
	.Object.Caption(128) = "<fgcolor=0000FF>upper</fgcolor> part"
	.Value = 4
endwith
20. How can show the caption as strikeout 
with thisform.Slider1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<s>upper</s> part"
	.Object.Caption(128) = "<s>lower</s> part"
	.Value = 4
endwith
19. How can underline a portion of the caption 
with thisform.Slider1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<u>upper</u> part"
	.Object.Caption(128) = "<u>lower</u> part"
	.Value = 4
endwith
18. How can I draw in italic a portion of the caption 
with thisform.Slider1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<i>upper</i> part"
	.Object.Caption(128) = "<i>lower</i> part"
	.Value = 4
endwith
17. How can I draw in bold a portion of the caption 
with thisform.Slider1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<b>upper</b> part"
	.Object.Caption(128) = "<b>lower</b> part"
	.Value = 4
endwith
16. How can I put a text on the background part in the lower or upper side 
with thisform.Slider1
	.Object.Caption(512) = "upper"
	.Object.Caption(128) = "lower"
	.Value = 4
endwith
15. How can I put a text on the background part 
with thisform.Slider1
	.Object.Caption(640) = "background"
endwith
14. How can I put a text on the thumb 
with thisform.Slider1
	.ThumbSize = 32
	.Object.Caption(256) = "thumb"
endwith
13. How can I disable the control 
with thisform.Slider1
	.Enabled = .F.
endwith
12. How do I put a picture on the center of the control 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 17
endwith
11. How do I resize/stretch a picture on the control's background 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 49
endwith
10. How do I put a picture on the control's center right bottom side 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 34
endwith
9. How do I put a picture on the control's center left bottom side 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 32
endwith
8. How do I put a picture on the control's center top side 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 1
	.Value = 5
endwith
7. How do I put a picture on the control's right top corner 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 2
	.Value = 5
endwith
6. How do I put a picture on the control's left top corner 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 0
	.Value = 5
endwith
5. How do I put a picture on the control's background 
with thisform.Slider1
	.Picture = thisform.Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith
4. How can I change the size of control's font 
with thisform.Slider1
	.ThumbSize = 96
	.Font.Size = 12
	.ForeColor = RGB(255,0,0)
	.Object.Caption(256) = "thumb"
endwith
3. How do I change the control's font 
with thisform.Slider1
	.ThumbSize = 32
	.Font.Name = "Tahoma"
	.ForeColor = RGB(255,0,0)
	.Object.Caption(256) = "thumb"
endwith
2. How can I change the control's foreground color 
with thisform.Slider1
	.ForeColor = RGB(255,0,0)
	.ThumbSize = 32
	.Object.Caption(256) = "thumb"
endwith
1. How can I change the control's background color 
with thisform.Slider1
	.BackColor = RGB(0,255,0)
endwith