87:
I can not reach the Maximum value I set. What can be the problem
' Occurs when the value of the control is about to change.
function Changing as v (OldValue as N,NewValue as N)
	oScrollBar = topparent:CONTROL_ACTIVEX1.activex
	oScrollBar.ToolTipText = NewValue
end function

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.IgnoreLargeChange = .t.
oScrollBar.Maximum = 128
oScrollBar.Value = 128

86:
How do I use the RenderType property

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.Template = "Background(260) = 16777216" // oScrollBar.Background(260) = 16777216
oScrollBar.VisualAppearance.RenderType = 1073742079

85:
How can I make a spin control

' Occurs when the value of the control is changed.
function Change as v ()
	oScrollBar = topparent:CONTROL_ACTIVEX1.activex
	? "Change" 
	? oScrollBar.Value 
end function

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.ThumbSize = 0

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.Template = "Background(64) = 16842656" // oScrollBar.Background(64) = 16842656
oScrollBar.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.Appearance = 16777471 '10000f8 + Bump + Sunken

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.Appearance = 16777216 '1000000 + 

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Mode = 1
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(392) = 16777216" // oScrollBar.Background(392) = 16777216
oScrollBar.Template = "Background(393) = 33554432" // oScrollBar.Background(393) = 33554432
oScrollBar.Template = "Background(394) = 16777216" // oScrollBar.Background(394) = 16777216
oScrollBar.Template = "Background(395) = 50331648" // oScrollBar.Background(395) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Mode = 1
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(388) = 16777216" // oScrollBar.Background(388) = 16777216
oScrollBar.Template = "Background(389) = 33554432" // oScrollBar.Background(389) = 33554432
oScrollBar.Template = "Background(390) = 16777216" // oScrollBar.Background(390) = 16777216
oScrollBar.Template = "Background(391) = 50331648" // oScrollBar.Background(391) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Mode = 1
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(384) = 16777216" // oScrollBar.Background(384) = 16777216
oScrollBar.Template = "Background(385) = 33554432" // oScrollBar.Background(385) = 33554432
oScrollBar.Template = "Background(386) = 16777216" // oScrollBar.Background(386) = 16777216
oScrollBar.Template = "Background(387) = 50331648" // oScrollBar.Background(387) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Mode = 1
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(324) = 16777216" // oScrollBar.Background(324) = 16777216
oScrollBar.Template = "Background(325) = 33554432" // oScrollBar.Background(325) = 33554432
oScrollBar.Template = "Background(326) = 16777216" // oScrollBar.Background(326) = 16777216
oScrollBar.Template = "Background(327) = 50331648" // oScrollBar.Background(327) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(264) = 16777216" // oScrollBar.Background(264) = 16777216
oScrollBar.Template = "Background(265) = 33554432" // oScrollBar.Background(265) = 33554432
oScrollBar.Template = "Background(266) = 16777216" // oScrollBar.Background(266) = 16777216
oScrollBar.Template = "Background(267) = 50331648" // oScrollBar.Background(267) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(260) = 16777216" // oScrollBar.Background(260) = 16777216
oScrollBar.Template = "Background(261) = 33554432" // oScrollBar.Background(261) = 33554432
oScrollBar.Template = "Background(262) = 16777216" // oScrollBar.Background(262) = 16777216
oScrollBar.Template = "Background(263) = 50331648" // oScrollBar.Background(263) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(256) = 16777216" // oScrollBar.Background(256) = 16777216
oScrollBar.Template = "Background(257) = 33554432" // oScrollBar.Background(257) = 33554432
oScrollBar.Template = "Background(258) = 16777216" // oScrollBar.Background(258) = 16777216
oScrollBar.Template = "Background(259) = 50331648" // oScrollBar.Background(259) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oScrollBar.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oScrollBar.Template = "Background(324) = 16777216" // oScrollBar.Background(324) = 16777216
oScrollBar.Template = "Background(325) = 33554432" // oScrollBar.Background(325) = 33554432
oScrollBar.Template = "Background(326) = 16777216" // oScrollBar.Background(326) = 16777216
oScrollBar.Template = "Background(327) = 50331648" // oScrollBar.Background(327) = 50331648

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb indented by 20 pixels and moved up by 5 pixels`" // oScrollBar.Caption(256) = "<img>0</img>thumb indented by 20 pixels and moved up by 5 pixels"
oScrollBar.Template = "CaptionAlignment(256) = 0" // oScrollBar.CaptionAlignment(256) = 0
oScrollBar.Template = "CaptionIndentX(256) = 20" // oScrollBar.CaptionIndentX(256) = 20
oScrollBar.Template = "CaptionIndentY(256) = -5" // oScrollBar.CaptionIndentY(256) = -5

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb indented by 20 pixels`" // oScrollBar.Caption(256) = "<img>0</img>thumb indented by 20 pixels"
oScrollBar.Template = "CaptionAlignment(256) = 0" // oScrollBar.CaptionAlignment(256) = 0
oScrollBar.Template = "CaptionIndentX(256) = 20" // oScrollBar.CaptionIndentX(256) = 20

71:
Can i specify to ignore the large change value when getting the maximum value
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.IgnoreLargeChange = .t.

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.OrderParts = "l,r,t"
oScrollBar.Value = 15

69:
Does your control support owner draw feature
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "OwnerDrawPart(256) = True" // oScrollBar.OwnerDrawPart(256) = .t.

68:
Can I assing any extra data to a button or part of the control
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "UserData(256) = `This is just some extra data assigned to the control's thumb`" // oScrollBar.UserData(256) = "This is just some extra data assigned to the control's thumb"

67:
How can I specify the size of the thumb

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oScrollBar.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oScrollBar.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oScrollBar.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oScrollBar.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img>`" // oScrollBar.Caption(256) = "<img>p1</img> thumb <img>p2</img>"
oScrollBar.ThumbSize = 48

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.DisableNoScroll = .t.

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "EnablePart(64) = False" // oScrollBar.EnablePart(64) = .f.

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.DisableNoScroll = .t.

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oScrollBar.Template = "Background(64) = 16777216" // oScrollBar.Background(64) = 16777216
oScrollBar.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

62:
Can I change the tooltip's background color

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.ToolTipText = "This is <bgcolor=FF0000>just a text</bgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

61:
Can I change the tooltip's background color

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Background(65) = 255" // oScrollBar.Background(65) = 255
oScrollBar.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

60:
Can I change the tooltip's foreground color

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.ToolTipText = "This is <fgcolor=FF0000>just a text</fgcolor> that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

59:
Can I change the tooltip's foreground color

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Background(66) = 255" // oScrollBar.Background(66) = 255
oScrollBar.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

58:
Can I change the tooltip's width

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.BeginUpdate()
oScrollBar.ToolTipWidth = 256
oScrollBar.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"
oScrollBar.Value = 43
oScrollBar.EndUpdate()

57:
Can I change the tooltip's font

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.BeginUpdate()
oScrollBar.ToolTipTitle = "Title"
oScrollBar.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"
oScrollBar.Value = 43
oScrollBar.EndUpdate()

56:
Can I change the tooltip's font

Dim f as P
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.BeginUpdate()
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oScrollBar.ToolTipFont = f
oScrollBar.ToolTipTitle = "Title"
oScrollBar.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43
oScrollBar.EndUpdate()

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.ToolTipTitle = "Title"
oScrollBar.ToolTipText = "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
oScrollBar.Value = 43

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Mode = 1
oScrollBar.BtnWidth = 32

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.BtnHeight = 32

52:
How do scroll to a specified position
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Value = 10

51:
How do scroll to a specified position
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Scroll(4,10)

50:
How do simulate clicking the down button
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Scroll(1,0)

49:
I am using your control in a C++ application, and I would preffer handle messages instead events
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.SendMessage = .t.

48:
How can I get the value from the cursor
Dim oScrollBar as P
Dim var_ValueFromPoint as 

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
var_ValueFromPoint = oScrollBar.ValueFromPoint(-1,-1)

47:
Is there any function to identify the part from the cursor
Dim oScrollBar as P
Dim var_PartFromPoint as 

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
var_PartFromPoint = oScrollBar.PartFromPoint(-1,-1)

46:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.LargeChange = 20

45:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.SmallChange = 5

44:
How do I specify the maxmimum value in the control
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Maximum = 95
oScrollBar.Value = 90

43:
How do I specify the minimum value in the control
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Minimum = 5
oScrollBar.Value = 7

42:
How do I change control's position
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Value = 43

41:
How do I change the position of the thumb
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Value = 43

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "VisiblePart(32768) = True" // oScrollBar.VisiblePart(32768) = .t.
oScrollBar.Template = "EnablePart(32768) = False" // oScrollBar.EnablePart(32768) = .f.
oScrollBar.Template = "Caption(32768) = `<img>0</img><fgcolor=808080>extra button</fgcolor>`" // oScrollBar.Caption(32768) = "<img>0</img><fgcolor=808080>extra button</fgcolor>"

39:
How do show or hide buttons in the control

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "VisiblePart(32768) = True" // oScrollBar.VisiblePart(32768) = .t.
oScrollBar.Template = "Caption(32768) = `<img>0</img>extra button`" // oScrollBar.Caption(32768) = "<img>0</img>extra button"
oScrollBar.Template = "VisiblePart(1) = True" // oScrollBar.VisiblePart(1) = .t.
oScrollBar.Template = "Caption(1) = `<img>0</img>extra button`" // oScrollBar.Caption(1) = "<img>0</img>extra button"
oScrollBar.Template = "VisiblePart(2) = True" // oScrollBar.VisiblePart(2) = .t.
oScrollBar.Template = "Caption(2) = `<img>0</img>extra button`" // oScrollBar.Caption(2) = "<img>0</img>extra button"

38:
How do I arrange the control horizontally

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Mode = 1

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.BeginUpdate()
oScrollBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oScrollBar.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oScrollBar.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oScrollBar.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oScrollBar.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oScrollBar.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img> ... <img>1</img> icon`" // oScrollBar.Caption(256) = "<img>p1</img> thumb <img>p2</img> ... <img>1</img> icon"
oScrollBar.ThumbSize = 48
oScrollBar.EndUpdate()

36:
How do I add icons

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oScrollBar.Template = "Caption(256) = `<img>1</img>thumb`" // oScrollBar.Caption(256) = "<img>1</img>thumb"

35:
How do I change the caption for the extra button I added
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "VisiblePart(32768) = True" // oScrollBar.VisiblePart(32768) = .t.
oScrollBar.Template = "Caption(32768) = `<img>0</img>extra button`" // oScrollBar.Caption(32768) = "<img>0</img>extra button"

34:
How can I align the caption to the right

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb right`" // oScrollBar.Caption(256) = "<img>0</img>thumb right"
oScrollBar.Template = "CaptionAlignment(256) = 2" // oScrollBar.CaptionAlignment(256) = 2

33:
How can I align the caption to the left

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `<img>0</img> thumb left`" // oScrollBar.Caption(256) = "<img>0</img> thumb left"
oScrollBar.Template = "CaptionAlignment(256) = 0" // oScrollBar.CaptionAlignment(256) = 0

32:
How can show the caption using a different font

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(512) = `<img>0</img><font Tahoma;12>upper</font> part`" // oScrollBar.Caption(512) = "<img>0</img><font Tahoma;12>upper</font> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><font ;4>lower</font> part`" // oScrollBar.Caption(128) = "<img>0</img><font ;4>lower</font> part"
oScrollBar.Value = 45

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oScrollBar.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oScrollBar.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oScrollBar.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oScrollBar.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oScrollBar.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img> ... <img>1</img> icon`" // oScrollBar.Caption(256) = "<img>p1</img> thumb <img>p2</img> ... <img>1</img> icon"
oScrollBar.ThumbSize = 48

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oScrollBar.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oScrollBar.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oScrollBar.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oScrollBar.Template = "Caption(256) = `<img>p1</img> thumb <img>p2</img>`" // oScrollBar.Caption(256) = "<img>p1</img> thumb <img>p2</img>"
oScrollBar.ThumbSize = 48

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oScrollBar.Template = "Caption(256) = `<img>1</img> thumb <img>2</img>`" // oScrollBar.Caption(256) = "<img>1</img> thumb <img>2</img>"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oScrollBar.Template = "Caption(256) = `<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb`" // oScrollBar.Caption(256) = "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img>thumb"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oScrollBar.Template = "Caption(256) = `<img>1</img>thumb`" // oScrollBar.Caption(256) = "<img>1</img>thumb"

26:
How can paint the caption using multiple lines

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `<img>0</img>line1<br>line2`" // oScrollBar.Caption(256) = "<img>0</img>line1<br>line2"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(512) = `<img>0</img><bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part`" // oScrollBar.Caption(512) = "<img>0</img><bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part`" // oScrollBar.Caption(128) = "<img>0</img><bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part"
oScrollBar.Value = 45

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(512) = `<img>0</img><fgcolor=FF0000>upper</fgcolor> part`" // oScrollBar.Caption(512) = "<img>0</img><fgcolor=FF0000>upper</fgcolor> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><fgcolor=0000FF>upper</fgcolor> part`" // oScrollBar.Caption(128) = "<img>0</img><fgcolor=0000FF>upper</fgcolor> part"
oScrollBar.Value = 45

23:
How can show the caption as strikeout

Dim f as P
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oScrollBar.Font = f
oScrollBar.Template = "Caption(512) = `<img>0</img><s>upper</s> part`" // oScrollBar.Caption(512) = "<img>0</img><s>upper</s> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><s>lower</s> part`" // oScrollBar.Caption(128) = "<img>0</img><s>lower</s> part"
oScrollBar.Value = 45

22:
How can underline a portion of the caption

Dim f as P
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oScrollBar.Font = f
oScrollBar.Template = "Caption(512) = `<img>0</img><u>upper</u> part`" // oScrollBar.Caption(512) = "<img>0</img><u>upper</u> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><u>lower</u> part`" // oScrollBar.Caption(128) = "<img>0</img><u>lower</u> part"
oScrollBar.Value = 45

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

Dim f as P
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oScrollBar.Font = f
oScrollBar.Template = "Caption(512) = `<img>0</img><i>upper</i> part`" // oScrollBar.Caption(512) = "<img>0</img><i>upper</i> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><i>lower</i> part`" // oScrollBar.Caption(128) = "<img>0</img><i>lower</i> part"
oScrollBar.Value = 45

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

Dim f as P
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Tahoma"
	f.Size = 12
oScrollBar.Font = f
oScrollBar.Template = "Caption(512) = `<img>0</img><b>upper</b> part`" // oScrollBar.Caption(512) = "<img>0</img><b>upper</b> part"
oScrollBar.Template = "Caption(128) = `<img>0</img><b>lower</b> part`" // oScrollBar.Caption(128) = "<img>0</img><b>lower</b> part"
oScrollBar.Value = 45

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(512) = `<img>0</img>upper`" // oScrollBar.Caption(512) = "<img>0</img>upper"
oScrollBar.Template = "Caption(128) = `<img>0</img>lower`" // oScrollBar.Caption(128) = "<img>0</img>lower"
oScrollBar.Value = 45

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(512) = `upper`" // oScrollBar.Caption(512) = "upper"
oScrollBar.Template = "Caption(128) = `lower`" // oScrollBar.Caption(128) = "lower"
oScrollBar.Value = 45

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(640) = `<img>0</img>background`" // oScrollBar.Caption(640) = "<img>0</img>background"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(640) = `background`" // oScrollBar.Caption(640) = "background"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb`" // oScrollBar.Caption(256) = "<img>0</img>thumb"

14:
How can I put a text on the thumb

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Template = "Caption(256) = `thumb`" // oScrollBar.Caption(256) = "thumb"

13:
How can I disable the control
Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Enabled = .f.

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 17
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 49
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 34
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 32
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 1
oScrollBar.Value = 50
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 2
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644
oScrollBar.Value = 50

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.PictureDisplay = 0
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644
oScrollBar.Value = 50

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Picture = oScrollBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.
oScrollBar.BackColor = -2147483644

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Font.Size = 12
oScrollBar.ForeColor = 255
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb`" // oScrollBar.Caption(256) = "<img>0</img>thumb"

3:
How do I change the control's font

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.Font.Name = "Tahoma"
oScrollBar.ForeColor = 255
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb`" // oScrollBar.Caption(256) = "<img>0</img>thumb"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.ForeColor = 255
oScrollBar.Template = "Caption(256) = `<img>0</img>thumb`" // oScrollBar.Caption(256) = "<img>0</img>thumb"

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

Dim oScrollBar as P

oScrollBar = topparent:CONTROL_ACTIVEX1.activex
oScrollBar.BackColor = 65280
oScrollBar.Template = "VisiblePart(640) = False" // oScrollBar.VisiblePart(640) = .f.