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

With AxCascadeFile1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.Font.Size = 16
	.ToolTipFont.Size = AxCascadeFile1.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4f0f0f0
	.SelForeColor = RGB(0,0,1)
	.GetOcx().HotBackColor = &H4f8f8f8
	.set_Background(EXMILLERLib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXMILLERLib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXMILLERLib.BackgroundPartEnum.exCheckBoxState2,50331648)
	.ExpandFolders = True
	.HasCheckBox = EXMILLERLib.CheckBoxEnum.PartialCheckBox
	.ExploreFromHere = ""
	.Select = "C:"
	.EndUpdate()
End With
141
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

With AxCascadeFile1
	.BeginUpdate()
	.ImageSize = 16
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4f0f0f0
	.SelForeColor = RGB(0,0,1)
	.GetOcx().HotBackColor = &H4f8f8f8
	.ExpandFolders = True
	.HasCheckBox = EXMILLERLib.CheckBoxEnum.PartialCheckBox
	.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( .get_Get(EXMILLERLib.TypeEnum.CheckItems) )
	End With
End Sub

With AxCascadeFile1
	.HasCheckBox = EXMILLERLib.CheckBoxEnum.PartialCheckBox
	.ExploreFromHere = "C:/"
End With
139
How do I get the selected file/files
' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( .Select )
	End With
End Sub

With AxCascadeFile1
	.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 AxCascadeFile1
	.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
	.set_Background(EXMILLERLib.BackgroundPartEnum.exColumnsPositionSign,33554432)
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarNone
	.Mode = EXMILLERLib.CascadeModeEnum.exSingleCascadeMode
	.EndUpdate()
End With
137
How can I specify my favorites folders

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

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

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

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

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

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

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

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

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

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

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

With AxCascadeFile1
	.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 AxCascadeFile1
	.ExploreFromHere = "C:\|D:\|E:\"
End With
123
How can I include a system drive as a root folder, instead lists its content

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

With AxCascadeFile1
	.Select = "C:\"
	.SelectMode = EXMILLERLib.SelectModeEnum.exSelectModeThumbnail
End With
104
How to turn off the Auto-Update feature
With AxCascadeFile1
	.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 AxCascadeFile1
	.BeginUpdate()
	.ColumnAutoResize = False
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarNone
	.Mode = EXMILLERLib.CascadeModeEnum.exSingleCascadeMode
	.Select = "c:\Windows"
	.EndUpdate()
End With
102
How can hide the column's header

With AxCascadeFile1
	.BeginUpdate()
	.HeaderVisible = False
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.EndUpdate()
End With
101
How can hide the Modified, Size and Type columns

With AxCascadeFile1
	.BeginUpdate()
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.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 AxCascadeFile1
	.BeginUpdate()
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.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 AxCascadeFile1
	.ShowFocusRect = False
End With
98
How can I get ride of the hot selection color
With AxCascadeFile1
	.BeginUpdate()
	.GetOcx().HotBackColor = -1
	.GetOcx().HotForeColor = -1
	.EndUpdate()
End With
97
How can I change the control's selection color (sample 3)

With AxCascadeFile1
	.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
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.GetOcx().HotBackColor = &H3000000
	.HotForeColor = RGB(0,0,0)
	.EndUpdate()
End With
96
How can I change the control's selection color (sample 2)

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

With AxCascadeFile1
	.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 AxCascadeFile1
	.BeginUpdate()
	.Select = "c:\|d:\|e:\"
	.SelectMode = EXMILLERLib.SelectModeEnum.exSelectModeList
	.FullRowSelect = True
	.EndUpdate()
End With
93
Is it possible to show the selection with a different color, when the control loses the focus

With AxCascadeFile1
	.BeginUpdate()
	.HideSelection = False
	.set_Background(&Ha6,14737632)
	.set_Background(&Ha7,4210752)
	.Select = "c:\|d:\|e:\"
	.SelectMode = EXMILLERLib.SelectModeEnum.exSelectModeList
	.EndUpdate()
End With
92
The selection is still shown when the control loses the focus. Is it possible to hide it
With AxCascadeFile1
	.HideSelection = True
End With
91
How can I enable single-selection
With AxCascadeFile1
	.SingleSel = True
End With
90
Predefined Keywords of ShowContextMenu property

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		.ExecuteContextMenu = 0
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.set_ScrollPartVisible(EXMILLERLib.ScrollBarEnum.exVScroll,EXMILLERLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXMILLERLib.ScrollBarEnum.exHScroll,EXMILLERLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXMILLERLib.ScrollBarEnum.exScroll,EXMILLERLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXMILLERLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXMILLERLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXMILLERLib.BackgroundPartEnum.exHSBack,.get_Background(EXMILLERLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXMILLERLib.BackgroundPartEnum.exHSThumb,.get_Background(EXMILLERLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXMILLERLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXMILLERLib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
	.AllowSplitView = EXMILLERLib.AllowSplitViewEnum.exAllowTwoSplitView
	.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.CascadeModeEnum.exSplitFixCascadeMode
	.SingleSel = False
	.ShowContextMenu = "`[debug]` + menu"
End With
88
How can I copy/execute command a file/folder (selection)
With AxCascadeFile1
	.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 AxCascadeFile1
	.BeginUpdate()
	.ExploreFromHere = "c:\"
	.ExecuteContextCommand("c:\Temp",True,"Copy")
	.EndUpdate()
End With
86
How can I copy a file/folder (relative name)
With AxCascadeFile1
	.BeginUpdate()
	.ExploreFromHere = "c:\"
	.ExecuteContextCommand("Temp",True,"Copy")
	.EndUpdate()
End With
85
ShowContextMenu usage

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ExploreFromHere = "c:\"
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ExploreFromHere = "c:\"
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		Debug.Print( "no context menu is generated, so nothing is displayed" )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.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,e.operation)
		Debug.Print( "Execute" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,e.operation)
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with ``",.ShowContextMenu)
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.CascadeModeEnum.exSplitFixCascadeMode
End With
73
How can I provide my own context menu

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.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 AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		.ExecuteContextMenu = 0
	End With
End Sub

With AxCascadeFile1
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "Operation" )
		Debug.Print( e.operation )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with `&Delete[dis]`",.ShowContextMenu)
	End With
End Sub

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

Dim sLayout
With AxCascadeFile1
	.AllowSplitView = EXMILLERLib.AllowSplitViewEnum.exAllowTwoSplitView
	.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
Dim sLayout
With AxCascadeFile1
	sLayout = .Layout
	Debug.Print( "Save" )
	Debug.Print( sLayout )
	.Select = "C:\"
	.Layout = sLayout
End With
67
Turn on the backcolor alternate feature

With AxCascadeFile1
	.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 AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.Select = "C:\Windows\System32"
	.FitCascadeColumns = 3
	.StatusBarLabel = "Current: <b><%0%>"
	.EndUpdate()
End With
65
Display relative name into the control's status bar

With AxCascadeFile1
	.BeginUpdate()
	.ExploreFromHere = "C:\"
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%3%>"
	.EndUpdate()
End With
64
Display parsed name into the control's status bar

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

With AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%1%> >"
	.EndUpdate()
End With
62
Display full path into the control's status bar

With AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarLabel = "<%0%>"
	.EndUpdate()
End With
61
Removes the extra > shown at the end of the status label

With AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.set_Background(EXMILLERLib.BackgroundPartEnum.exStatusPanelBackColor,65536)
	.set_Background(EXMILLERLib.BackgroundPartEnum.exStatusForeColor,16777215)
	.StatusBarLabel = "<%1%>"
	.EndUpdate()
End With
60
Just wondering if I can show the status on the bottom side of the control

With AxCascadeFile1
	.BeginUpdate()
	.Select = "C:\Windows"
	.FitCascadeColumns = 3
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarAnchorBottom
	.EndUpdate()
End With
59
How can I hide the control's status
With AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarNone
	.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 AxCascadeFile1
	.BeginUpdate()
	.Mode = EXMILLERLib.CascadeModeEnum.exSplitFixCascadeMode
	.FitCascadeColumns = 3
	.AllowSplitView = EXMILLERLib.AllowSplitViewEnum.exAllowTwoSplitView
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.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 AxCascadeFile1
	.BeginUpdate()
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.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 AxCascadeFile1
	.BeginUpdate()
	.ColumnsVisible = EXMILLERLib.FileColumnEnum.exFileColumnName
	.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.Mode = EXMILLERLib.CascadeModeEnum.exDisableThumbnails Or EXMILLERLib.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.FitToClient(3)
	.Mode = EXMILLERLib.CascadeModeEnum.exSplitFixCascadeMode
	.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.FitToClient(3)
	.Mode = EXMILLERLib.CascadeModeEnum.exAutoFitOnResizeClient Or EXMILLERLib.CascadeModeEnum.exDisableResizeCascadeColumns Or EXMILLERLib.CascadeModeEnum.exSplitFixCascadeMode
	.Select = "c:\Windows"
	.EndUpdate()
End With
52
SplitFixCascadeMode Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.Mode = EXMILLERLib.CascadeModeEnum.exSplitFixCascadeMode
	.Select = "c:\"
	.EndUpdate()
End With
51
FixCascadeMode Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.HeaderVisible = False
	.DefColumnWidth = 128
	.Mode = EXMILLERLib.CascadeModeEnum.exFixCascadeMode
	.Select = "c:\Windows"
	.EndUpdate()
End With
50
SplitEqualCascadeMode Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.Mode = EXMILLERLib.CascadeModeEnum.exSplitEqualCascadeMode
	.Select = "c:\"
	.EndUpdate()
End With
49
Default Mode

' ViewEndChanging event - Occurs once the user changed the view.
Private Sub AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.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 AxCascadeFile1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewEndChangingEvent) Handles AxCascadeFile1.ViewEndChanging
	With AxCascadeFile1
		Debug.Print( "ViewEndChanging: " )
		Debug.Print( e.operation )
		Debug.Print( .Select )
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeFile1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXMILLERLib._ICascadeFileEvents_ViewStartChangingEvent) Handles AxCascadeFile1.ViewStartChanging
	With AxCascadeFile1
		Debug.Print( "ViewStartChanging: " )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarNone
	.Mode = EXMILLERLib.CascadeModeEnum.exSingleCascadeMode
	.Select = "c:\Windows"
	.EndUpdate()
End With
47
How to expand more folders, when single cascade mode is used

With AxCascadeFile1
	.BeginUpdate()
	.StatusBarVisible = EXMILLERLib.StatusBarAnchorEnum.exStatusBarNone
	.Mode = EXMILLERLib.CascadeModeEnum.exSingleCascadeMode
	.Layout = "Expand0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
	.EndUpdate()
End With
46
Is it possible to programmatically selects more folders 

With AxCascadeFile1
	.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 AxCascadeFile1
	.BeginUpdate()
	.Layout = "Expand0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
	.EndUpdate()
End With
44
Is it possible to programmatically expand a folder (sample 3)

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

With AxCascadeFile1
	.BeginUpdate()
	.Layout = "Expand0 = ""c:\"";SelectMode0 = 1"
	.EndUpdate()
End With