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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
141
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
140
How can I add a checkbox to each item

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( .Get(2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.HasCheckBox = 1
		.ExploreFromHere = "C:/"
	End With
End Function
</SCRIPT>
</BODY>
139
How do I get the selected file/files
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( .Select )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:/"
	End With
End Function
</SCRIPT>
</BODY>
138
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
137
How can I specify my favorites folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
136
How can I add the "My Documents"

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
	End With
End Function
</SCRIPT>
</BODY>
135
How can I add the Printers and Faxes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.ExploreFromHere = "C:\|::{2227a280-3aea-1069-a2de-08002b30309d}>"
	End With
End Function
</SCRIPT>
</BODY>
134
How can I add the "Recycle Bin" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{645FF040-5081-101B-9F08-00AA002F954E}>"
	End With
End Function
</SCRIPT>
</BODY>
133
How can I add the "Documents" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
	End With
End Function
</SCRIPT>
</BODY>
132
How can I add the Network folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
	End With
End Function
</SCRIPT>
</BODY>
131
How can I add the My Computer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
	End With
End Function
</SCRIPT>
</BODY>
130
How can I add the My Network Places folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
	End With
End Function
</SCRIPT>
</BODY>
129
How can I add the Desktop folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|::{00021400-0000-0000-C000-000000000046}>"
	End With
End Function
</SCRIPT>
</BODY>
128
How can I create my own favorites folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
127
How can change the explore from folder (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\>"
		.Layout = "Expand0 = ""C:\"";SelectMode0 = 0"
	End With
End Function
</SCRIPT>
</BODY>
126
How can change the explore from folder (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\"
	End With
End Function
</SCRIPT>
</BODY>
125
Is it possible to include more system drives as root folders (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "C:\|D:\|E:\"
	End With
End Function
</SCRIPT>
</BODY>
123
How can I include a system drive as a root folder, instead lists its content

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = ">"
		.Select = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
		.SelectMode = 1
	End With
End Function
</SCRIPT>
</BODY>
119
How can I browse the "Public" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
	End With
End Function
</SCRIPT>
</BODY>
118
How can I browse the "Libraries" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
	End With
End Function
</SCRIPT>
</BODY>
117
How can I browse the "HomeGroup" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
	End With
End Function
</SCRIPT>
</BODY>
116
How can I browse the "Games" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
	End With
End Function
</SCRIPT>
</BODY>
115
How can I browse the "OneDrive" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
	End With
End Function
</SCRIPT>
</BODY>
114
How can I browse the "Recycle Bin" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}"
	End With
End Function
</SCRIPT>
</BODY>
113
How can I browse the "Documents" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
	End With
End Function
</SCRIPT>
</BODY>
112
How can I browse the Network folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	End With
End Function
</SCRIPT>
</BODY>
111
How can I browse the My Computer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
110
How can I browse the My Network Places folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>
109
How can I browse the Desktop folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
	End With
End Function
</SCRIPT>
</BODY>
108
How can I select multiple files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.Select = "C:\\r\nD:\\r\nE:\"
	End With
End Function
</SCRIPT>
</BODY>
107
How can I select a single file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.Select = "C:\"
	End With
End Function
</SCRIPT>
</BODY>
106
Can I change the folder being explored

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ExploreFromHere = "c:\Program Files"
	End With
End Function
</SCRIPT>
</BODY>
105
How can I turn on the Thumbnail mode

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.Select = "C:\"
		.SelectMode = 2
	End With
End Function
</SCRIPT>
</BODY>
104
How to turn off the Auto-Update feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.AutoUpdate = False
	End With
End Function
</SCRIPT>
</BODY>
103
I can not make a column larger, by resizing its header, as it splits the control's header only. What can I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ColumnAutoResize = False
		.StatusBarVisible = 0
		.Mode = 1
		.Select = "c:\Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
102
How can hide the column's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.HeaderVisible = False
		.ColumnsVisible = 2
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
101
How can hide the Modified, Size and Type columns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ColumnsVisible = 2
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
100
How can I hide the +/- buttons, so I can show just plain lists, no children

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ColumnsVisible = 2
		.ExpandFolders = False
		.HeaderVisible = False
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
99
A small rectangle is shown around the item that has the focus. Can I hide that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ShowFocusRect = False
	End With
End Function
</SCRIPT>
</BODY>
98
How can I get ride of the hot selection color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.HotBackColor = -1
		.HotForeColor = -1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
97
How can I change the control's selection color (sample 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
96
How can I change the control's selection color (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
95
How can I change the control's selection color (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Select = "c:\|d:\|e:\"
		.SelectMode = 1
		.FullRowSelect = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
93
Is it possible to show the selection with a different color, when the control loses the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
92
The selection is still shown when the control loses the focus. Is it possible to hide it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.HideSelection = True
	End With
End Function
</SCRIPT>
</BODY>
91
How can I enable single-selection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.SingleSel = True
	End With
End Function
</SCRIPT>
</BODY>
90
Predefined Keywords of ShowContextMenu property

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		.ExecuteContextMenu = 0
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
89
How can I display the identifiers of the control's context menu (debug)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
		.SingleSel = False
		.ShowContextMenu = "`[debug]` + menu"
	End With
End Function
</SCRIPT>
</BODY>
88
How can I copy/execute command a file/folder (selection)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.SingleSel = False
		.ExploreFromHere = "c:\"
		.ExpandFolders = True
		.Select = "c:\Temp"
		.ExecuteContextCommand "<selection>",True,"Copy"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
87
How can I copy a file/folder (absolute name)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ExploreFromHere = "c:\"
		.ExecuteContextCommand "c:\Temp",True,"Copy"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
86
How can I copy a file/folder (relative name)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ExploreFromHere = "c:\"
		.ExecuteContextCommand "Temp",True,"Copy"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
85
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
84
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
83
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
82
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
81
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
80
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
79
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
78
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
77
ShowContextMenu usage
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
		alert( "no context menu is generated, so nothing is displayed" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
		.FullRowSelect = True
		.ShowContextMenu = "``"
	End With
End Function
</SCRIPT>
</BODY>
76
How can I add new items to the default file's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ContextMenu" )
		alert( .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)
		alert( "Execute" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	End With
End Function
</SCRIPT>
</BODY>
75
Is it possible to display the item's identifiers in the file's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,Operation)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	End With
End Function
</SCRIPT>
</BODY>
74
How can I remove the Delete command from the file's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with ``",.ShowContextMenu)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	End With
End Function
</SCRIPT>
</BODY>
73
How can I provide my own context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ContextMenu" )
		alert( .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])"
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	End With
End Function
</SCRIPT>
</BODY>
72
Is it possible to prevent executing a specific command from the object's context menu
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
		.ExecuteContextMenu = 0
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	End With
End Function
</SCRIPT>
</BODY>
71
How can I disable the Delete command from the object's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "Operation" )
		alert( Operation )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with `&Delete[dis]`",.ShowContextMenu)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ColumnsVisible = 2
		.Mode = 1539 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	End With
End Function
</SCRIPT>
</BODY>
70
How can I turn off, disable the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.AllowContextMenu = False
		.ColumnsVisible = 2
	End With
End Function
</SCRIPT>
</BODY>
69
How can I decode the Layout property

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.AllowSplitView = 2
		.Select = "C:\"
		.SplitViewHeight = "256,256"
		sLayout = .Layout
		alert( "Encoded:" )
		alert( sLayout )
		With CreateObject("Exontrol.Print")
			alert( "Decoded: " )
			alert( .Decode64TextW(sLayout) )
		End With
	End With
End Function
</SCRIPT>
</BODY>
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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		sLayout = .Layout
		alert( "Save" )
		alert( sLayout )
		.Select = "C:\"
		.Layout = sLayout
	End With
End Function
</SCRIPT>
</BODY>
67
Turn on the backcolor alternate feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.BackColorAlternate = RGB(240,240,240)
		.ForeColorAlternate = RGB(40,40,40)
		.Select = "C:\Windows\System32"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
66
Display HTML in the control's status bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ExploreFromHere = "C:\"
		.StatusBarVisible = 2
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.StatusBarLabel = "<%3%>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
64
Display parsed name into the control's status bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.StatusBarVisible = 2
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.StatusBarLabel = "<%1%> >"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
62
Display full path into the control's status bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.StatusBarVisible = 2
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.StatusBarLabel = "<%0%>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
61
Removes the extra > shown at the end of the status label

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>
60
Just wondering if I can show the status on the bottom side of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Select = "C:\Windows"
		.FitCascadeColumns = 3
		.StatusBarVisible = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
59
How can I hide the control's status
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.StatusBarVisible = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Mode = 3
		.FitCascadeColumns = 3
		.AllowSplitView = 2
		.ColumnsVisible = 2
		.HeaderVisible = False
		.Select = "c:\Windows\System32"
		.SplitViewHeight = "256"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
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 ) 
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ColumnsVisible = 2
		.HeaderVisible = False
		.Select = "c:\Windows\System32"
		.FitToClient 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
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 ) 
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ColumnsVisible = 2
		.HeaderVisible = False
		.Select = "c:\Windows\System32"
		.FitToClient 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
55
I am trying to use your control as a file-view, but without any generated thumbnail. Is this possible

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Mode = 1027 ' CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exSplitFixCascadeMode
		.Layout = "Select0 = ""c:\|d:\"""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
54
How can I prevent resizing the cascade columns, once the user resizes the entire control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.FitToClient 3
		.Mode = 3
		.Select = "c:\Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
53
Is it possible to disable resizing the cascade columns

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.FitToClient 3
		.Mode = 771 ' CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
		.Select = "c:\Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
52
SplitFixCascadeMode Mode

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Mode = 3
		.Select = "c:\"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
51
FixCascadeMode Mode

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.HeaderVisible = False
		.DefColumnWidth = 128
		.Mode = 0
		.Select = "c:\Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
50
SplitEqualCascadeMode Mode

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Mode = 2
		.Select = "c:\"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
49
Default Mode

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Select = "c:\Windows"
		.FitToClient 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
48
SingleCascadeMode ( folder view mode ) 

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewEndChanging(Operation)
	With CascadeFile1
		alert( "ViewEndChanging: " )
		alert( Operation )
		alert( .Select )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_ViewStartChanging(Operation)
	With CascadeFile1
		alert( "ViewStartChanging: " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.StatusBarVisible = 0
		.Mode = 1
		.Select = "c:\Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
47
How to expand more folders, when single cascade mode is used

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.StatusBarVisible = 0
		.Mode = 1
		.Layout = "Expand0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
46
Is it possible to programmatically selects more folders 

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Layout = "Select0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
45
Is it possible to programmatically expand a folder (sample 4, select, expand more)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Layout = "Expand0 = ""c:\|d:\|e:\"";SelectMode0 = 0"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
44
Is it possible to programmatically expand a folder (sample 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Layout = "Expand0 = ""c:\"";SelectMode0 = 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
43
Is it possible to programmatically expand a folder (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Layout = "Expand0 = ""c:\"";SelectMode0 = 1"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>