125
Explorer control (browse for the folder being double-clicked)

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailBrowseOnDblClk
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
124
Can I display the size of the files, using 1 decimal, such as 10.2 KB instead of 10 KB

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Caption = "ffolder ? ( fname + ( len( 22:=(int(0:=(1:=fsize)/1024/1024/1024) ? round(=:0*10)/10 + ` GB` : (int(0:==:1/1024/1024) ? round(=" & _
":0*10)/10 + ` MB` : (int(0:==:1/1024) ? round(=:0*10)/10 + ` KB` : =:1 + ` B`))) ) ? `, ` + =:22 : `` ) ) : ffile"
	.ToolTipText = "ffolder ? ( `Name: <b>` + fname + `</b>` + `<br>` + ( len( 0:= ftype ) ? `Type: <b>` + =:0 + `</b>` + `<br>` : `` ) + ( ffolder" & _
" = 1 ? `Size: <b>` + (int(0:=(1:=fsize)/1024/1024/1024) ? round(=:0*10)/10 + ` GB` : (int(0:==:1/1024/1024) ? round(=:0*10)/10 +" & _
" ` MB` : (int(0:==:1/1024) ? round(=:0*10)/10 + ` KB` : =:1 + ` B`))) + `</b>` + `<br>` : `` ) + `Created: <b>` + fcreated_local" & _
" + `</b>` + `<br>` + `Modified: <b>` + fmodified_local + `</b>`+ `<br>` + `Last Opened: <b>` + fopened_local + `</b>`+ (fpicture" & _
" ? (`<br>Dimensions: <b>` + fwidth + ` x ` + fheight + `</b>` ) : ``) ) : ffile"
	.EndUpdate()
End With
123
It appears that Created, Modified and Last Opened values are not correct (local)
With AxThumbnail1
	.BeginUpdate()
	.Padding = ""
	.Alignment = EXTHUMBNAILLib.TextAlignEnum.exAlignBottomCenter
	.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.Caption = "`Created: <b><r>` + fcreated_local + `</b>` + `<br>` + `Modified: <b><r>` + fmodified_local + `</b>`+ `<br>` + `Last Opened: <r" & _
"><b>` + fopened_local + `</b>`"
	.SingleCaption = .Caption
	.EndUpdate()
End With
122
It appears that Created, Modified and Last Opened values are not correct (bias)
With AxThumbnail1
	.BeginUpdate()
	.Padding = ""
	.Alignment = EXTHUMBNAILLib.TextAlignEnum.exAlignBottomCenter
	.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.Caption = "`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+" & _
" `<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`"
	.SingleCaption = .Caption
	.EndUpdate()
End With
121
How can I sort the thumbnails, case insensitive

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Sort = EXTHUMBNAILLib.ThumbnailSortEnum.exThumbailSortInsensitive Or EXTHUMBNAILLib.ThumbnailSortEnum.exThumbailSortByName
	.EndUpdate()
End With
120
How can I select programatically multiple files
' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( e.state )
		Debug.Print( .Select )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.SingleSel = False
	.Select = "Brazil.png\r\ncordova.png"
	.EndUpdate()
End With
119
Does your control support multiple-selection

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( e.state )
		Debug.Print( .Select )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.SingleSel = False
	.Select = "Brazil.png\r\ncordova.png"
	.EndUpdate()
End With
118
Is it possible to show the selection with a different color, when the control loses the focus

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColorHide,65536)
	.Select = "Access2007"
	.EndUpdate()
End With
117
Predefined Keywords of ShowContextMenu property

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		.ExecuteContextMenu = 0
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` +" & _
" fileparsename + `,filefullname=` + filefullname"
	.EndUpdate()
End With
116
How can I display the identifiers of the control's context menu (debug)

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "`[debug]` + menu"
	.EndUpdate()
End With
115
How can I copy/execute command a file/folder as path (selection)

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Select = "Brazil.png"
	.ExecuteContextCommand("<selection>",True,"Copy As Path")
	.EndUpdate()
End With
114
Is it possible to display the item's identifiers in the file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,e.state)
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
113
How can I copy/execute command a file/folder (selection)
With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Select = "Brazil.png"
	.ExecuteContextCommand("<selection>",True,"Copy")
	.EndUpdate()
End With
112
How can I copy a file/folder (absolute name)
With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ExecuteContextCommand("c:\Temp",True,"Copy")
	.EndUpdate()
End With
111
How can I copy a file/folder (relative name)
With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ExecuteContextCommand("Belgium.png",True,"Copy")
	.EndUpdate()
End With
110
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"
	.EndUpdate()
End With
109
ShowContextMenu usage
' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
	.EndUpdate()
End With
108
ShowContextMenu usage
' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
	.EndUpdate()
End With
107
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "menu replace `&Delete` with ``"
	.EndUpdate()
End With
106
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
	.EndUpdate()
End With
105
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
	.EndUpdate()
End With
104
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
	.EndUpdate()
End With
103
ShowContextMenu usage
' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State" )
		Debug.Print( e.state )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		Debug.Print( "no context menu is generated, so nothing is displayed" )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "``"
	.EndUpdate()
End With
102
How can I add new items to the default file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",.ShowContextMenu,e.state)
		Debug.Print( "Execute" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
101
How can I disable the Delete command from the file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"
	.EndUpdate()
End With
100
How can I remove the Delete command from the file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ShowContextMenu = "menu replace `&Delete` with ``"
	.EndUpdate()
End With
99
How can I provide my own context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
98
Is it possible to prevent executing a specific command from the object's context menu
' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		.ExecuteContextMenu = 0
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
97
How can I disable the Delete command from the object's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( "State " )
		Debug.Print( e.state )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with `&Delete[dis]`",.ShowContextMenu)
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
96
How can I programmatically selects a file

' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( e.state )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColor,255)
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColorHide,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColor))
	.Select = "Access2007"
	.EndUpdate()
End With
95
How can I programmatically unselect the file
' StateChange event - Fired while the control's state has been changed.
Private Sub AxThumbnail1_StateChange(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_StateChangeEvent) Handles AxThumbnail1.StateChange
	With AxThumbnail1
		Debug.Print( e.state )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColor,255)
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColorHide,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColor))
	.Select = ""
	.EndUpdate()
End With
94
How can I change the color to show the selected frame

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColor,255)
	.EndUpdate()
End With
93
How can I remove the frame being selected when the control loses the focus (hidesel)
With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailSelBorderColorHide,-1)
	.EndUpdate()
End With
92
When I drop a folder, can I include all its content, files and sub-folders

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeAny
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
91
When I drop a folder, can I include sub-folders only

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFoldersOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
90
I've noticed that if I drop a single file I get a different caption. How can I change that (sample 2)

With AxThumbnail1
	.BeginUpdate()
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\Brazil.png")
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\Romania.png")
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\USA.png")
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\Venezuela.png")
	.Caption = "`<sha ;;0><fgcolor=808080>` + upper(fname replace `.` + fext with ``)"
	.SingleCaption = ""
	.FilterBarPromptPattern = "USA"
	.EndUpdate()
End With
89
I've noticed that if I drop a single file I get a different caption. How can I change that (sample 1)

With AxThumbnail1
	.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.SingleCaption = .Caption
End With
88
Can I somehow show the close button of the control's filter bar to the right, only if required

With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarVisible
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarBackColor = RGB(0,0,0)
	.FilterBarForeColor = RGB(255,255,255)
	.FilterBarPromptPattern = "elogo"
	.EndUpdate()
End With
87
I have a filter being applied, the question is how can I display the number/count of results (sample 3)

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptPattern = "el"
	.StatusCaption = "(len(ffilter) = 0) ? `` : ( `<fgcolor=808080>` + ( fvcount ? ( fvcount format `0` ) + ` result(s).` : `No results.` ) )"
	.EndUpdate()
End With
86
Just icons are shown when droping the file into the control. What can I check

With AxThumbnail1
	.BeginUpdate()
	.ThumbnailType = EXTHUMBNAILLib.ThumbnailTypeEnum.exThumbnailAvail
	.ExtractMethod = "ThumbnailCache,ThumbnailProvider,ExtractImage"
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
85
How can I turn on the auto-update, so the thumbnails updates automatically once the user changes the files
With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AllowContextMenu = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.StatusCaption = "<c><font ;10><sha ;;0>Open the Windows Explorer, and delete or edit any of these files."
	.EndUpdate()
End With
84
I am using the control's default context menu to delete the file, and the file still shows in the control with no thumbnail. What can I do so it won't be shown
With AxThumbnail1
	.BeginUpdate()
	.AutoUpdate = True
	.AllowContextMenu = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.StatusCaption = "<c><font ;10><sha ;;0>Open the Windows Explorer, and delete or edit any of these files."
	.EndUpdate()
End With
83
Is it possible to displays the file's context menu

With AxThumbnail1
	.BeginUpdate()
	.AllowContextMenu = True
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
82
How can I programmatically get the number of results

' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub AxThumbnail1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxThumbnail1.ClickEvent
	With AxThumbnail1
		Debug.Print( "Results:" )
		Debug.Print( .FormatABC("fvcount") )
		Debug.Print( "Total:" )
		Debug.Print( .FormatABC("fcount") )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptPattern = "el"
	.StatusCaption = "(fvcount = fcount) ? `` : ( `<fgcolor=808080>` + ( fvcount ? ( fvcount format `0` ) + ` result(s).` : `No results.` ) )"
	.EndUpdate()
End With
81
I have a filter being applied, the question is how can I display the number/count of results (sample 2)

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptPattern = "el"
	.StatusCaption = "(fvcount = fcount) ? `` : ( `<fgcolor=808080>` + ( fvcount ? ( fvcount format `0` ) + ` result(s).` : `No results.` ) )"
	.EndUpdate()
End With
80
I have a filter being applied, the question is how can I display the number of results (sample 1)

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptPattern = "e"
	.StatusCaption = "not (fcount = fvcount ) ? (`<r><font ;6><fgcolor=808080><sha ;;0>Found: <b>` + (len(fvcount) ? fvcount format `0` : 0)) : ``"
	.EndUpdate()
End With
79
Is it possible to display the number of files that are currently in the list

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.StatusCaption = "`<r><font ;6><fgcolor=808080><sha ;;0>Count: <b>` + (len(fvcount) ? fvcount : 0)"
	.EndUpdate()
End With
78
How can I specify the number of files to be displayed

With AxThumbnail1
	.BeginUpdate()
	.LimitInputFiles = 4
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
77
Is it possible to limit the number of files to be shown to one

With AxThumbnail1
	.BeginUpdate()
	.LimitInputFiles = 1
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
76
I've seen that you can magnify the view once the user draggs the control while middle-mouse button is pressed. How can I disable that
With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFitOnDblClk Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFit
	.EndUpdate()
End With
75
How can I display the name on a line, and the size on the other line

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.Padding = "0 0 0 36"
	.Margins = "4 0"
	.Sort = EXTHUMBNAILLib.ThumbnailSortEnum.exThumbailSortBySize
	.WordWrap = True
	.Caption = "ffolder ? ( lower(fname) + ( len( 0:=fsizeF ) ? `<br><c>` + =:0 : `` ) ) : ffile"
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
74
Can I display the name of the thumbnails without the extension

With AxThumbnail1
	.BeginUpdate()
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,1)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.WordWrap = False
	.Caption = "ffolder ? ( lower(fname replace `.` + fext with ``) + ( len( 0:=fsizeF ) ? `, ` + =:0 : `` ) ) : ffile"
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
73
I am trying to use the DblClick event, but the control switch the view to a different mode. Can I open the file, when user double clicks the control
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxThumbnail1_DblClick(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_DblClickEvent) Handles AxThumbnail1.DblClick
	With AxThumbnail1
		Debug.Print( .get_ThumbnailFromPoint(-1,-1) )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFit
	.EndUpdate()
End With
72
How can I hide/prevent showing the control's filter

With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarHidden
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
71
The thumbnails get resized as soon as I change the filter. Can I make it fixed

With AxThumbnail1
	.BeginUpdate()
	.set_ScrollPartVisible(EXTHUMBNAILLib.ScrollBarEnum.exVScroll,EXTHUMBNAILLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXTHUMBNAILLib.ScrollBarEnum.exHScroll,EXTHUMBNAILLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,EXTHUMBNAILLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exHSBack,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exHSThumb,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSBack))
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFitOnDblClk Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
70
Is it possible to display the names in lower-case, and with a different color the size

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Caption = "lower(ffolder ? ( fname : ffile)) + ( len( 0:=fsizeF ) ? `, <fgcolor=A0A0A0>` + =:0 + `</fgcolor>` : `` )"
	.EndUpdate()
End With
69
Is it possible to display the names in upper-case

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Caption = "upper(ffolder ? ( fname + ( len( 0:=fsizeF ) ? `, ` + =:0 : `` ) ) : ffile)"
	.EndUpdate()
End With
68
How can I programmatically apply a filter to the control

' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub AxThumbnail1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxThumbnail1.ClickEvent
	With AxThumbnail1
		.FilterBarPromptPattern = "jpg"
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
67
How can I clear programmatically the control's filter

' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub AxThumbnail1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxThumbnail1.ClickEvent
	With AxThumbnail1
		.FilterBarPromptPattern = ""
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptPattern = "jpg"
	.EndUpdate()
End With
66
Is the "Start Filter ..." customizable, so I can change to my language

With AxThumbnail1
	.BeginUpdate()
	.FilterBarBackColor = RGB(0,0,0)
	.FilterBarForeColor = RGB(255,255,255)
	.FilterBarPrompt = "<i><b>Click here to start filter for...</b></i>"
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
65
How can I define what to filter for. For instance, just the name, extension. Is it possible

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarFor = "fname"
	.FilterBarPromptPattern = "jpg"
	.EndUpdate()
End With
64
It is possible to turn-on case-sensitive for the control's filter

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptType = EXTHUMBNAILLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXTHUMBNAILLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "el"
	.EndUpdate()
End With
63
Can I filter the thumbnails that starts with instead contains typed characters

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptType = EXTHUMBNAILLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptPattern = "el"
	.EndUpdate()
End With
62
Can I use wild characters in the filter

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptType = EXTHUMBNAILLib.FilterPromptEnum.exFilterPromptPattern
	.FilterBarFor = "fname"
	.FilterBarPromptPattern = "*.jpg"
	.EndUpdate()
End With
61
I've noticed that If I type more words on filter bar all should be included, the question is can I display thumbnails that contains any of these words

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.FilterBarPromptType = EXTHUMBNAILLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "elogo or something that you won't find"
	.EndUpdate()
End With
60
How can I change the filter's bar foreground/background color

With AxThumbnail1
	.BeginUpdate()
	.FilterBarBackColor = RGB(0,0,0)
	.FilterBarForeColor = RGB(255,255,255)
	.FilterBarPrompt = "<i>Start Filter...</i>"
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
59
The question is can I somehow show the close button of the control's filter bar to the right

With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarVisible
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
58
Is it possible to change the color to show the close button of the control's filter bar

With AxThumbnail1
	.BeginUpdate()
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exFooterFilterBarButton,65280)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
57
How can I prevent showing the close button, in the control's filter bar

With AxThumbnail1
	.BeginUpdate()
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
56
Is it possible to show the close button, only if there is a filter applied

With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarVisible
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
55
How can I close/hide the filter once the user clicks the close button
With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarToggle Or EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarVisible
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
54
How can I disable the control's filter bar

With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarHidden
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
53
How can I enable the control's filter bar

With AxThumbnail1
	.BeginUpdate()
	.FilterBarVisible = EXTHUMBNAILLib.FilterBarVisibleEnum.exFilterBarVisible
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
52
How can I enable alternate background/foreground colors

With AxThumbnail1
	.BeginUpdate()
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBackColorAlt,15790320)
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailForeColorAlt,8421504)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
51
How can I remove all margins, so I have a compact view

With AxThumbnail1
	.BeginUpdate()
	.Margins = "0 0"
	.Padding = "0 0 0 0"
	.Borders = "0 0 0 0"
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,1)
	.Alignment = EXTHUMBNAILLib.TextAlignEnum.exAlignBottomCenter
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
50
The thumbnail's caption gets wrapped, the question is can I disable that

With AxThumbnail1
	.BeginUpdate()
	.Margins = "16 16"
	.ThumbnailMinWidth = 32
	.ThumbnailMinHeight = 32
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFitOnDblClk Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.WordWrap = False
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
49
How can I display the thumbnail's caption on the right rather than bottom

With AxThumbnail1
	.BeginUpdate()
	.Margins = "0 16"
	.Padding = "0 0 16 0"
	.Borders = "16 16 16 16"
	.CaptionRotate = EXTHUMBNAILLib.HTMLRotateEnum.exHTMLMirror Or EXTHUMBNAILLib.HTMLRotateEnum.exHTMLVertical
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,1)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.WordWrap = False
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
48
How can I display the thumbnail's caption on the left rather than bottom

With AxThumbnail1
	.BeginUpdate()
	.Margins = "0 16"
	.Padding = "16 0 0 0"
	.Borders = "16 16 16 16"
	.CaptionRotate = EXTHUMBNAILLib.HTMLRotateEnum.exHTMLVertical
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,1)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.WordWrap = False
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
47
How can I display the thumbnail's caption on the top rather than bottom

With AxThumbnail1
	.BeginUpdate()
	.Margins = "16 0"
	.Padding = "0 16 0 0"
	.Borders = "16 16 16 16"
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,1)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.WordWrap = False
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
46
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

With AxThumbnail1
	.BeginUpdate()
	.set_ScrollPartVisible(EXTHUMBNAILLib.ScrollBarEnum.exVScroll,EXTHUMBNAILLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXTHUMBNAILLib.ScrollBarEnum.exHScroll,EXTHUMBNAILLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,EXTHUMBNAILLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exHSBack,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exHSThumb,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXTHUMBNAILLib.BackgroundPartEnum.exVSBack))
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
45
How can I prevent showing the control's scroll bars
With AxThumbnail1
	.BeginUpdate()
	.AutoDrag = EXTHUMBNAILLib.AutoDragEnum.exAutoDragNone
	.ScrollWidth = 0
	.ScrollHeight = 0
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
44
How can I modify the margins of the thumbnail

With AxThumbnail1
	.BeginUpdate()
	.Margins = "16 0"
	.Padding = "0 16 0 0"
	.Borders = "16 16 16 16"
	.WordWrap = False
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,1)
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
43
The thumbnail view gets scrolled when user clicks it. Can I disable that
With AxThumbnail1
	.BeginUpdate()
	.AutoDrag = EXTHUMBNAILLib.AutoDragEnum.exAutoDragNone
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
42
The thumbnail get maximized as soon as the user double clicks it. May I prevent that
With AxThumbnail1
	.BeginUpdate()
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFit
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
41
Can I limit the thumbnail size when the user resizes it

With AxThumbnail1
	.BeginUpdate()
	.Margins = "16 16"
	.ThumbnailMinWidth = 64
	.ThumbnailMinHeight = 64
	.ThumbnailMaxWidth = 64
	.ThumbnailMaxHeight = 64
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFitOnDblClk Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Caption = "fname"
	.EndUpdate()
End With
40
I've seen that that the thumbnail can be resized up to 120 points, can I change that

With AxThumbnail1
	.BeginUpdate()
	.Margins = "8 8"
	.Padding = "0 0 0 8"
	.ThumbnailMinWidth = 32
	.ThumbnailMinHeight = 32
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailKeepAspectRatio Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFitOnDblClk Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.WordWrap = False
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Caption = "`<font ;4>` + fname replace `.` + fext with ``"
	.EndUpdate()
End With
39
How can I change the thumbnail's mode to stack

With AxThumbnail1
	.BeginUpdate()
	.VirtualMode = False
	.Margins = "16 16"
	.Mode = EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFitOnDblClk Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAllowResize Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailCenter Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStretch Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailAutoFit Or EXTHUMBNAILLib.ThumbnailModeEnum.exThumbnailStack
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
38
How do I sort the thumbnails

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Sort = EXTHUMBNAILLib.ThumbnailSortEnum.exThumbailSortReverse Or EXTHUMBNAILLib.ThumbnailSortEnum.exThumbailSortBySize
	.EndUpdate()
End With
37
How can I get thumbnailed all sub-files within the folder

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
36
How can I hide the thumbnail's frame
With AxThumbnail1
	.BeginUpdate()
	.Padding = ""
	.Alignment = EXTHUMBNAILLib.TextAlignEnum.exAlignBottomCenter
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")
	.Caption = "ffolder ? ( `Name: <b>` + fname + `</b>` + `<br>` + ( len( 0:= ftype ) ? `Type: <b>` + =:0 + `</b>` + `<br>` : `` ) + ( ffolder" & _
" = 1 ? `Size: <b>` + fsizeF + `</b>` + `<br>` : `` ) + `Created: <b>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modifie" & _
"d: <b>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <b>` + date(fopened - bias/24/60) + `</b>`+ (fpicture ? " & _
"(`<br>Dimensions: <b>` + fwidth + ` x ` + fheight + `</b>` ) : ``) ) : ffile"
	.set_Background(EXTHUMBNAILLib.BackgroundPartEnum.exThumbnailBorderColor,0)
	.EndUpdate()
End With
35
How do I get the thumbnail from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxThumbnail1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTHUMBNAILLib._IThumbnailEvents_MouseMoveEvent) Handles AxThumbnail1.MouseMoveEvent
	With AxThumbnail1
		Debug.Print( .get_ThumbnailFromPoint(-1,-1) )
	End With
End Sub

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.EndUpdate()
End With
34
I've noticed that the thumbnail's tooltip is displaying more information. How can I change that

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.ToolTipTitle = "File"
	.ToolTipText = "ffile replace fname with (`<b>` + fname + `</b>`)"
	.EndUpdate()
End With
33
How can I display more information about the thumbnail

With AxThumbnail1
	.BeginUpdate()
	.Padding = ""
	.Alignment = EXTHUMBNAILLib.TextAlignEnum.exAlignBottomCenter
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png")
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\logocanary.png")
	.Caption = "ffolder ? ( `Name: <b>` + fname + `</b>` + `<br>` + ( len( 0:= ftype ) ? `Type: <b>` + =:0 + `</b>` + `<br>` : `` ) + ( ffolder" & _
" = 1 ? `Size: <b>` + fsizeF + `</b>` + `<br>` : `` ) + `Created: <b>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modifie" & _
"d: <b>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <b>` + date(fopened - bias/24/60) + `</b>`+ (fpicture ? " & _
"(`<br>Dimensions: <b>` + fwidth + ` x ` + fheight + `</b>` ) : ``) ) : ffile"
	.SingleCaption = .Caption
	.EndUpdate()
End With
32
Can I display the thumbnail's caption based on the size of the view
With AxThumbnail1
	.BeginUpdate()
	.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.Caption = "width < 256 ? fname : ffile"
	.EndUpdate()
End With
31
How do I know the thumbnail's size (sample 2)

With AxThumbnail1
	.BeginUpdate()
	.AcceptFolders = EXTHUMBNAILLib.AcceptFoldersEnum.exIncludeSubFilesOnly
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
	.Caption = "`View: ` + width + ` x ` + height"
	.EndUpdate()
End With
30
How do I know the thumbnail's size (sample 1)

With AxThumbnail1
	.BeginUpdate()
	.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.EndUpdate()
	Debug.Print( "Width: " )
	Debug.Print( .ThumbnailWidth )
	Debug.Print( "Height: " )
	Debug.Print( .ThumbnailHeight )
End With
29
Is it possible to get the dimensions of the picture file

With AxThumbnail1
	.BeginUpdate()
	.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.Caption = "`Dimensions: <b>` + fwidth + ` x ` + fheight"
	.EndUpdate()
End With
28
Is there any function to determine whether the file is a picture

With AxThumbnail1
	.BeginUpdate()
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")
	.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg.2")
	.Caption = "`IsPicture: <b>` + (fpicture ? `Yes` : `No`)"
	.EndUpdate()
End With
27
How can I get the type of the file, like JPG File, and so on...

With AxThumbnail1
	.BeginUpdate()
	.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.Caption = "`Type: <b>` + ftype"
	.EndUpdate()
End With
26
How do I get the file/folder's attributes

With AxThumbnail1
	.BeginUpdate()
	.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	.Caption = "`Attributes: <b>0x` + hex(fattr)"
	.EndUpdate()
End With