164:
How do I get the selected item
' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As EXFILEVIEWLibCtl.StateChangeEnum)
	With ExFileView1
		Debug.Print( .Get(SelItems).Item(0) )
	End With
End Sub

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
	.ExpandFolders = True
	.IncludeFiles = False
	.ColumnVisible("Size") = False
	.ColumnVisible("Type") = False
	.ColumnVisible("Modified") = False
	.HeaderVisible = False
	.ExpandOnDblClk = True
	.AllowRename = True
	.EndUpdate 
End With
163:
How can I browse the "Recycle Bin" folder
With ExFileView1
	.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}"
End With
162:
How can I browse the "Documents" folder
With ExFileView1
	.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End With
161:
How can I browse the "Control Panel" folder
With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = "::{21EC2020-3AEA-1069-A2DD-08002b30309d}"
	.ColumnVisible("Size") = False
	.ColumnVisible("Type") = False
	.ColumnVisible("Modified") = False
	.EndUpdate 
End With
160:
How can I simulate the tree part of Windows Explorer

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
	.ExpandFolders = True
	.IncludeFiles = False
	.ColumnVisible("Size") = False
	.ColumnVisible("Type") = False
	.ColumnVisible("Modified") = False
	.HeaderVisible = False
	.ExpandOnDblClk = True
	.EndUpdate 
End With
159:
How can I browse the Network folder
With ExFileView1
	.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
End With
158:
How can I browse the My Computer

With ExFileView1
	.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End With
157:
How can I browse the My Network Places folder

With ExFileView1
	.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End With
156:
How can I browse the Desktop folder

With ExFileView1
	.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
End With
155:
Does your control supports scrolling by touching the screen

With ExFileView1
	.AutoDrag = AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
End With
154:
Do you have any Fit-To-Page options when printing the control

With ExFileView1
	.BeginUpdate 
	With .FileTypes.Add("*")
		.Folder = True
		.StrikeOut = True
		.Apply 
	End With
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = On"
		.PrintExt = ExFileView1.Object
		.Preview 
	End With
End With
153:
Is it possible to expand all folder

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = "C:\Program Files\Microsoft.NET"
	.ExpandFolders = True
	.Expand "*"
	.EndUpdate 
End With
152:
How can I provide my own context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As EXFILEVIEWLibCtl.StateChangeEnum)
	With ExFileView1
		Debug.Print( "State " )
		Debug.Print( 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


151:
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 ExFileView1_StateChange(ByVal State As EXFILEVIEWLibCtl.StateChangeEnum)
	With ExFileView1
		Debug.Print( "State " )
		Debug.Print( State )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		.ExecuteContextMenu = 0
	End With
End Sub


150:
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 ExFileView1_StateChange(ByVal State As EXFILEVIEWLibCtl.StateChangeEnum)
	With ExFileView1
		Debug.Print( "State " )
		Debug.Print( State )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = "Cu&t[id=24][dis],&Copy[id=25],[sep][id=-2],Create &shortcut[id=16],&Delete[id=17][dis]"
	End With
End Sub


149:
How can I change the label to be displayed in the parent folder

With ExFileView1
	.IncludeParent = True
	.IncludeParentLabel = "<b><%0%>"
	.ExploreFromHere = "C:\"
	.BrowseFolderPath = "C:\Temp"
End With
148:
How can I change the +/- button's images (method 2)

With ExFileView1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAEGg4BCwCg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2" & _
"PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6Ho" & _
"HEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZkH+eg9D4TxfhuRZeGGdwQH2PQTCmDpFFaKoVB+D5Xmed5pHoX44AWfR+F8UwVnEdpdkMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"TIcH+XoIFoEwnGEAh6A0KBgiMIICHdLgIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiSAJQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxl" & _
"BkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVaNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCD" & _
"QiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgIA=="
		.Add 2,"gBFLBCJwBAEHhEJAEGg4BDACg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2" & _
"PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6Ho" & _
"HEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZknOeY9D4XxfHmB5cEGdp0EyJg7BUWoqFQfY/B8f5PnOd5+H6IAHkyRR7l2NxwkwMoMgKHIjCgShCgSHgogmch2BAJwhDg" & _
"VIfgUIQYDSHoCgoGAckgIIdkgFICDQDJjDSIAnAmI5+CqCpikiNgugqYhyGoJAzGIAgKCINQNCMRIbCYCRYj4PoPmOMhWDgNBjFiCJaDYTRiGiFwlCOQhOEsJBJHIThQ" & _
"hSJQZE4UAlAkGQ2EoJQkHMWhFF+SAZgSYQ3g2WQ2DsJYJkIYIWhmZpJioZ4aGaOYqE2GJNlmBIBGAJxjhiZQ5AkMhAg6nwpDaAglEkOgOgWIQoAmdIOh6DhJlkfRhWQO" & _
"JtDsCJSCSBwkXSLIRiYaY6GqHInmmYguhgIppFIHoSDsJxmBGBhomoeo2hOK4OkqQoyiuaxDjGIxhhiAoSjoIJZnaIo+i+WhGH6OgpBiBAEIC"
	End With
	.HasCheckBox = PartialCheckBox
	.ExpandFolders = True
	.Background(exTreeGlyphOpen) = &H1000000
	.Background(exTreeGlyphClose) = &H2000000
	.Indent = 19
	.EndUpdate 
End With
147:
How can I change the +/- button's images (method 1)

With ExFileView1
	.BeginUpdate 
	.LoadIconsKey = 1234
	.LoadIcons "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BfeBf7ywj/dWHf7pxWJxeKdOMx+OyGTyWVxeHdWDwuBfb/zmaeWGxGWyON02l1GU" & _
"0+izOE0Ofv9J1z/am1f6/3D/Xm73W83a83vA3/B4nD4283C/2m22ez2rU2+54/C33V6nX4vW6PK5+gf+xpGYf6V8j/QiEQr/Qfr9Xs9aD9vw9/x+nz+3s8/p8iV1n9/b" & _
"zPQ+r3QG+UCQFAsEQA/TyvE8Cjsk/J/mOYZgn+YBel1CxeQyYENw1DkPQ7EERw/C0MQlCkFNUx8IwnCsLxJEUSxlGkQxtDkTxdFTJQcozJPmYhhOUW5aFif8iFlI5aST" & _
"JElSZJcnSjJsiSNILlPm0j6StJUjSnKEvSfMMpS/Ip/y3LDFx6orJEE9hjmIYZ/lmWBXTlOk7TrOc6ooik9TxP8/TfOM2vhLNCQlOFATvP1GUXR080fP9BH/Q8eTUoc2" & _
"PYZRjmKf5WlUVFPVBUVQ0/UM+IhU1SVXVVN07SrV0PV1WVHVVbVrXFS1zVdZ1gx9L0wxZBTaf5mGUZB/lOUZQn+UhQk8f5RE+Ttok+TlUIhaVr2lalnWhZVmWNZFh0LW" & _
"NiXFZNl2bZ9q2pbVq23a14Xbddv3VdFyMnYChTZYZ/mgZxmn+UBOE1bGD4RhGCYNgGBWGQUV0pf2G4HguE4vjGF3/gOJYhS19p/fuIGoaRon+TZMP5jGV2xlD+ZJk2H4" & _
"jmWYZPlOWZwimXNpkuO31kGQ2FfxtGyax/k0S5KH/lJJn/pJI6cSeoYOS+pacSmoaZo+kn/omjZlQ2h6Lrela1p+o6hqu06ttWr6ySum6RpWvZ9j+gJ4yRA70f5wm8bu" & _
"l7hmxLH+ThMcHlHB4PxHCcNwXAabvu/70QOI8nvm/cfx3C8PxvF89xvN8drXIn/y27bunW872cxynIf5JkgR2rklzOtYPrWzEp2nYdl1nXdM1fLd91/Y9n2vA9x5Hlab" & _
"pPd+L4fgV/1CePFyx3Hadh/kaRJDn+SBGkWf5I/B8XyfH8Pz/L9Hye/8Pt+76/s8s8Xq73+Pte573zf39f+/U/99r+H4PYdK3tBr0ydmzPm/eBkBIGvZgeP+CME4CHzO" & _
"aYWBcDoNQQg3BKDsFIOQhPobOBBOzPikhQeo86B4WH3QTC4+sK4UCkM8YKE8KRBwrhhDtA0PIXwyhSbCEpOSLA+JXEYjxICREkAASUlETicEQiHFMpxAQ"
	.HasCheckBox = CheckBox
	.ExpandFolders = True
	.Background(exTreeGlyphOpen) = RGB(210,4,0)
	.Background(exTreeGlyphClose) = RGB(211,4,0)
	.Indent = 19
	.EndUpdate 
End With
146:
How can I change the check box button's images (method 2)

With ExFileView1
	.BeginUpdate 
	.LoadIconsKey = 1234
	.LoadIcons "gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1JJuBAGBJuDwWEw2FxGLw+Nws8xmKx2JymRyuCv9dy2byecyWfyk0z2X0Gj0eZqmW" & _
"LmrADE1wAfexmuxfet15e3Gkluq1muYmw2U02m23+4L261FPyzJ5lF5jJ5Er5fNonP6PJpmW4dE4eWlna4MzYfjACi80t7uT7HrorR9wALXxABW+gAYv33fq9n7njb/w" & _
"ANWLj5vq+grAAMUEAAdcFpQ7z+KRBylQjBr9JUc8LgAMkNQA1hFQ9AcDQKAA+RI4DawnB6iRQo8VozFoADZGIADhGgAHDG6UFXHUQR4UkfAAacgwzDcUxYyZ8yQoskHy" & _
"68KNBJaUExKQAHvKqYlvLEeREZsuSpK0iqMyxlzGosxmXJqNzFMigGDNoACxOEDwTBZ1zBMLJjBPIAOsnjrTyME0I0y0/z26idn7RFCug+ItAAP1Hx5O0VM7SjS0q3TE" & _
"NFS7TUuPtPAAeFQgAWNSTfOMRUlI1LVXTFLshTdYVZTKNRFVFU1upVbVxXdeK+iwfJXYCPJAkSSAAkqUWQnCIV6mxgAfZ6NkAA9po2A5B2ujYPnHbdtHGDwxo2h5+Bnc" & _
"R/nwCaNh+eYYAHdR5hjdyNW2CZB28D5ho2B5hgeYNpWpZQAWeYAE3Mf5+4Mf6NoCA"
	.HasCheckBox = CheckBox
	.ExpandFolders = True
	.Background(exCheckBoxState0) = RGB(210,4,0)
	.Background(exCheckBoxState1) = RGB(211,4,0)
	.EndUpdate 
End With
145:
Is it possible to show the entire line when selecting files or folders

With ExFileView1
	.FullRowSelect = True
End With
144:
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

With ExFileView1
	.BeginUpdate 
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(&H2,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.EndUpdate 
End With
143:
How can I change the check box button's images (method 1)

With ExFileView1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
"AWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9Hp" & _
"viMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8sgBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gW" & _
"YJ2F4FwdhsJpuBQfRiAWdQJEAQCAg"
		.Add 2,"gBFLBCJwBAEHhEJAEGg4BVUMQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
"AWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDx" & _
"QjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBi" & _
"eYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgW" & _
"mUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCFAEIC"
	End With
	.HasCheckBox = PartialCheckBox
	.ExpandFolders = True
	.Background(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &H2d7f7f2
	.EndUpdate 
End With
142:
Is it possible to displays only KB, MB, GB when case, so with no Bytes

With ExFileView1
	.Option(exSizeFormat) = 14
End With
141:
Is it possible to displays Bytes, KB, MB, GB when case

With ExFileView1
	.Option(exSizeFormat) = 15
End With
140:
Is it possible to displays Bytes combined with Mega-Bytes(MB) in the Size column

With ExFileView1
	.Option(exSizeFormat) = 5
End With
139:
Is it possible to displays Giga-Bytes(GB) only in the Size column

With ExFileView1
	.Option(exSizeFormat) = 8
End With
138:
Is it possible to displays Mega-Bytes(MB) only in the Size column

With ExFileView1
	.Option(exSizeFormat) = 4
End With
137:
Is it possible to displays Kilo-Bytes(KB) only in the Size column

With ExFileView1
	.Option(exSizeFormat) = 2
End With
136:
Is it possible to displays Bytes only in the Size column

With ExFileView1
	.Option(exSizeFormat) = 1
End With
135:
How can I simulate a go back or navigating to the parent folder

With ExFileView1
	.BrowseFolderPath = "C:\Program Files"
	.BrowseFolderPath = ".."
End With
134:
Does your control support runtime filter

With ExFileView1
	.BeginUpdate 
	.ColumnFilterButton("Name") = True
	.AddColumnCustomFilter "Name","All  Project Files (*.sln, *.dsw)","*.sln|*.dsw"
	.AddColumnCustomFilter "Name","Solution Files (*.sln)","*.sln"
	.AddColumnCustomFilter "Name","Compatible Workspace Files (*.dsw)","*.dsw"
	.FilterBarDropDownWidth("Name") = -212
	.ColumnFilterButton("Type") = True
	.FilterBarDropDownWidth("Type") = -128
	.ColumnFilterButton("Modified") = True
	.EndUpdate 
End With
133:
How can I reffer a folder or a file, without using the wild characters

With ExFileView1
	With .FileTypes.Add("TEMP")
		.HasPattern = False
		.Folder = True
		.Bold = True
		.Apply 
	End With
End With
132:
How do I change the text being diplayed in the Type column for specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Type = "__newtype__"
		.Apply 
	End With
End With
131:
How do I change the text being diplayed in the Type column for specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Type = "__newtype__"
		.Apply 
	End With
End With
130:
How do I change the text being diplayed in the Type column for specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Type = "__newtype__"
		.Apply 
	End With
End With
129:
How do I change the text being diplayed in the Type column for specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Type = "__newtype__"
		.Apply 
	End With
End With
128:
How do I underline specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Underline = True
		.Apply 
	End With
End With
127:
How do I underline specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Underline = True
		.Apply 
	End With
End With
126:
How do I underline specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Underline = True
		.Apply 
	End With
End With
125:
How do I underline specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Underline = True
		.Apply 
	End With
End With
124:
How do I draw as strikeout specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.StrikeOut = True
		.Apply 
	End With
End With
123:
How do I draw as strikeout specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.StrikeOut = True
		.Apply 
	End With
End With
122:
How do I draw as strikeout specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.StrikeOut = True
		.Apply 
	End With
End With
121:
How do I draw as strikeout specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.StrikeOut = True
		.Apply 
	End With
End With
120:
How do I draw as italic specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Italic = True
		.Apply 
	End With
End With
119:
How do I draw as italic specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Italic = True
		.Apply 
	End With
End With
118:
How do I draw as italic specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Italic = True
		.Apply 
	End With
End With
117:
How do I draw as italic specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Italic = True
		.Apply 
	End With
End With
116:
How do I bold specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Bold = True
		.Apply 
	End With
End With
115:
How do I bold specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Bold = True
		.Apply 
	End With
End With
114:
How do I bold specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Bold = True
		.Apply 
	End With
End With
113:
How do I bold specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Bold = True
		.Apply 
	End With
End With
112:
How do I change the background color for specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.BackColor = RGB(255,0,0)
		.Apply 
	End With
End With
111:
How do I change the background color for specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.BackColor = RGB(255,0,0)
		.Apply 
	End With
End With
110:
How do I change the background color for specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.BackColor = RGB(255,0,0)
		.Apply 
	End With
End With
109:
How do I change the background color for specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.BackColor = RGB(255,0,0)
		.Apply 
	End With
End With
108:
How do I change the foreground color for specified files or folders

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.ForeColor = RGB(255,0,0)
		.Apply 
	End With
End With
107:
How do I change the foreground color for specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.ForeColor = RGB(255,0,0)
		.Apply 
	End With
End With
106:
How do I change the foreground color for specified files or folders

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.ForeColor = RGB(255,0,0)
		.Apply 
	End With
End With
105:
How do I change the foreground color for specified files or folders

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.ForeColor = RGB(255,0,0)
		.Apply 
	End With
End With
104:
How do I get the count of all items
With ExFileView1
	var_Count = .Get(VisibleItems).Count
End With
103:
How do I get the count oc checked items

With ExFileView1
	.HasCheckBox = CheckBox
	var_Count = .Get(CheckItems).Count
End With
102:
How do I get the count of all items
With ExFileView1
	var_Count = .Get(AllItems).Count
End With
101:
How do I get the selected folder

With ExFileView1
	var_Count = .Get(SelItems).Count
End With
100:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = &H1000000
	.Background(exHSThumbP) = &H2000000
	.Background(exHSThumbH) = &H3000000
	.Background(exVSThumb) = &H1000000
	.Background(exVSThumbP) = &H2000000
	.Background(exVSThumbH) = &H3000000
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
99:
How do I change the visual aspect only for the thumb in the scroll bar, using EBN

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = &H1000000
	.Background(exHSThumbP) = &H2000000
	.Background(exHSThumbH) = &H3000000
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
98:
How to check whether the control hides the three-letter file-name extensions for certain files, reducing clutter in folder windows

With ExFileView1
	.Option(exHideFileExtensionsForKnownFileTypes) = True
	.Refresh 
End With
97:
How can I change the date format in the Modified column

With ExFileView1
	.Option(exModifiedDateFormat) = "yyyyy "
	.Option(exModifiedTimeFormat) = "hh:mm"
	.Refresh 
End With
96:
How can I change the date format in the Modified column

With ExFileView1
	.Option(exModifiedDateFormat) = "ddd, MMM dd yy"
	.Refresh 
End With
95:
How can I change the format of the caption that's shown in the Modified column, if ModifiedDaysAgo property is used

With ExFileView1
	.ModifiedDaysAgo = 356
	.Option(exModifiedDaysAgo) = "vor %i Tagen"
	.Refresh 
End With
94:
How can I change the "today" caption that's shown in the Modified column

With ExFileView1
	.ModifiedDaysAgo = 356
	.Option(exModifiedToday) = "__ new today __"
	.Refresh 
End With
93:
Is there any way to rename a column

With ExFileView1
	.ColumnCaption("Name") = "__ new name __"
End With
92:
Is there any option to exclude folders that match a pattern

With ExFileView1
	.ExcludeFolderFilter = "W*"
End With
91:
Is there any option to include only folders that match a pattern

With ExFileView1
	.IncludeFolderFilter = "W*"
End With
90:
How can I include files when folders are expanded

With ExFileView1
	.ExpandFolders = True
	.IncludeFilesInFolder = True
End With
89:
How do I get the file or folder from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub ExFileView1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With ExFileView1
		Debug.Print( .FileFromPoint(-1,-1) )
	End With
End Sub

With ExFileView1
	Debug.Print( .FileFromPoint(-1,-1) )
End With
88:
How can I expand programatically a folder

With ExFileView1
	.ExpandFolders = True
	.Expand "WINNT"
End With
87:
Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window

With ExFileView1
	.ColumnFilterButton("Name") = True
	.Description(exFilterBarFilterTitle) = ""
	.Description(exFilterBarPatternFilterTitle) = ""
	.Description(exFilterBarTooltip) = ""
	.Description(exFilterBarPatternTooltip) = ""
	.Description(exFilterBarFilterForTooltip) = ""
End With
86:
How can I change the "Filter For" caption in the column's drop down filter window

With ExFileView1
	.ColumnFilterButton("Name") = True
	.Description(exFilterBarFilterForCaption) = "new caption"
End With
85:
How do I change the "All" caption in the drop down filter window

With ExFileView1
	.ColumnFilterButton("Name") = True
	.Description(exFilterBarAll) = "new name for (All)"
End With
84:
How do I sort a column

With ExFileView1
	.Sort "Name",False
End With
83:
How do I change the font in the filter bar

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarFont.Name = "Verdana"
End With
82:
How do I change the visual appearanceof the filter bar

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarBackColor = &H1000000
End With
81:
How do I change the color in the filter bar

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarBackColor = RGB(255,0,0)
End With
80:
How do I change the color in the filter bar

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarForeColor = RGB(255,0,0)
End With
79:
How do I specify the height of the filter bar

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarHeight = 32
End With
78:
How do I remove or clear the filter
With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.ClearFilter 
End With
77:
How do I change the caption in the filter bar

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarCaption = "new filter"
End With
76:
How do I filter a column

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
End With
75:
How can I enlarge the height of the drop down filter window

With ExFileView1
	.ColumnFilterButton("Name") = True
	.FilterBarDropDownHeight = "-256"
End With
74:
How do I remove or clear my own filters

With ExFileView1
	.ColumnFilterButton("Name") = True
	.AddColumnCustomFilter "Name","(Executable files)","*.exe|*.com|*.bat"
	.ClearColumnCustomFilters "Name"
End With
73:
How do I specify my own filters

With ExFileView1
	.ColumnFilterButton("Name") = True
	.AddColumnCustomFilter "Name","(Executable files)","*.exe|*.com|*.bat"
End With
72:
How can I enlarge the width of the drop down filter window

With ExFileView1
	.ColumnFilterButton("Name") = True
	.FilterBarDropDownWidth("Name") = 2
End With
71:
How can I enlarge the width of the drop down filter window

With ExFileView1
	.ColumnFilterButton("Name") = True
	.FilterBarDropDownWidth("Name") = "-256"
End With
70:
How can I enable filtering the folders and files

With ExFileView1
	.ColumnFilterButton("Name") = True
End With
69:
How do I display in the Modified column, the number of days since the file or folder was changed

With ExFileView1
	.ModifiedDaysAgo = 356
End With
68:
How do I stop programatically the searching
With ExFileView1
	.StopSearch 
End With
67:
How do I search or find files

With ExFileView1
	.Search = "A*.A*"
End With
66:
How can I expand or collapse a folder, when the user double clicks it

With ExFileView1
	.ExpandFolders = True
	.ExpandOnDblClk = True
End With
65:
How can I change the default icon being displayed for parent folders

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	.IncludeParentIconKey = 1234
End With
64:
How can I show only folders

With ExFileView1
	.IncludeFiles = False
End With
63:
How can I show or hide the expand/collapse buttons

With ExFileView1
	.ExpandFolders = True
	.HasLines = True
	.HasLinesAtRoot = True
	.HasButtons = False
End With
62:
How can I show the lines at root

With ExFileView1
	.ExpandFolders = True
	.HasLines = True
	.HasLinesAtRoot = True
End With
61:
How can I show the lines between child and parents

With ExFileView1
	.ExpandFolders = True
	.HasLines = True
End With
60:
Is there any option to add an expand or collapse (+/-) buttons left to each folder

With ExFileView1
	.ExpandFolders = True
End With
59:
How do I show or hide the first item that shows when I browse new folders

With ExFileView1
	.IncludeParent = False
End With
58:
How do I enable or disable renaming the folders and files
With ExFileView1
	.AllowRename = True
End With
57:
How do I change the width of the columns

With ExFileView1
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
56:
How do I change the width of the columns

With ExFileView1
	.ColumnWidth("Name") = 256
End With
55:
How do I show or hide a column

With ExFileView1
	.ColumnVisible("Type") = False
End With
54:
How can I get the path of the browsed folder
With ExFileView1
	.BrowseFolderPath = "c:/temp"
End With
53:
The Change event is not fired. What can I do
With ExFileView1
	.ChangeNotification = True
End With
51:
How do I change the width of the columns

With ExFileView1
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
50:
How can I refresh automatically the control so it reflect the changes in the browsed folder
With ExFileView1
	.AutoUpdate = True
End With
49:
May I disable the control's content menu, that's displayed when the user does right click
With ExFileView1
	.AllowMenuContext = False
End With
48:
How do I refresh the control
With ExFileView1
	.Refresh 
End With
47:
How do I enable single or multiple selection

With ExFileView1
	.SingleSel = False
End With
46:
Can I display only all execpts the *.exe and *.com files using wild characters

With ExFileView1
	.ExcludeFilter = "*.exe *.com *.bat"
End With
45:
Can I display only *.exe and *.com files using wild characters

With ExFileView1
	.IncludeFilter = "*.exe *.com *.bat"
End With
44:
Can I change the folder being explored
With ExFileView1
	.ExploreFromHere = "c:\Program Files"
End With
43:
Can I display only files

With ExFileView1
	.IncludeFolders = False
End With
42:
How can I change the default icon being displayed for specified folders

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("W*")
		.Folder = True
		.IconIndex = 1234
		.Bold = True
		.Apply 
	End With
End With
41:
How can I change the default icon being displayed for specified files

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("*.bat *.com *.exe")
		.IconIndex = 1234
		.Apply 
	End With
End With
40:
How can I change the default icon being displayed for files

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("*")
		.IconIndex = 1234
		.Apply 
	End With
End With
39:
How can I change the default icon being displayed for folders

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("*")
		.Folder = True
		.IconIndex = 1234
		.Apply 
	End With
End With
38:
Does your control support partial check feature, so a parent item gets checked when all its child items are checked

With ExFileView1
	.HasCheckBox = PartialCheckBox
	.ExpandFolders = True
End With
37:
Can I add a checkbox to each file or folder

With ExFileView1
	.HasCheckBox = CheckBox
End With
36:
How do I put a picture on the center of the control

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = MiddleCenter
End With
35:
How do I resize/stretch a picture on the control's background

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = Stretch
End With
34:
How do I put a picture on the control's center right bottom side

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerRight
End With
33:
How do I put a picture on the control's center left bottom side

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerLeft
End With
32:
How do I put a picture on the control's center top side

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperCenter
End With
31:
How do I put a picture on the control's right top corner

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperRight
End With
30:
How do I put a picture on the control's left top corner

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperLeft
End With
29:
How do I put a picture on the control's background

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
28:
How do I change the control's border, using your EBN files

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\hot.ebn"
	.Appearance = &H1000000
	.BackColor = RGB(255,255,255)
End With
27:
How do I remove the control's border

With ExFileView1
	.Appearance = None2
End With
26:
How can I change the foreground color of the control's header

With ExFileView1
	.ForeColorHeader = RGB(255,0,0)
End With
25:
How can I change the background color of the control's header

With ExFileView1
	.BackColorHeader = RGB(255,255,0)
	.HeaderAppearance = Flat
End With
24:
How can I change the visual appearance of the header, using EBN files

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.BackColorHeader = &H1000000
End With
23:
How can I change the header's appearance

With ExFileView1
	.HeaderAppearance = Flat
End With
22:
How do I disable the control
With ExFileView1
	.Enabled = False
End With
21:
How do I change the visual appearance effect for the selected item, using EBN

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
End With
20:
How do I change the colors for the selected item

With ExFileView1
	.SelBackColor = RGB(0,0,0)
End With
19:
How can I change the control's font

With ExFileView1
	.Font.Name = "Tahoma"
End With
18:
How do I show or hide the control's header bar

With ExFileView1
	.HeaderVisible = False
End With
17:
How do I change the control's foreground color

With ExFileView1
	.ForeColor = RGB(120,120,120)
End With
16:
How do I change the control's background color

With ExFileView1
	.BackColor = RGB(200,200,200)
End With
15:
How do I prevent painting the control while multiple changes occur
With ExFileView1
	.BeginUpdate 
	.ForeColor = RGB(255,0,0)
	.BackColor = RGB(255,255,255)
	.EndUpdate 
End With
14:
How do I change the height of the items

With ExFileView1
	.DefaultItemHeight = 13
	.Refresh 
End With
13:
How do I enable resizing the columns at runtime

With ExFileView1
	.ColumnsAllowSizing = True
End With
12:
How do I call your x-script language

With ExFileView1
	.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With
11:
How do I call your x-script language

With ExFileView1
	.Template = "BackColor = RGB(255,0,0)"
End With
10:
Can I change the order of the buttons in the scroll bar

With ExFileView1
	.ScrollOrderParts(exHScroll) = "t,l,r"
	.ScrollOrderParts(exVScroll) = "t,l,r"
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
9:
The thumb size seems to be very small. Can I make it bigger

With ExFileView1
	.ScrollThumbSize(exHScroll) = 64
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
8:
How do I enlarge or change the size of the control's scrollbars

With ExFileView1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
7:
How do I assign a tooltip to a scrollbar

With ExFileView1
	.ScrollToolTip(exHScroll) = "This is a tooltip being shown when you click and drag the thumb in the vetrical scroll bar"
	.ScrollPartCaption(exHScroll,exThumbPart) = "This is just a text"
	.ScrollFont(exVScroll).Size = 12
	.ScrollWidth = 20
	.ScrollThumbSize(exVScroll) = 148
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
6:
I need to add a button in the scroll bar. Is this possible

With ExFileView1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartCaption(exHScroll,exLeftB1Part) = "1"
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
5:
Can I display an additional buttons in the scroll bar

With ExFileView1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartVisible(exHScroll,exLeftB2Part) = True
	.ScrollPartVisible(exHScroll,exRightB6Part) = True
	.ScrollPartVisible(exHScroll,exRightB5Part) = True
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With
4:
Is there any option to highligth the column from the cursor - point
With ExFileView1
	.Background(exCursorHoverColumn) = RGB(255,255,255)
End With
3:
Is there any option to highligth the column from the cursor - point
With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exCursorHoverColumn) = &H1000000
End With
2:
How do I change the visual aspect of the close button in the filter bar, using EBN

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exFooterFilterBarButton) = &H1000000
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe"
	.ApplyFilter 
End With
1:
How do I change the visual aspect of the drop down filter button, using EBN

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exHeaderFilterBarButton) = &H1000000
	.ColumnFilterButton("Name") = True
End With