40:
We're looking for a control to show files, just like the eXShellView, but than we would like to specify the files themselves. Is that possible using your control

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 1
oExShellView.HeaderVisible = .f.
oExShellView.BrowseFiles = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"

39:
How do I prevent pressing the Backspace, or go up to the parent

' Occurs when the user presses a key while an object has the focus.
function KeyDown as v (KeyCode as N,Shift as N)
	oExShellView = topparent:CONTROL_ACTIVEX1.activex
	? "Set the KeyCode = 0, if the KeyCode is 8 " 
	KeyCode = 0
end function

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 4
oExShellView.BrowseFolder = "c:\Temp"
oExShellView.Refresh()

38:
How can I show grid lines around items

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 4
oExShellView.DrawGridLines = .t.
oExShellView.Refresh()

37:
How can I prevent shwoing the overlay icons (shortcut icons have a small arrow in lower-left corner, shared folders have a hand that shows that folder is shared, etc. )

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 1
oExShellView.OverlayIcons = .f.
oExShellView.Refresh()

36:
I need to provide my own context menu but I am not able to find RClick event. What can be done

' Fired when the context menu is about to be active. You can supply new items to the context menu.
function QueryContextMenu as v (Items as C,Separator as C)
	oExShellView = topparent:CONTROL_ACTIVEX1.activex
	? "Show here your popup/context menu" 
end function

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.DefaultMenuItems = .f.

35:
How can I provide my own context menu (RClick event is missing)

' Fired when the user selects an item context menu that has been added during QueryContextMenu event.
function InvokeMenuCommand as v (Command as C)
	oExShellView = topparent:CONTROL_ACTIVEX1.activex
	? Command 
end function

' Fired when the context menu is about to be active. You can supply new items to the context menu.
function QueryContextMenu as v (Items as C,Separator as C)
	oExShellView = topparent:CONTROL_ACTIVEX1.activex
	Separator = ","
	Items = "First,Second,Third"
end function

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.DefaultMenuItems = .f.

34:
Is it possible to specify the "Extra Large Icons" view

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 13

33:
Is it possible to specify the "Large Icons" view

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 14

32:
Is it possible to specify the "Medium Icons" view

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 15

31:
How can I hide the file names

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.HideFileNames = .t.
oExShellView.ViewMode = 5

30:
Is it possible to set the Auto Arrange and Align To Grid flags by code

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.AutoArrange = .t.
oExShellView.AlignToGrid = .t.
oExShellView.ViewMode = 5

29:
Is it possible to set the Auto Arrange flag by code

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.AutoArrange = .t.
oExShellView.ViewMode = 5

28:
How do I specify the current folder

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.CurrentFolder = "c:\windows"

27:
Is it possible to disable showing tooltips for files and folders

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.HideToolTips = .t.

26:
Is it possible to hide the control's header

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.HeaderVisible = .f.

25:
How can I get the name of file being double clicked

' Fired when the user selects a new object for browsing.
function ObjectSelect as v (Object as OLE::Exontrol.ShellView.1::IExShellObject)
	oExShellView = topparent:CONTROL_ACTIVEX1.activex
	oExShellView.CancelObjectSelect()
	? Object 
end function

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex

24:
How can I prevent opening or selecting a folder or zip files when user double click it
' Fired when the user selects a new object for browsing.
function ObjectSelect as v (Object as OLE::Exontrol.ShellView.1::IExShellObject)
	oExShellView = topparent:CONTROL_ACTIVEX1.activex
	oExShellView.CancelObjectSelect()
end function

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex

23:
Is it possible to list only files, no folders

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ModifyFolderFlags(128,0)

22:
How can I enable multiple selection

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ModifyFolderFlags(0,64)
oExShellView.Refresh()

21:
How can I select a file or a folder

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.Objects.Get(2)
oExShellView.Objects.Item(0).SelectItem(1)

20:
How can I get all files and folders as they are listed
Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.Objects.Get(18 'AsDisplayed + AllItems)
? oExShellView.Objects.Count 

19:
How can I get all files and folders being displayed
Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.Objects.Get(2)
? oExShellView.Objects.Count 

18:
How do I get the selected files or folders as they are displayed
Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.Objects.Get(17 'AsDisplayed + SelectedItems)
? oExShellView.Objects.Count 

17:
How do I get the selected files or folders
Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.Objects.Get(1)
? oExShellView.Objects.Count 

16:
How can I disable or enable the control's context menu

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.DefaultMenuItems = .f.

15:
How can I include only files that match a pattern

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.IncludeObjectType = 3
oExShellView.FilePattern = "*.exe *.lnk"

14:
How can I include only files that match a pattern

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.IncludeObjectType = 3
oExShellView.FilePattern = "*.bmp"

13:
How can I list only folders in the view

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.IncludeObjectType = 2

12:
How do I specify what objects files or folders should be included in the list

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.IncludeObjectType = 2

11:
How do I browse a special folder

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.BrowseFolder = oExShellView.ShellFolder(oExShellView.SpecialFolder(2))

10:
How can I go up to one level, so I can browse the parent folder

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.BrowseFolder = oExShellView.ShellFolder("C:\")
oExShellView.UpOneLevel()

9:
How do I browse a specified folder

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.BrowseFolder = oExShellView.ShellFolder("C:\")

8:
How can I disable or enable the entire control

Dim oExShellView as P

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

7:
How do I refresh the control
Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.Refresh()

6:
How can I change the control's font

Dim f as P
Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Verdana"
	f.Size = 12
oExShellView.Font = f

5:
How can I change the view, so it displays as THUMBNAIL

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 5

4:
How can I change the view, so it displays as a a grid with details

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 4

3:
How can I change the view, so it displays as a list

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 3

2:
How can I change the view, so it displays small icons

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 2

1:
How can I change the view, so it displays large icons

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 1