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

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
95:
How can I display the value in reverse order or from right to left

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
94:
I need only to change the knob of the slider with a picture. Is it possible

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
93:
Is it possible to print the control's Value on the thumb

PROCEDURE OnChange(oSlider)
	oSlider:SetProperty("Caption",256/*exThumbPart*/,Transform(oSlider:Value(),""))
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/

		oSlider:TickStyle := 2/*exBoth*/
		oSlider:ThumbSize := 48
		oSlider:TickFrequency := 0
		oSlider:Value := 5

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
92:
How can I display the value on the thumb

PROCEDURE OnChange(oSlider)
	oSlider:SetProperty("Caption",256/*exThumbPart*/,Transform(oSlider:ValueF(),""))
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/

		oSlider:BeginUpdate()
		oSlider:AllowFloat := .T.
		oSlider:MinimumF := -3.25
		oSlider:MaximumF := 3.25
		oSlider:SmallChangeF := 0.25
		oSlider:ThumbSize := 48
		oSlider:ValueF := 0
		oSlider:TickStyle := 2/*exBoth*/
		oSlider:TickFrequencyF := 0
		oSlider:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
91:
How can I display a different text than the slider's value

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
90:
How can I show values for selec range only

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
89:
Is it possible to display min max value

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
88:
How can I show the value for current value only

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:LabelTick := "value = current ? value : ''"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
87:
Is it possible to show the value using the tooltip

PROCEDURE OnChange(oSlider)
	oSlider:ToolTipText := Transform(oSlider:Value(),"")
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
86:
Is it possible to show labels for ticks

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:LabelTick := "value"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
85:
How can I change the tooltip's border using your EBN files with a different color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
84:
Can I change the color for the control's border

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
83:
How can I display a character from a specified font ( for vertical alignment )

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 96
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>-1</img><font Webdings;10>a</font>")
		oSlider:Orientation := 0/*exVertical*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
82:
How can I display a character from a specified font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 96
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"<font Webdings;10>a</font>")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
81:
When I have a slider in vertical orientation, how can I get the caption horizontal

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 96
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"<img>-1</img>thumb")
		oSlider:Orientation := 0/*exVertical*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
80:
Does your control support floating points
PROCEDURE OnChange(oSlider)
	DevOut( Transform(oSlider:ValueF(),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Change := {|| OnChange(oSlider)} /*Occurs when the value of the control is changed.*/

		oSlider:BeginUpdate()
		oSlider:AllowFloat := .T.
		oSlider:MinimumF := -3
		oSlider:MaximumF := 3
		oSlider:SmallChangeF := 0.5
		oSlider:LargeChangeF := 1
		oSlider:TickFrequencyF := oSlider:SmallChangeF()
		oSlider:ValueF := 0
		oSlider:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
79:
How do I change the control's border, using your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
78:
How can I change the color of the selected range in the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Orientation := 0/*exVertical*/
		oSlider:SelectRange := .T.
		oSlider:SelStart := 2
		oSlider:SelLength := 2
		oSlider:Value := 1
		oSlider:SetProperty("Background",280/*exVSSel*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
77:
How can I change the color of the selection in the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SelectRange := .T.
		oSlider:SelStart := 2
		oSlider:SelLength := 2
		oSlider:Value := 1
		oSlider:SetProperty("Background",408/*exHSSel*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
76:
How can I change the visual appearance of the selected range in the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Orientation := 0/*exVertical*/
		oSlider:SelectRange := .T.
		oSlider:SelStart := 2
		oSlider:SelLength := 2
		oSlider:Value := 1
		oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oSlider:SetProperty("Background",280/*exVSSel*/,0x1000000)
		oSlider:SetProperty("Caption",1/*exSelPart*/,"selection")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
75:
How can I change the visual appearance of the selection in the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SelectRange := .T.
		oSlider:SelStart := 2
		oSlider:SelLength := 2
		oSlider:Value := 1
		oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oSlider:SetProperty("Background",408/*exHSSel*/,0x1000000)
		oSlider:SetProperty("Caption",1/*exSelPart*/,"selection")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
74:
Is there any option to select a range in the control, or to highlight my selection

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SelectRange := .T.
		oSlider:SelStart := 2
		oSlider:SelLength := 2
		oSlider:Value := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
73:
How can I specify the upper and lower parts using gradient colors

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
72:
How can I specify the upper and lower parts using gradient colors

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Orientation := 0/*exVertical*/
		oSlider:Value := 3
		oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
		oSlider:SetProperty("Background",268/*exVSLower*/,0x1000000)
		oSlider:SetProperty("Background",272/*exVSUpper*/,0x2000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
71:
How can I change the color of the progress bar

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ShowThumbProgress := .T.
		oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
		oSlider:TickStyle := 3/*exNoTicks*/
		oSlider:Value := 3
		oSlider:SetProperty("Background",260/*exVSThumb*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
70:
How can I change the visual appearance of the progress bar using your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ShowThumbProgress := .T.
		oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
		oSlider:TickStyle := 3/*exNoTicks*/
		oSlider:Value := 3
		oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
		oSlider:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
		oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
		oSlider:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
		oSlider:SetProperty("Background",262/*exVSThumbD*/,0x1000000)
		oSlider:SetProperty("Background",263/*exVSThumbH*/,0x3000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
69:
How can I show a progress bar

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ShowThumbProgress := .T.
		oSlider:SetProperty("VisiblePart",640/*exBackgroundPart*/,.F.)
		oSlider:TickStyle := 3/*exNoTicks*/
		oSlider:Value := 3

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
68:
May I change the color of the ticks

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("TickColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
67:
How do I specify the frequency of the ticks on the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:TickFrequency := 2

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
66:
How can I show the tickers on bottom/right side only

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:TickStyle := 0/*exBottomRight*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
65:
How can I show the tickers on top/left side only

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:TickStyle := 1/*exTopLeft*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
64:
How can I show the tickers on both sides

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:TickStyle := 2/*exBoth*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
63:
How can I hide the tickers

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:TickStyle := 3/*exNoTicks*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
62:
Is there any function to show the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ShowToolTip("This message is shown when ShowToolTip methoid is called")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
61:
Is there any function to highligth the control when it gets the focus

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ShowFocusRect := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
60:
I am using your control in a C++ application, and I would preffer handle messages instead events
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:NotifyParent := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
59:
How can I change the visual appearance of the thumb usign your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Orientation := 0/*exVertical*/
		oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
		oSlider:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
		oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
		oSlider:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
		oSlider:SetProperty("Background",262/*exVSThumbD*/,0x1000000)
		oSlider:SetProperty("Background",263/*exVSThumbH*/,0x3000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
58:
How can I change the visual appearance of the thumb usign your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oSlider:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
		oSlider:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
		oSlider:SetProperty("Background",260/*exVSThumb*/,0x1000000)
		oSlider:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
		oSlider:SetProperty("Background",262/*exVSThumbD*/,0x1000000)
		oSlider:SetProperty("Background",263/*exVSThumbH*/,0x3000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
57:
Can I indent the caption in parts of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 64
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"20 pixels<br>from left")
		oSlider:SetProperty("CaptionAlignment",256/*exThumbPart*/,0/*LeftAlignment*/)
		oSlider:SetProperty("CaptionIndentX",256/*exThumbPart*/,20)
		oSlider:Value := 3

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
56:
Does your control support owner draw feature
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("OwnerDrawPart",256/*exThumbPart*/,.T.)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
55:
Can I assing any extra data to a button or part of the control
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("UserData",256/*exThumbPart*/,"This is just some extra data assigned to the control's thumb")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
54:
How can I specify the size of the thumb
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 48

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
53:
Can I change the tooltip's border using your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
52:
Can I change the tooltip's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
51:
Can I change the tooltip's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
50:
Can I change the tooltip's foreground color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
49:
Can I change the tooltip's foreground color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oSlider:ToolTipText := "This is just a text that's displayed when the user clicks and drags the thumb to a new position"
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
48:
Can I change the tooltip's width

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:BeginUpdate()
		oSlider:ToolTipWidth := 256
		oSlider:ToolTipText := "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a new position"
		oSlider:Value := 4
		oSlider:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
47:
Can I change the tooltip's font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:BeginUpdate()
		oSlider:ToolTipTitle := "Title"
		oSlider:ToolTipText := "This is <font Tahoma;12>just a text with a different font</font> that's displayed when the user clicks and drags the thumb to a new position"
		oSlider:Value := 4
		oSlider:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
46:
Can I change the tooltip's font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL f

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
45:
Can I display a tooltip when user clicks the thumb and drags it to a new position

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
44:
How can I get the value from the cursor
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL var_ValueFromPoint

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		var_ValueFromPoint := oSlider:ValueFromPoint(-1,-1)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
43:
Is there any function to identify the part from the cursor
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL var_PartFromPoint

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		var_PartFromPoint := oSlider:PartFromPoint(-1,-1)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
42:
Is there any option to specify the value to be added or subtracted when user presses the contro's background
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:LargeChange := 2

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
41:
Is there any option to specify the value to be added or subtracted when user presses the up or down button
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SmallChange := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
40:
How do I specify the maxmimum value in the control
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Maximum := 20
		oSlider:Value := 10

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
39:
How do I specify the minimum value in the control
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Minimum := 2
		oSlider:Value := 3

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
38:
How do I change control's position
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
37:
How do I change the position of the thumb
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
36:
How do I enable or disable a part of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Value := 2
		oSlider:ThumbSize := 48
		oSlider:SetProperty("EnablePart",256/*exThumbPart*/,.F.)
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"<fgcolor=808080>thumb</fgcolor>")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
35:
How do show or hide parts in the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("VisiblePart",256/*exThumbPart*/,.F.)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
34:
How do I arrange the control vertically

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Orientation := 0/*exVertical*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
33:
How do I prevent painting the control when I perform several changes

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
32:
How do I add icons

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
31:
How can I align the caption to the right

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 64
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb right")
		oSlider:SetProperty("CaptionAlignment",256/*exThumbPart*/,2/*RightAlignment*/)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
30:
How can I align the caption to the left

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 64
		oSlider:SetProperty("Caption",256/*exThumbPart*/," thumb left")
		oSlider:SetProperty("CaptionAlignment",256/*exThumbPart*/,0/*LeftAlignment*/)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
29:
How can show the caption using a different font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<font Tahoma;12>upper</font> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<font ;4>lower</font> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
28:
Is there any option to display icons or pictures in the parts of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
27:
Is there any option to display icons or pictures in the parts of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
26:
Is there any option to display icons or pictures in the parts of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
25:
Is there any option to display icons or pictures in the parts of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
24:
Is there any option to display icons or pictures in the parts of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
23:
How can paint the caption using multiple lines

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 48
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"line1<br>line2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
22:
How can change the background color for a portion of text

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<bgcolor=FF0000><fgcolor=0000FF>upper</fgcolor></bgcolor> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<bgcolor=0000FF><fgcolor=FF0000>upper</fgcolor></bgcolor> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
21:
How can change the foreground color for a portion of text

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<fgcolor=FF0000>upper</fgcolor> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<fgcolor=0000FF>upper</fgcolor> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
20:
How can show the caption as strikeout

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL f

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		f := CreateObject("StdFont")
			f:Name := "Tahoma"
			f:Size := 12
		oSlider:Font := f
		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<s>upper</s> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<s>lower</s> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
19:
How can underline a portion of the caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL f

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		f := CreateObject("StdFont")
			f:Name := "Tahoma"
			f:Size := 12
		oSlider:Font := f
		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<u>upper</u> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<u>lower</u> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
18:
How can I draw in italic a portion of the caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL f

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		f := CreateObject("StdFont")
			f:Name := "Tahoma"
			f:Size := 12
		oSlider:Font := f
		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<i>upper</i> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<i>lower</i> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
17:
How can I draw in bold a portion of the caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider
	LOCAL f

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		f := CreateObject("StdFont")
			f:Name := "Tahoma"
			f:Size := 12
		oSlider:Font := f
		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"<b>upper</b> part")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"<b>lower</b> part")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
16:
How can I put a text on the background part in the lower or upper side

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Caption",512/*exLowerBackPart*/,"upper")
		oSlider:SetProperty("Caption",128/*exUpperBackPart*/,"lower")
		oSlider:Value := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
15:
How can I put a text on the background part

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("Caption",640/*exBackgroundPart*/,"background")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
14:
How can I put a text on the thumb

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 32
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
13:
How can I disable the control
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Enabled := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
12:
How do I put a picture on the center of the control

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oSlider:PictureDisplay := 17/*MiddleCenter*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
11:
How do I resize/stretch a picture on the control's background

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oSlider:PictureDisplay := 49/*Stretch*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
10:
How do I put a picture on the control's center right bottom side

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oSlider:PictureDisplay := 34/*LowerRight*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
9:
How do I put a picture on the control's center left bottom side

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:Picture := oSlider:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oSlider:PictureDisplay := 32/*LowerLeft*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
8:
How do I put a picture on the control's center top side

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
7:
How do I put a picture on the control's right top corner

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
6:
How do I put a picture on the control's left top corner

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
5:
How do I put a picture on the control's background

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
4:
How can I change the size of control's font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 96
		oSlider:Font():Size := 12
		oSlider:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
3:
How do I change the control's font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:ThumbSize := 32
		oSlider:Font():Name := "Tahoma"
		oSlider:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
2:
How can I change the control's foreground color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oSlider:ThumbSize := 32
		oSlider:SetProperty("Caption",256/*exThumbPart*/,"thumb")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
1:
How can I change the control's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSlider

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSlider := XbpActiveXControl():new( oForm:drawingArea )
	oSlider:CLSID  := "Exontrol.Slider.1" /*{031F9B36-1219-4DF5-8E09-1A50B8185BC2}*/
	oSlider:create(,, {10,60},{610,370} )

		oSlider:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,255,0 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN