142
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

With CascadeFile1
	.BeginUpdate 
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.Font.Size = 16
	.ToolTipFont.Size = CascadeFile1.Font.Size
	.Indent = 26
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA=="
		.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
		.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
	End With
	.BackColorHeader = &H4c6c6c6
	.SelBackColor = &H4f0f0f0
	.SelForeColor = RGB(0,0,1)
	.HotBackColor = &H4f8f8f8
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	.ExpandFolders = True
	.HasCheckBox = 1
	.ExploreFromHere = ""
	.Select = "C:"
	.EndUpdate 
End With
141
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

With CascadeFile1
	.BeginUpdate 
	.ImageSize = 16
	With .VisualAppearance
		.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
	End With
	.BackColorHeader = &H4c6c6c6
	.SelBackColor = &H4f0f0f0
	.SelForeColor = RGB(0,0,1)
	.HotBackColor = &H4f8f8f8
	.ExpandFolders = True
	.HasCheckBox = 1
	.ExploreFromHere = ""
	.Select = "C:"
	.EndUpdate 
End With
140
How can I add a checkbox to each item

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( .Get(2) )
	End With
End Sub

With CascadeFile1
	.HasCheckBox = 1
	.ExploreFromHere = "C:/"
End With
139
How do I get the selected file/files
' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( .Select )
	End With
End Sub

With CascadeFile1
	.ExploreFromHere = "C:/"
End With
138
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

With CascadeFile1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
		.Add 2,"CP:1 0 -36 0 0"
	End With
	.Background(182) = &H2000000
	.StatusBarVisible = 0
	.Mode = 1
	.EndUpdate 
End With
137
How can I specify my favorites folders

With CascadeFile1
	.BeginUpdate 
	.HeaderVisible = False
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.Select = "C:\Windows"
	.EndUpdate 
End With
136
How can I add the "My Documents"

With CascadeFile1
	.ExploreFromHere = "C:\|::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
End With
135
How can I add the Printers and Faxes

With CascadeFile1
	.ColumnsVisible = 2
	.ExploreFromHere = "C:\|::{2227a280-3aea-1069-a2de-08002b30309d}>"
End With
134
How can I add the "Recycle Bin" folder

With CascadeFile1
	.ExploreFromHere = "C:\|::{645FF040-5081-101B-9F08-00AA002F954E}>"
End With
133
How can I add the "Documents" folder

With CascadeFile1
	.ExploreFromHere = "C:\|::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
End With
132
How can I add the Network folder

With CascadeFile1
	.ExploreFromHere = "C:\|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
End With
131
How can I add the My Computer

With CascadeFile1
	.ExploreFromHere = "C:\|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
End With
130
How can I add the My Network Places folder

With CascadeFile1
	.ExploreFromHere = "C:\|::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
End With
129
How can I add the Desktop folder

With CascadeFile1
	.ExploreFromHere = "C:\|::{00021400-0000-0000-C000-000000000046}>"
End With
128
How can I create my own favorites folders

With CascadeFile1
	.BeginUpdate 
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|C:\Temp><b>My Projects</b>|"
	.Select = "C:\Temp"
	.ColumnsVisible = 2
	.HeaderVisible = False
	.FitCascadeColumns = 3
	.EndUpdate 
End With
127
How can change the explore from folder (sample 2)

With CascadeFile1
	.ExploreFromHere = "C:\>"
	.Layout = "Expand0 = ""C:\"";SelectMode0 = 0"
End With
126
How can change the explore from folder (sample 1)

With CascadeFile1
	.ExploreFromHere = "C:\"
End With
125
Is it possible to include more system drives as root folders (sample 2)

With CascadeFile1
	.ExploreFromHere = "C:\>SYSTEM <off 4><b>1|D:\>SYSTEM <off 4><b>2|E:\>SYSTEM <off 4><b>3"
End With
124
Is it possible to include more system drives as root folders (sample 1)

With CascadeFile1
	.ExploreFromHere = "C:\|D:\|E:\"
End With
123
How can I include a system drive as a root folder, instead lists its content

With CascadeFile1
	.ExploreFromHere = "C:\>"
	.Layout = "Expand0 = ""C:\"";SelectMode0 = 0"
End With
122
How can I add the Desktop as a root folder (sample 3, rename, new display name, root)

With CascadeFile1
	.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}><sha ;;0>This <b>PC</b>"
End With
121
How can I add the Desktop as a root folder (sample 2)

With CascadeFile1
	.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
End With
120
How can I add the Desktop as a root folder (sample 1)

With CascadeFile1
	.ExploreFromHere = ">"
	.Select = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	.SelectMode = 1
End With
119
How can I browse the "Public" folder

With CascadeFile1
	.ExploreFromHere = "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
End With
118
How can I browse the "Libraries" folder

With CascadeFile1
	.ExploreFromHere = "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
End With
117
How can I browse the "HomeGroup" folder

With CascadeFile1
	.ExploreFromHere = "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
End With
116
How can I browse the "Games" folder

With CascadeFile1
	.ExploreFromHere = "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
End With
115
How can I browse the "OneDrive" folder

With CascadeFile1
	.ExploreFromHere = "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
End With
114
How can I browse the "Recycle Bin" folder

With CascadeFile1
	.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}"
End With
113
How can I browse the "Documents" folder

With CascadeFile1
	.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End With
112
How can I browse the Network folder

With CascadeFile1
	.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
End With
111
How can I browse the My Computer

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

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

With CascadeFile1
	.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
End With
108
How can I select multiple files

With CascadeFile1
	.Select = "C:\\r\nD:\\r\nE:\"
End With
107
How can I select a single file

With CascadeFile1
	.Select = "C:\"
End With
106
Can I change the folder being explored

With CascadeFile1
	.ExploreFromHere = "c:\Program Files"
End With
105
How can I turn on the Thumbnail mode

With CascadeFile1
	.Select = "C:\"
	.SelectMode = 2
End With
104
How to turn off the Auto-Update feature
With CascadeFile1
	.AutoUpdate = False
End With
103
I can not make a column larger, by resizing its header, as it splits the control's header only. What can I do

With CascadeFile1
	.BeginUpdate 
	.ColumnAutoResize = False
	.StatusBarVisible = 0
	.Mode = 1
	.Select = "c:\Windows"
	.EndUpdate 
End With
102
How can hide the column's header

With CascadeFile1
	.BeginUpdate 
	.HeaderVisible = False
	.ColumnsVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.EndUpdate 
End With
101
How can hide the Modified, Size and Type columns

With CascadeFile1
	.BeginUpdate 
	.ColumnsVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.EndUpdate 
End With
100
How can I hide the +/- buttons, so I can show just plain lists, no children

With CascadeFile1
	.BeginUpdate 
	.ColumnsVisible = 2
	.ExpandFolders = False
	.HeaderVisible = False
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.EndUpdate 
End With
99
A small rectangle is shown around the item that has the focus. Can I hide that
With CascadeFile1
	.ShowFocusRect = False
End With
98
How can I get ride of the hot selection color
With CascadeFile1
	.BeginUpdate 
	.HotBackColor = -1
	.HotForeColor = -1
	.EndUpdate 
End With
97
How can I change the control's selection color (sample 3)

With CascadeFile1
	.BeginUpdate 
	With .VisualAppearance
		.Add 2,"XP:Button 1 2"
		.Add 1,"CP:2 -1 0 1 0"
		.Add 4,"XP:Button 1 1"
		.Add 3,"CP:4 -1 0 1 0"
	End With
	.FitCascadeColumns = 2
	.Select = "c:\"
	.FullRowSelect = True
	.ExpandFolders = False
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.HotBackColor = &H3000000
	.HotForeColor = RGB(0,0,0)
	.EndUpdate 
End With
96
How can I change the control's selection color (sample 2)

With CascadeFile1
	.BeginUpdate 
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
"AceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
"JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
"iC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFY" & _
"FoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJl" & _
"EkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDyd" & _
"w8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi" & _
"0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
	.FitCascadeColumns = 2
	.Select = "c:\"
	.FullRowSelect = True
	.SelBackColor = &H1e0e0e0
	.SelForeColor = RGB(0,0,0)
	.EndUpdate 
End With
95
How can I change the control's selection color (sample 1)

With CascadeFile1
	.BeginUpdate 
	.FitCascadeColumns = 2
	.Select = "c:\"
	.FullRowSelect = True
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
	.EndUpdate 
End With
94
How can I select the entire item, rather that name only

With CascadeFile1
	.BeginUpdate 
	.Select = "c:\|d:\|e:\"
	.SelectMode = 1
	.FullRowSelect = True
	.EndUpdate 
End With
93
Is it possible to show the selection with a different color, when the control loses the focus

With CascadeFile1
	.BeginUpdate 
	.HideSelection = False
	.Background(166) = RGB(224,224,224) ' &Ha6
	.Background(167) = RGB(64,64,64) ' &Ha7
	.Select = "c:\|d:\|e:\"
	.SelectMode = 1
	.EndUpdate 
End With
92
The selection is still shown when the control loses the focus. Is it possible to hide it
With CascadeFile1
	.HideSelection = True
End With
91
How can I enable single-selection
With CascadeFile1
	.SingleSel = True
End With
90
Predefined Keywords of ShowContextMenu property

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		.ExecuteContextMenu = 0
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.ScrollPartVisible(0,65536) = True
	.ScrollPartVisible(1,65536) = True
	.ScrollPartVisible(2,65536) = True
	.ScrollWidth = 4
	.Background(276) = RGB(240,240,240)
	.Background(260) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(404) = .Background(276)
	.Background(388) = .Background(260)
	.Background(511) = .Background(276)
	.EndUpdate 
	.AllowSplitView = 2
	.FitCascadeColumns = 3
	.ShowContextMenu = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` +" & _
" fileparsename + `,filefullname=` + filefullname + `,[sep]` + `,vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevel" & _
"s + `,hlevel=` + hlevel + `,view=` + view + `,[sep]` + `,selectmode=` + selectmode"
	.SplitViewHeight = "256,256"
	.Layout = "Select1=""C:\"""
	.Select = "C:\Windows"
End With
89
How can I display the identifiers of the control's context menu (debug)

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.ShowContextMenu = "`[debug]` + menu"
End With
88
How can I copy/execute command a file/folder (selection)
With CascadeFile1
	.BeginUpdate 
	.SingleSel = False
	.ExploreFromHere = "c:\"
	.ExpandFolders = True
	.Select = "c:\Temp"
	.ExecuteContextCommand "<selection>",True,"Copy"
	.EndUpdate 
End With
87
How can I copy a file/folder (absolute name)
With CascadeFile1
	.BeginUpdate 
	.ExploreFromHere = "c:\"
	.ExecuteContextCommand "c:\Temp",True,"Copy"
	.EndUpdate 
End With
86
How can I copy a file/folder (relative name)
With CascadeFile1
	.BeginUpdate 
	.ExploreFromHere = "c:\"
	.ExecuteContextCommand "Temp",True,"Copy"
	.EndUpdate 
End With
85
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? `""` + filename + `""` : `multiple selection` ) + `[dis],[sep],` + me" & _
"nu)"
End With
84
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
End With
83
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
End With
82
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ExploreFromHere = "c:\"
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ExpandFolders = True
	.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"
End With
81
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ExploreFromHere = "c:\"
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ExpandFolders = True
	.ShowContextMenu = "menu replace `&Delete` with ``"
End With
80
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
End With
79
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
End With
78
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.FullRowSelect = True
	.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
End With
77
ShowContextMenu usage
' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		Debug.Print( "no context menu is generated, so nothing is displayed" )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.FullRowSelect = True
	.ShowContextMenu = "``"
End With
76
How can I add new items to the default file's context menu

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		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,Operation)
		Debug.Print( "Execute" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
End With
75
Is it possible to display the item's identifiers in the file's context menu

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,Operation)
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
End With
74
How can I remove the Delete command from the file's context menu

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with ``",.ShowContextMenu)
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
End With
73
How can I provide my own context menu

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		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 CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
End With
72
Is it possible to prevent executing a specific command from the object's context menu
' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		.ExecuteContextMenu = 0
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
End With
71
How can I disable the Delete command from the object's context menu

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( Operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with `&Delete[dis]`",.ShowContextMenu)
	End With
End Sub

With CascadeFile1
	.ColumnsVisible = 2
	.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
End With
70
How can I turn off, disable the control's context menu
With CascadeFile1
	.AllowContextMenu = False
	.ColumnsVisible = 2
End With
69
How can I decode the Layout property

With CascadeFile1
	.AllowSplitView = 2
	.Select = "C:\"
	.SplitViewHeight = "256,256"
	sLayout = .Layout
	Debug.Print( "Encoded:" )
	Debug.Print( sLayout )
	With CreateObject("Exontrol.Print")
		Debug.Print( "Decoded: " )
		Debug.Print( .Decode64TextW(sLayout) )
	End With
End With
68
Is there any property I could use, so I can save the control's state, so I can restore once my application is re-started
With CascadeFile1
	sLayout = .Layout
	Debug.Print( "Save" )
	Debug.Print( sLayout )
	.Select = "C:\"
	.Layout = sLayout
End With
67
Turn on the backcolor alternate feature

With CascadeFile1
	.BeginUpdate 
	.BackColorAlternate = RGB(240,240,240)
	.ForeColorAlternate = RGB(40,40,40)
	.Select = "C:\Windows\System32"
	.EndUpdate 
End With
66
Display HTML in the control's status bar

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 2
	.Select = "C:\Windows\System32"
	.FitCascadeColumns = 3
	.StatusBarLabel = "Current: <b><%0%>"
	.EndUpdate 
End With
65
Display relative name into the control's status bar

With CascadeFile1
	.BeginUpdate 
	.ExploreFromHere = "C:\"
	.StatusBarVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%3%>"
	.EndUpdate 
End With
64
Display parsed name into the control's status bar

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%2%> >"
	.EndUpdate 
End With
63
Display name into the control's status bar (default)

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%1%> >"
	.EndUpdate 
End With
62
Display full path into the control's status bar

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%0%>"
	.EndUpdate 
End With
61
Removes the extra > shown at the end of the status label

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 2
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.Background(174) = RGB(0,0,1)
	.Background(169) = RGB(255,255,255)
	.StatusBarLabel = "<%1%>"
	.EndUpdate 
End With
60
Just wondering if I can show the status on the bottom side of the control

With CascadeFile1
	.BeginUpdate 
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarVisible = 1
	.EndUpdate 
End With
59
How can I hide the control's status
With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 0
	.EndUpdate 
End With
58
I've noticed that if I use a second view, the selected path in the first view, ensures that fits the control's client are as soon as the user resizes the panels. Is it possible to prevent that
With CascadeFile1
	.BeginUpdate 
	.Mode = 3
	.FitCascadeColumns = 3
	.AllowSplitView = 2
	.ColumnsVisible = 2
	.HeaderVisible = False
	.Select = "c:\Windows\System32"
	.SplitViewHeight = "256"
	.EndUpdate 
End With
57
I've noticed the control splits the control in 4 parts, and displays each view, the question I have is it possible to have that changed, for instance 3 ( sample 2 ) 
With CascadeFile1
	.BeginUpdate 
	.ColumnsVisible = 2
	.HeaderVisible = False
	.Select = "c:\Windows\System32"
	.FitToClient 3
	.EndUpdate 
End With
56
I've noticed the control splits the control in 4 parts, and displays each view, the question I have is it possible to have that changed, for instance 3 ( sample 1 ) 
With CascadeFile1
	.BeginUpdate 
	.ColumnsVisible = 2
	.HeaderVisible = False
	.Select = "c:\Windows\System32"
	.FitToClient 3
	.EndUpdate 
End With
55
I am trying to use your control as a file-view, but without any generated thumbnail. Is this possible

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.Mode = 1027 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exSplitFixCascadeMode
	.Layout = "Select0 = ""c:\|d:\"""
	.EndUpdate 
End With
54
How can I prevent resizing the cascade columns, once the user resizes the entire control
' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.FitToClient 3
	.Mode = 3
	.Select = "c:\Windows"
	.EndUpdate 
End With
53
Is it possible to disable resizing the cascade columns

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.FitToClient 3
	.Mode = 771 ' CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
	.Select = "c:\Windows"
	.EndUpdate 
End With
52
SplitFixCascadeMode Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.Mode = 3
	.Select = "c:\"
	.EndUpdate 
End With
51
FixCascadeMode Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.HeaderVisible = False
	.DefColumnWidth = 128
	.Mode = 0
	.Select = "c:\Windows"
	.EndUpdate 
End With
50
SplitEqualCascadeMode Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.Mode = 2
	.Select = "c:\"
	.EndUpdate 
End With
49
Default Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.Select = "c:\Windows"
	.FitToClient 3
	.EndUpdate 
End With
48
SingleCascadeMode ( folder view mode ) 

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub CascadeFile1_ViewEndChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( Operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeFile1_ViewStartChanging(ByVal Operation As Long)
	With CascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( Operation )
	End With
End Sub

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 0
	.Mode = 1
	.Select = "c:\Windows"
	.EndUpdate 
End With
47
How to expand more folders, when single cascade mode is used

With CascadeFile1
	.BeginUpdate 
	.StatusBarVisible = 0
	.Mode = 1
	.Layout = "Expand0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
	.EndUpdate 
End With
46
Is it possible to programmatically selects more folders 

With CascadeFile1
	.BeginUpdate 
	.Layout = "Select0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
	.EndUpdate 
End With
45
Is it possible to programmatically expand a folder (sample 4, select, expand more)

With CascadeFile1
	.BeginUpdate 
	.Layout = "Expand0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
	.EndUpdate 
End With
44
Is it possible to programmatically expand a folder (sample 3)

With CascadeFile1
	.BeginUpdate 
	.Layout = "Expand0 = ""c:\"";SelectMode0 = 2"
	.EndUpdate 
End With
43
Is it possible to programmatically expand a folder (sample 2)

With CascadeFile1
	.BeginUpdate 
	.Layout = "Expand0 = ""c:\"";SelectMode0 = 1"
	.EndUpdate 
End With