87:
I can not reach the Maximum value I set. What can be the problem
*** Changing event - Occurs when the value of the control is about to change. ***
LPARAMETERS OldValue,NewValue
	with thisform.ScrollBar1
		.ToolTipText = NewValue
	endwith

with thisform.ScrollBar1
	.IgnoreLargeChange = .T.
	.Maximum = 128
	.Value = 128
endwith
86:
How do I use the RenderType property

with thisform.ScrollBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(260) = 0x1000000
	.VisualAppearance.RenderType = 1073742079
endwith
85:
How can I make a spin control

*** Change event - Occurs when the value of the control is changed. ***
LPARAMETERS nop
	with thisform.ScrollBar1
		DEBUGOUT( "Change" )
		DEBUGOUT( .Value )
	endwith

with thisform.ScrollBar1
	.ThumbSize = 0
endwith
84:
How can I change the tooltip's border using your EBN files with a different color

with thisform.ScrollBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x100ffa0
	.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.Value = 43
endwith
83:
Can I change the color for the control's border

with thisform.ScrollBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777471 && 0x10000f8 Or AppearanceEnum.Bump Or AppearanceEnum.Sunken
endwith
82:
How do I change the control's border, using your EBN files

with thisform.ScrollBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216 && 0x1000000
endwith
81:
How can I change the visual appearance of the right button usign your EBN files

with thisform.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")
	.Object.Background(392) = 0x1000000
	.Object.Background(393) = 0x2000000
	.Object.Background(394) = 0x1000000
	.Object.Background(395) = 0x3000000
endwith
80:
How can I change the visual appearance of the thumb usign your EBN files

with thisform.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")
	.Object.Background(388) = 0x1000000
	.Object.Background(389) = 0x2000000
	.Object.Background(390) = 0x1000000
	.Object.Background(391) = 0x3000000
endwith
79:
How can I change the visual appearance of the left button usign your EBN files

with thisform.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")
	.Object.Background(384) = 0x1000000
	.Object.Background(385) = 0x2000000
	.Object.Background(386) = 0x1000000
	.Object.Background(387) = 0x3000000
endwith
78:
How can I change the visual appearance for all buttons usign your EBN files

with thisform.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")
	.Object.Background(324) = 0x1000000
	.Object.Background(325) = 0x2000000
	.Object.Background(326) = 0x1000000
	.Object.Background(327) = 0x3000000
endwith
77:
How can I change the visual appearance of the down button usign your EBN files

with thisform.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")
	.Object.Background(264) = 0x1000000
	.Object.Background(265) = 0x2000000
	.Object.Background(266) = 0x1000000
	.Object.Background(267) = 0x3000000
endwith
76:
How can I change the visual appearance of the thumb usign your EBN files

with thisform.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")
	.Object.Background(260) = 0x1000000
	.Object.Background(261) = 0x2000000
	.Object.Background(262) = 0x1000000
	.Object.Background(263) = 0x3000000
endwith
75:
How can I change the visual appearance of the up button usign your EBN files

with thisform.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")
	.Object.Background(256) = 0x1000000
	.Object.Background(257) = 0x2000000
	.Object.Background(258) = 0x1000000
	.Object.Background(259) = 0x3000000
endwith
74:
How can I change the visual appearance for all buttons usign your EBN files

with thisform.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")
	.Object.Background(324) = 0x1000000
	.Object.Background(325) = 0x2000000
	.Object.Background(326) = 0x1000000
	.Object.Background(327) = 0x3000000
endwith
73:
Can I indent the caption in the button or part

with thisform.ScrollBar1
	.Object.Caption(256) = "<img>0</img>thumb indented by 20 pixels and moved up by 5 pixels"
	.Object.CaptionAlignment(256) = 0
	.Object.CaptionIndentX(256) = 20
	.Object.CaptionIndentY(256) = -5
endwith
72:
Can I indent the caption in the button or part

with thisform.ScrollBar1
	.Object.Caption(256) = "<img>0</img>thumb indented by 20 pixels"
	.Object.CaptionAlignment(256) = 0
	.Object.CaptionIndentX(256) = 20
endwith
71:
Can i specify to ignore the large change value when getting the maximum value
with thisform.ScrollBar1
	.IgnoreLargeChange = .T.
endwith
70:
Is there any way to specify the order of the buttons/parts

with thisform.ScrollBar1
	.OrderParts = "l,r,t"
	.Value = 15
endwith
69:
Does your control support owner draw feature
with thisform.ScrollBar1
	.Object.OwnerDrawPart(256) = .T.
endwith
68:
Can I assing any extra data to a button or part of the control
with thisform.ScrollBar1
	.Object.UserData(256) = "This is just some extra data assigned to the control's thumb"
endwith
67:
How can I specify the size of the thumb

with thisform.ScrollBar1
	.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>"
	.ThumbSize = 48
endwith
66:
Is there any property to disable the up or down button, as a disable when there is no scroll

with thisform.ScrollBar1
	.DisableNoScroll = .T.
endwith
65:
Is there any property to disable the up or down button, so user can't click it

with thisform.ScrollBar1
	.Object.EnablePart(64) = .F.
endwith
64:
Is there any property to disable the up or down button, so user can't click it

with thisform.ScrollBar1
	.DisableNoScroll = .T.
endwith
63:
Can I change the tooltip's border using your EBN files

with thisform.ScrollBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x1000000
	.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
	.Value = 43
endwith
62:
Can I change the tooltip's background color

with thisform.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
endwith
61:
Can I change the tooltip's background color

with thisform.ScrollBar1
	.Object.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
endwith
60:
Can I change the tooltip's foreground color

with thisform.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
endwith
59:
Can I change the tooltip's foreground color

with thisform.ScrollBar1
	.Object.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
endwith
58:
Can I change the tooltip's width

with thisform.ScrollBar1
	.BeginUpdate
	.ToolTipWidth = 256
	var_s = "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 "
	var_s = var_s + "new position"
	.ToolTipText = var_s
	.Value = 43
	.EndUpdate
endwith
57:
Can I change the tooltip's font

with thisform.ScrollBar1
	.BeginUpdate
	.ToolTipTitle = "Title"
	var_s = "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 "
	var_s = var_s + "new position"
	.ToolTipText = var_s
	.Value = 43
	.EndUpdate
endwith
56:
Can I change the tooltip's font

with thisform.ScrollBar1
	.BeginUpdate
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.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
endwith
55:
Can I display a tooltip when user clicks the thumb and drags it to a new position

with thisform.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
endwith
54:
Is there any function to specify the size/width of the buttons

with thisform.ScrollBar1
	.Mode = 1
	.BtnWidth = 32
endwith
53:
Is there any function to specify the size/height of the buttons

with thisform.ScrollBar1
	.BtnHeight = 32
endwith
52:
How do scroll to a specified position
with thisform.ScrollBar1
	.Value = 10
endwith
51:
How do scroll to a specified position
with thisform.ScrollBar1
	.Scroll(4,10)
endwith
50:
How do simulate clicking the down button
with thisform.ScrollBar1
	.Scroll(1,0)
endwith
49:
I am using your control in a C++ application, and I would preffer handle messages instead events
with thisform.ScrollBar1
	.SendMessage = .T.
endwith
48:
How can I get the value from the cursor
with thisform.ScrollBar1
	var_ValueFromPoint = .ValueFromPoint(-1,-1)
endwith
47:
Is there any function to identify the part from the cursor
with thisform.ScrollBar1
	var_PartFromPoint = .PartFromPoint(-1,-1) && .PartFromPoint(-1,-1)
endwith
46:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
with thisform.ScrollBar1
	.LargeChange = 20
endwith
45:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
with thisform.ScrollBar1
	.SmallChange = 5
endwith
44:
How do I specify the maxmimum value in the control
with thisform.ScrollBar1
	.Maximum = 95
	.Value = 90
endwith
43:
How do I specify the minimum value in the control
with thisform.ScrollBar1
	.Minimum = 5
	.Value = 7
endwith
42:
How do I change control's position
with thisform.ScrollBar1
	.Value = 43
endwith
41:
How do I change the position of the thumb
with thisform.ScrollBar1
	.Value = 43
endwith
40:
How do I enable or disable a button or a part of the control

with thisform.ScrollBar1
	.Object.VisiblePart(32768) = .T.
	.Object.EnablePart(32768) = .F.
	.Object.Caption(32768) = "<img>0</img><fgcolor=808080>extra button</fgcolor>"
endwith
39:
How do show or hide buttons in the control

with thisform.ScrollBar1
	.Object.VisiblePart(32768) = .T.
	.Object.Caption(32768) = "<img>0</img>extra button"
	.Object.VisiblePart(1) = .T.
	.Object.Caption(1) = "<img>0</img>extra button"
	.Object.VisiblePart(2) = .T.
	.Object.Caption(2) = "<img>0</img>extra button"
endwith
38:
How do I arrange the control horizontally

with thisform.ScrollBar1
	.Mode = 1
endwith
37:
How do I prevent painting the control when I perform several changes

with thisform.ScrollBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+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> ... <img>1</img> icon"
	.ThumbSize = 48
	.EndUpdate
endwith
36:
How do I add icons

with thisform.ScrollBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+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
35:
How do I change the caption for the extra button I added
with thisform.ScrollBar1
	.Object.VisiblePart(32768) = .T.
	.Object.Caption(32768) = "<img>0</img>extra button"
endwith
34:
How can I align the caption to the right

with thisform.ScrollBar1
	.Object.Caption(256) = "<img>0</img>thumb right"
	.Object.CaptionAlignment(256) = 2
endwith
33:
How can I align the caption to the left

with thisform.ScrollBar1
	.Object.Caption(256) = "<img>0</img> thumb left"
	.Object.CaptionAlignment(256) = 0
endwith
32:
How can show the caption using a different font

with thisform.ScrollBar1
	.Object.Caption(512) = "<img>0</img><font Tahoma;12>upper</font> part"
	.Object.Caption(128) = "<img>0</img><font ;4>lower</font> part"
	.Value = 45
endwith
31:
Is there any option to display icons or pictures in the parts of the control

with thisform.ScrollBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+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> ... <img>1</img> icon"
	.ThumbSize = 48
endwith
30:
Is there any option to display icons or pictures in the parts of the control

with thisform.ScrollBar1
	.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>"
	.ThumbSize = 48
endwith
29:
Is there any option to display icons or pictures in the parts of the control

with thisform.ScrollBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+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
28:
Is there any option to display icons or pictures in the parts of the control

with thisform.ScrollBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+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
27:
Is there any option to display icons or pictures in the parts of the control

with thisform.ScrollBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+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
26:
How can paint the caption using multiple lines

with thisform.ScrollBar1
	.Object.Caption(256) = "<img>0</img>line1<br>line2"
endwith
25:
How can change the background color for a portion of text

with thisform.ScrollBar1
	.Object.Caption(512) = "<img>0</img><bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
	.Object.Caption(128) = "<img>0</img><bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
	.Value = 45
endwith
24:
How can change the foreground color for a portion of text

with thisform.ScrollBar1
	.Object.Caption(512) = "<img>0</img><fgcolor=FF0000>upper</fgcolor> part"
	.Object.Caption(128) = "<img>0</img><fgcolor=0000FF>upper</fgcolor> part"
	.Value = 45
endwith
23:
How can show the caption as strikeout

with thisform.ScrollBar1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<img>0</img><s>upper</s> part"
	.Object.Caption(128) = "<img>0</img><s>lower</s> part"
	.Value = 45
endwith
22:
How can underline a portion of the caption

with thisform.ScrollBar1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<img>0</img><u>upper</u> part"
	.Object.Caption(128) = "<img>0</img><u>lower</u> part"
	.Value = 45
endwith
21:
How can I draw in italic a portion of the caption

with thisform.ScrollBar1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<img>0</img><i>upper</i> part"
	.Object.Caption(128) = "<img>0</img><i>lower</i> part"
	.Value = 45
endwith
20:
How can I draw in bold a portion of the caption

with thisform.ScrollBar1
	f = CreateObject("StdFont")
	with f
		.Name = "Tahoma"
		.Size = 12
	endwith
	.Font = f
	.Object.Caption(512) = "<img>0</img><b>upper</b> part"
	.Object.Caption(128) = "<img>0</img><b>lower</b> part"
	.Value = 45
endwith
19:
How can I put a text on the background part in the lower or upper , horizontally

with thisform.ScrollBar1
	.Object.Caption(512) = "<img>0</img>upper"
	.Object.Caption(128) = "<img>0</img>lower"
	.Value = 45
endwith
18:
How can I put a text on the background part in the lower or upper side

with thisform.ScrollBar1
	.Object.Caption(512) = "upper"
	.Object.Caption(128) = "lower"
	.Value = 45
endwith
17:
How can I put a text on the background part, horizontally

with thisform.ScrollBar1
	.Object.Caption(640) = "<img>0</img>background"
endwith
16:
How can I put a text on the background part

with thisform.ScrollBar1
	.Object.Caption(640) = "background"
endwith
15:
How can I put a text on the thumb, horizontally

with thisform.ScrollBar1
	.Object.Caption(256) = "<img>0</img>thumb"
endwith
14:
How can I put a text on the thumb

with thisform.ScrollBar1
	.Object.Caption(256) = "thumb"
endwith
13:
How can I disable the control
with thisform.ScrollBar1
	.Enabled = .F.
endwith
12:
How do I put a picture on the center of the control

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 17
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
endwith
11:
How do I resize/stretch a picture on the control's background

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 49
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
endwith
10:
How do I put a picture on the control's center right bottom side

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 34
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
endwith
9:
How do I put a picture on the control's center left bottom side

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 32
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
endwith
8:
How do I put a picture on the control's center top side

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 1
	.Value = 50
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
endwith
7:
How do I put a picture on the control's right top corner

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 2
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
	.Value = 50
endwith
6:
How do I put a picture on the control's left top corner

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 0
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
	.Value = 50
endwith
5:
How do I put a picture on the control's background

with thisform.ScrollBar1
	.Picture = thisform.ScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.VisiblePart(640) = .F.
	.BackColor = 0x80000004
endwith
4:
How can I change the size of control's font

with thisform.ScrollBar1
	.Font.Size = 12
	.ForeColor = RGB(255,0,0)
	.Object.Caption(256) = "<img>0</img>thumb"
endwith
3:
How do I change the control's font

with thisform.ScrollBar1
	.Font.Name = "Tahoma"
	.ForeColor = RGB(255,0,0)
	.Object.Caption(256) = "<img>0</img>thumb"
endwith
2:
How can I change the control's foreground color

with thisform.ScrollBar1
	.ForeColor = RGB(255,0,0)
	.Object.Caption(256) = "<img>0</img>thumb"
endwith
1:
How can I change the control's background color

with thisform.ScrollBar1
	.BackColor = RGB(0,255,0)
	.Object.VisiblePart(640) = .F.
endwith