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

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 = exReverseOrder
	.EndUpdate 
End With
95:
How can I display the value in reverse order or from right to left

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 = OrientationEnum.exReverseOrder Or OrientationEnum.exHorizontal
	.EndUpdate 
End With
94:
I need only to change the knob of the slider with a picture. Is it possible

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(exHSThumb) = &H1000000
	.ThumbSize = 40
	.EndUpdate 
End With
93:
Is it possible to print the control's Value on the thumb

' Change event - Occurs when the value of the control is changed.
Private Sub Slider1_Change()
	With Slider1
		.Caption(exThumbPart) = .Value
	End With
End Sub

With Slider1
	.TickStyle = exBoth
	.ThumbSize = 48
	.TickFrequency = 0
	.Value = 5
End With
92:
How can I display the value on the thumb

' Change event - Occurs when the value of the control is changed.
Private Sub Slider1_Change()
	With Slider1
		.Caption(exThumbPart) = .ValueF
	End With
End Sub

With Slider1
	.BeginUpdate 
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = exBoth
	.TickFrequencyF = 0
	.EndUpdate 
End With
91:
How can I display a different text than the slider's value

With Slider1
	.LabelTick = "( value = current ? '<b><font ;10>' : '' ) + (value array 'ab bc cd de ef fg gh hi ij jk kl' split ' ')"
End With
90:
How can I show values for selec range only

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
89:
Is it possible to display min max value

With Slider1
	.LabelTick = "value = vmin ? '<b>min<br>'+value : (value = vmax ? '<b>max<br>'+value : ( value=current ? '<b>' + value : '<fgcolor=808080>' +" & _
" value ) )"
End With
88:
How can I show the value for current value only

With Slider1
	.LabelTick = "value = current ? value : ''"
End With
87:
Is it possible to show the value using the tooltip

' Change event - Occurs when the value of the control is changed.
Private Sub Slider1_Change()
	With Slider1
		.ToolTipText = .Value
	End With
End Sub


86:
Is it possible to show labels for ticks

With Slider1
	.LabelTick = "value"
End With
85:
How can I change the tooltip's border using your EBN files with a different color

With Slider1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &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
84:
Can I change the color for the control's border

With Slider1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H10000f8 Or AppearanceEnum.Bump Or AppearanceEnum.Sunken
End With
83:
How can I display a character from a specified font ( for vertical alignment )

With Slider1
	.ThumbSize = 96
	.Caption(exThumbPart) = "<img>-1</img><font Webdings;10>a</font>"
	.Orientation = exVertical
End With
82:
How can I display a character from a specified font

With Slider1
	.ThumbSize = 96
	.Caption(exThumbPart) = "<font Webdings;10>a</font>"
End With
81:
When I have a slider in vertical orientation, how can I get the caption horizontal

With Slider1
	.ThumbSize = 96
	.Caption(exThumbPart) = "<img>-1</img>thumb"
	.Orientation = exVertical
End With
80:
Does your control support floating points
' Change event - Occurs when the value of the control is changed.
Private Sub Slider1_Change()
	With Slider1
		Debug.Print( .ValueF )
	End With
End Sub

With Slider1
	.BeginUpdate 
	.AllowFloat = True
	.MinimumF = -3
	.MaximumF = 3
	.SmallChangeF = 0.5
	.LargeChangeF = 1
	.TickFrequencyF = .SmallChangeF
	.ValueF = 0
	.EndUpdate 
End With
79:
How do I change the control's border, using your EBN files

With Slider1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1000000
End With
78:
How can I change the color of the selected range in the control

With Slider1
	.Orientation = exVertical
	.SelectRange = True
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.Background(exVSSel) = RGB(255,0,0)
End With
77:
How can I change the color of the selection in the control

With Slider1
	.SelectRange = True
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.Background(exHSSel) = RGB(255,0,0)
End With
76:
How can I change the visual appearance of the selected range in the control

With Slider1
	.Orientation = exVertical
	.SelectRange = True
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exVSSel) = &H1000000
	.Caption(exSelPart) = "selection"
End With
75:
How can I change the visual appearance of the selection in the control

With Slider1
	.SelectRange = True
	.SelStart = 2
	.SelLength = 2
	.Value = 1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exHSSel) = &H1000000
	.Caption(exSelPart) = "selection"
End With
74:
Is there any option to select a range in the control, or to highlight my selection

With Slider1
	.SelectRange = True
	.SelStart = 2
	.SelLength = 2
	.Value = 1
End With
73:
How can I specify the upper and lower parts using gradient colors

With Slider1
	.Value = 3
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exHSLower) = &H1000000
	.Background(exHSUpper) = &H2000000
End With
72:
How can I specify the upper and lower parts using gradient colors

With Slider1
	.Orientation = exVertical
	.Value = 3
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exVSLower) = &H1000000
	.Background(exVSUpper) = &H2000000
End With
71:
How can I change the color of the progress bar

With Slider1
	.ShowThumbProgress = True
	.VisiblePart(exBackgroundPart) = False
	.TickStyle = exNoTicks
	.Value = 3
	.Background(exVSThumb) = RGB(255,0,0)
End With
70:
How can I change the visual appearance of the progress bar using your EBN files

With Slider1
	.ShowThumbProgress = True
	.VisiblePart(exBackgroundPart) = False
	.TickStyle = exNoTicks
	.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(exVSThumb) = &H1000000
	.Background(exVSThumbP) = &H2000000
	.Background(exVSThumbD) = &H1000000
	.Background(exVSThumbH) = &H3000000
End With
69:
How can I show a progress bar

With Slider1
	.ShowThumbProgress = True
	.VisiblePart(exBackgroundPart) = False
	.TickStyle = exNoTicks
	.Value = 3
End With
68:
May I change the color of the ticks

With Slider1
	.TickColor = RGB(255,0,0)
End With
67:
How do I specify the frequency of the ticks on the control

With Slider1
	.TickFrequency = 2
End With
66:
How can I show the tickers on bottom/right side only

With Slider1
	.TickStyle = exBottomRight
End With
65:
How can I show the tickers on top/left side only

With Slider1
	.TickStyle = exTopLeft
End With
64:
How can I show the tickers on both sides

With Slider1
	.TickStyle = exBoth
End With
63:
How can I hide the tickers

With Slider1
	.TickStyle = exNoTicks
End With
62:
Is there any function to show the tooltip
With Slider1
	.ShowToolTip "This message is shown when ShowToolTip methoid is called"
End With
61:
Is there any function to highligth the control when it gets the focus

With Slider1
	.ShowFocusRect = True
End With
60:
I am using your control in a C++ application, and I would preffer handle messages instead events
With Slider1
	.NotifyParent = True
End With
59:
How can I change the visual appearance of the thumb usign your EBN files

With Slider1
	.Orientation = exVertical
	.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(exVSThumb) = &H1000000
	.Background(exVSThumbP) = &H2000000
	.Background(exVSThumbD) = &H1000000
	.Background(exVSThumbH) = &H3000000
End With
58:
How can I change the visual appearance of the thumb usign your EBN files

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(exVSThumb) = &H1000000
	.Background(exVSThumbP) = &H2000000
	.Background(exVSThumbD) = &H1000000
	.Background(exVSThumbH) = &H3000000
End With
57:
Can I indent the caption in parts of the control

With Slider1
	.ThumbSize = 64
	.Caption(exThumbPart) = "20 pixels<br>from left"
	.CaptionAlignment(exThumbPart) = LeftAlignment
	.CaptionIndentX(exThumbPart) = 20
	.Value = 3
End With
56:
Does your control support owner draw feature
With Slider1
	.OwnerDrawPart(exThumbPart) = True
End With
55:
Can I assing any extra data to a button or part of the control
With Slider1
	.UserData(exThumbPart) = "This is just some extra data assigned to the control's thumb"
End With
54:
How can I specify the size of the thumb
With Slider1
	.ThumbSize = 48
End With
53:
Can I change the tooltip's border using your EBN files

With Slider1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &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
52:
Can I change the tooltip's background color

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
51:
Can I change the tooltip's background color

With Slider1
	.Background(exToolTipBackColor) = 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
50:
Can I change the tooltip's foreground color

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
49:
Can I change the tooltip's foreground color

With Slider1
	.Background(exToolTipForeColor) = 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
48:
Can I change the tooltip's width

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
47:
Can I change the tooltip's font

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
46:
Can I change the tooltip's font

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
45:
Can I display a tooltip when user clicks the thumb and drags it to a new position

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
44:
How can I get the value from the cursor
With Slider1
	var_ValueFromPoint = .ValueFromPoint(-1,-1)
End With
43:
Is there any function to identify the part from the cursor
With Slider1
	var_PartFromPoint = .PartFromPoint(-1,-1)
End With
42:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
With Slider1
	.LargeChange = 2
End With
41:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
With Slider1
	.SmallChange = 1
End With
40:
How do I specify the maxmimum value in the control
With Slider1
	.Maximum = 20
	.Value = 10
End With
39:
How do I specify the minimum value in the control
With Slider1
	.Minimum = 2
	.Value = 3
End With
38:
How do I change control's position
With Slider1
	.Value = 4
End With
37:
How do I change the position of the thumb
With Slider1
	.Value = 4
End With
36:
How do I enable or disable a part of the control

With Slider1
	.Value = 2
	.ThumbSize = 48
	.EnablePart(exThumbPart) = False
	.Caption(exThumbPart) = "<fgcolor=808080>thumb</fgcolor>"
End With
35:
How do show or hide parts in the control

With Slider1
	.VisiblePart(exThumbPart) = False
End With
34:
How do I arrange the control vertically

With Slider1
	.Orientation = exVertical
End With
33:
How do I prevent painting the control when I perform several changes

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(exThumbPart) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
	.ThumbSize = 124
	.EndUpdate 
End With
32:
How do I add icons

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(exThumbPart) = "<img>1</img>thumb"
End With
31:
How can I align the caption to the right

With Slider1
	.ThumbSize = 64
	.Caption(exThumbPart) = "thumb right"
	.CaptionAlignment(exThumbPart) = RightAlignment
End With
30:
How can I align the caption to the left

With Slider1
	.ThumbSize = 64
	.Caption(exThumbPart) = " thumb left"
	.CaptionAlignment(exThumbPart) = LeftAlignment
End With
29:
How can show the caption using a different font

With Slider1
	.Caption(exLowerBackPart) = "<font Tahoma;12>upper</font> part"
	.Caption(exUpperBackPart) = "<font ;4>lower</font> part"
	.Value = 4
End With
28:
Is there any option to display icons or pictures in the parts of the control

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(exThumbPart) = "<img>p1</img> thumb <img>p2</img> <br><br><br>... <img>1</img> icon"
End With
27:
Is there any option to display icons or pictures in the parts of the control

With Slider1
	.ThumbSize = 124
	.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Caption(exThumbPart) = "<img>p1</img> thumb <img>p2</img>"
End With
26:
Is there any option to display icons or pictures in the parts of the control

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(exThumbPart) = "<img>1</img> thumb <img>2</img>"
End With
25:
Is there any option to display icons or pictures in the parts of the control

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(exThumbPart) = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb"
End With
24:
Is there any option to display icons or pictures in the parts of the control

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(exThumbPart) = "<img>1</img>thumb"
End With
23:
How can paint the caption using multiple lines

With Slider1
	.ThumbSize = 48
	.Caption(exThumbPart) = "line1<br>line2"
End With
22:
How can change the background color for a portion of text

With Slider1
	.Caption(exLowerBackPart) = "<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
	.Caption(exUpperBackPart) = "<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
	.Value = 4
End With
21:
How can change the foreground color for a portion of text

With Slider1
	.Caption(exLowerBackPart) = "<fgcolor=FF0000>upper</fgcolor> part"
	.Caption(exUpperBackPart) = "<fgcolor=0000FF>upper</fgcolor> part"
	.Value = 4
End With
20:
How can show the caption as strikeout

With Slider1
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	.Font = f
	.Caption(exLowerBackPart) = "<s>upper</s> part"
	.Caption(exUpperBackPart) = "<s>lower</s> part"
	.Value = 4
End With
19:
How can underline a portion of the caption

With Slider1
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	.Font = f
	.Caption(exLowerBackPart) = "<u>upper</u> part"
	.Caption(exUpperBackPart) = "<u>lower</u> part"
	.Value = 4
End With
18:
How can I draw in italic a portion of the caption

With Slider1
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	.Font = f
	.Caption(exLowerBackPart) = "<i>upper</i> part"
	.Caption(exUpperBackPart) = "<i>lower</i> part"
	.Value = 4
End With
17:
How can I draw in bold a portion of the caption

With Slider1
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	.Font = f
	.Caption(exLowerBackPart) = "<b>upper</b> part"
	.Caption(exUpperBackPart) = "<b>lower</b> part"
	.Value = 4
End With
16:
How can I put a text on the background part in the lower or upper side

With Slider1
	.Caption(exLowerBackPart) = "upper"
	.Caption(exUpperBackPart) = "lower"
	.Value = 4
End With
15:
How can I put a text on the background part

With Slider1
	.Caption(exBackgroundPart) = "background"
End With
14:
How can I put a text on the thumb

With Slider1
	.ThumbSize = 32
	.Caption(exThumbPart) = "thumb"
End With
13:
How can I disable the control
With Slider1
	.Enabled = False
End With
12:
How do I put a picture on the center of the control

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = MiddleCenter
End With
11:
How do I resize/stretch a picture on the control's background

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = Stretch
End With
10:
How do I put a picture on the control's center right bottom side

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerRight
End With
9:
How do I put a picture on the control's center left bottom side

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerLeft
End With
8:
How do I put a picture on the control's center top side

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperCenter
	.Value = 5
End With
7:
How do I put a picture on the control's right top corner

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperRight
	.Value = 5
End With
6:
How do I put a picture on the control's left top corner

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperLeft
	.Value = 5
End With
5:
How do I put a picture on the control's background

With Slider1
	.Picture = Slider1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
4:
How can I change the size of control's font

With Slider1
	.ThumbSize = 96
	.Font.Size = 12
	.ForeColor = RGB(255,0,0)
	.Caption(exThumbPart) = "thumb"
End With
3:
How do I change the control's font

With Slider1
	.ThumbSize = 32
	.Font.Name = "Tahoma"
	.ForeColor = RGB(255,0,0)
	.Caption(exThumbPart) = "thumb"
End With
2:
How can I change the control's foreground color

With Slider1
	.ForeColor = RGB(255,0,0)
	.ThumbSize = 32
	.Caption(exThumbPart) = "thumb"
End With
1:
How can I change the control's background color

With Slider1
	.BackColor = RGB(0,255,0)
End With