45:
How can I expand a folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:ShellFolder("C:\"):Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
44:
How do I get the subfolders of specified folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		var_ShellFolders := oExFolderView:ShellFolder("C:\"):Folders()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
43:
How do I check a folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasCheckBoxes := .T.
		oExFolderView:ShellFolder("C:\"):Check := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
42:
How do I get the name of folder, as it is displayed in the control

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		var_DisplayName := oExFolderView:FirstVisibleFolder:DisplayName()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
41:
How can I specify the folders being displayed in the control

PROCEDURE OnIncludeFolder(oExFolderView,Folder,Include)
	Include := .F.
RETURN

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:IncludeFolder := {|Folder,Include| OnIncludeFolder(oExFolderView,Folder,Include)} /*Occurs when the user includes folders to the control.*/

		oExFolderView:IncludeFolder := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
40:
How can I include the files and folders in the control

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:IncludeAttributeMask := 2147483703

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
39:
How can 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 oExFolderView
	LOCAL f

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		f := CreateObject("StdFont")
			f:Name := "Verdana"
			f:Size := 12
		oExFolderView:Font := f

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
38:
Can I add a rename to the control's context menu
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:CanRename := .T.

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:MousePointer := 2

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
36:
How can I get height of the horizontal scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:HorizontalHeight(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
35:
How can I get width of the vertical scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:VerticalWidth(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
34:
How can I remove the control's scroll bars
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:Scrollbars(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
33:
How can I get the horizontal scroll range
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:HorizontalOversize(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
32:
How can I get the horizontal scroll position
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:HorizontalOffset(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
31:
How can I get the vertical scroll range
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:VerticalOversize(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
30:
How can I get the vertical scroll position
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		DevOut( Transform(oExFolderView:VerticalOffset(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
29:
Can I assign partial check boxes to folders, so the sub folders get checked when the user checks the parent folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasCheckBoxes := .T.
		oExFolderView:PartialCheck := .T.
		oExFolderView:FirstVisibleFolder():Check := .T.

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:AllowDropFiles := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
27:
Can I explore only a folder, so the user can't see the parent folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:ExploreFromHere := "c:\"

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

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:IconsVisible := .F.

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:Enabled := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
24:
How can I expand a folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:EnsureVisible(oExFolderView:SpecialFolderPath(11/*StartMenu*/))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
23:
How can I ensure that a specified folder fits the contrl's client area

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:EnsureVisible(oExFolderView:SpecialFolderPath(11/*StartMenu*/))

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:Refresh()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
21:
Is there any function or property to get the first visible folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasCheckBoxes := .T.
		oExFolderView:FirstVisibleFolder():Check := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
20:
How do I find a special folder, like My Computer

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SelectedFolder := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
19:
How do I find a special folder, like My Computer

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SelectedFolder := oExFolderView:SpecialFolderPath(17/*MyComputer*/)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
18:
How do I select and expand a folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SelectedFolder := oExFolderView:SpecialFolderPath(2/*Programs*/)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
17:
How do I select and expand a folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SelectedFolder := "c:\"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
16:
How do I select a folder

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SelectedFolder := "c:\"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
15:
How do I get the checked folders or files

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasCheckBoxes := .T.
		oExFolderView:FirstVisibleFolder():Check := .T.
		DevOut( Transform(oExFolderView:FoldersCheck:Count(),"") )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
14:
How can I display the hidden folders

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HiddenFolders := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
13:
How can I get the folder or the file from the point
PROCEDURE OnMouseMove(oExFolderView,Button,Shift,X,Y)
	DevOut( Transform(oExFolderView:FolderFromPoint(-1,-1),"") )
RETURN

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oExFolderView,Button,Shift,X,Y)} /*Fired when the user move the mouse over the ExFolderView control.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
12:
How can I refresh the control as soon as the user renames a folder in Windows Explorer
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:AutoUpdate := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
11:
How do I enable or disable the control's context menu
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:EnableShellMenu := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
10:
How do I hide the overlay icons
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:OverlayIcons := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
9:
How do I display the overlay icons
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:OverlayIcons := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
8:
How do I display the share name for folders and files
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:DisplayShareName := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
7:
How do I assign a checkbox for each folder/file in the control

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasCheckBoxes := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
6:
How do I remove the lines that link the root items

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasLinesAtRoot := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
5:
How do I remove the buttons to expand or collapse the folders

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasButtons := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
4:
How do I remove the lines between items

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:HasLines := .F.

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

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

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:Appearance := 0/*Flat*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
2:
How do 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 oExFolderView

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SetProperty("ForeColor",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
1:
How do 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 oExFolderView

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

	oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
	oExFolderView:CLSID  := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
	oExFolderView:create(,, {10,60},{610,370} )

		oExFolderView:SetProperty("BackColor",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