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

With ExShellView1
	.ViewMode = 1
	.HeaderVisible = False
	.BrowseFiles = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"
End With
39:
How do I prevent pressing the Backspace, or go up to the parent

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub ExShellView1_KeyDown(KeyCode As Integer,ByVal Shift As Integer)
	With ExShellView1
		Debug.Print( "Set the KeyCode = 0, if the KeyCode is 8 " )
		KeyCode = 0
	End With
End Sub

With ExShellView1
	.ViewMode = 4
	.BrowseFolder = "c:\Temp"
	.Refresh 
End With
38:
How can I show grid lines around items

With ExShellView1
	.ViewMode = 4
	.DrawGridLines = True
	.Refresh 
End With
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. )

With ExShellView1
	.ViewMode = 1
	.OverlayIcons = False
	.Refresh 
End With
36:
I need to provide my own context menu but I am not able to find RClick event. What can be done

' QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu.
Private Sub ExShellView1_QueryContextMenu(Items As String,Separator As String)
	With ExShellView1
		Debug.Print( "Show here your popup/context menu" )
	End With
End Sub

With ExShellView1
	.DefaultMenuItems = False
End With
35:
How can I provide my own context menu (RClick event is missing)

' InvokeMenuCommand event - Fired when the user selects an item context menu that has been added during QueryContextMenu event.
Private Sub ExShellView1_InvokeMenuCommand(ByVal Command As String)
	With ExShellView1
		Debug.Print( Command )
	End With
End Sub

' QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu.
Private Sub ExShellView1_QueryContextMenu(Items As String,Separator As String)
	With ExShellView1
		Separator = ","
		Items = "First,Second,Third"
	End With
End Sub

With ExShellView1
	.DefaultMenuItems = False
End With
34:
Is it possible to specify the "Extra Large Icons" view

With ExShellView1
	.ViewMode = 13
End With
33:
Is it possible to specify the "Large Icons" view

With ExShellView1
	.ViewMode = 14
End With
32:
Is it possible to specify the "Medium Icons" view

With ExShellView1
	.ViewMode = 15
End With
31:
How can I hide the file names

With ExShellView1
	.HideFileNames = True
	.ViewMode = 5
End With
30:
Is it possible to set the Auto Arrange and Align To Grid flags by code

With ExShellView1
	.AutoArrange = True
	.AlignToGrid = True
	.ViewMode = 5
End With
29:
Is it possible to set the Auto Arrange flag by code

With ExShellView1
	.AutoArrange = True
	.ViewMode = 5
End With
28:
How do I specify the current folder

With ExShellView1
	.CurrentFolder = "c:\windows"
End With
27:
Is it possible to disable showing tooltips for files and folders

With ExShellView1
	.HideToolTips = True
End With
26:
Is it possible to hide the control's header

With ExShellView1
	.HeaderVisible = False
End With
25:
How can I get the name of file being double clicked

' ObjectSelect event - Fired when the user selects a new object for browsing.
Private Sub ExShellView1_ObjectSelect(ByVal Object As Object)
	With ExShellView1
		.CancelObjectSelect 
		Debug.Print( Object )
	End With
End Sub


24:
How can I prevent opening or selecting a folder or zip files when user double click it
' ObjectSelect event - Fired when the user selects a new object for browsing.
Private Sub ExShellView1_ObjectSelect(ByVal Object As Object)
	With ExShellView1
		.CancelObjectSelect 
	End With
End Sub


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

With ExShellView1
	.ModifyFolderFlags 128,0
End With
22:
How can I enable multiple selection

With ExShellView1
	.ModifyFolderFlags 0,64
	.Refresh 
End With
21:
How can I select a file or a folder

With ExShellView1
	.Objects.Get 2
	.Objects.Item(0).SelectItem 1
End With
20:
How can I get all files and folders as they are listed
With ExShellView1
	.Objects.Get 18 ' ObjectTypeEnum.AsDisplayed Or ObjectTypeEnum.AllItems
	Debug.Print( .Objects.Count )
End With
19:
How can I get all files and folders being displayed
With ExShellView1
	.Objects.Get 2
	Debug.Print( .Objects.Count )
End With
18:
How do I get the selected files or folders as they are displayed
With ExShellView1
	.Objects.Get 17 ' ObjectTypeEnum.AsDisplayed Or ObjectTypeEnum.SelectedItems
	Debug.Print( .Objects.Count )
End With
17:
How do I get the selected files or folders
With ExShellView1
	.Objects.Get 1
	Debug.Print( .Objects.Count )
End With
16:
How can I disable or enable the control's context menu

With ExShellView1
	.DefaultMenuItems = False
End With
15:
How can I include only files that match a pattern

With ExShellView1
	.IncludeObjectType = 3
	.FilePattern = "*.exe *.lnk"
End With
14:
How can I include only files that match a pattern

With ExShellView1
	.IncludeObjectType = 3
	.FilePattern = "*.bmp"
End With
13:
How can I list only folders in the view

With ExShellView1
	.IncludeObjectType = 2
End With
12:
How do I specify what objects files or folders should be included in the list

With ExShellView1
	.IncludeObjectType = 2
End With
11:
How do I browse a special folder

With ExShellView1
	.BrowseFolder = .ShellFolder(.SpecialFolder(2))
End With
10:
How can I go up to one level, so I can browse the parent folder

With ExShellView1
	.BrowseFolder = .ShellFolder("C:\")
	.UpOneLevel 
End With
9:
How do I browse a specified folder

With ExShellView1
	.BrowseFolder = .ShellFolder("C:\")
End With
8:
How can I disable or enable the entire control

With ExShellView1
	.Enabled = False
End With
7:
How do I refresh the control
With ExShellView1
	.Refresh 
End With
6:
How can I change the control's font

With ExShellView1
	Set f = CreateObject("StdFont")
	With f
		.Name = "Verdana"
		.Size = 12
	End With
	.Font = f
End With
5:
How can I change the view, so it displays as THUMBNAIL

With ExShellView1
	.ViewMode = 5
End With
4:
How can I change the view, so it displays as a a grid with details

With ExShellView1
	.ViewMode = 4
End With
3:
How can I change the view, so it displays as a list

With ExShellView1
	.ViewMode = 3
End With
2:
How can I change the view, so it displays small icons

With ExShellView1
	.ViewMode = 2
End With
1:
How can I change the view, so it displays large icons

With ExShellView1
	.ViewMode = 1
End With