147
ADOR, MDB (JET)

With Pivot1
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Data","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.mdb",3,3
	End With
	.DataSource = rs
End With
146
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

With Pivot1
	.BeginUpdate 
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Pivot1.Font.Size
	.ToolTipFont.Size = Pivot1.Font.Size
	.Indent = 26
	.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	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 = &H4000000
	.SelForeColor = RGB(0,0,1)
	.CheckImage(0) = 16777216
	.CheckImage(1) = 33554432
	.CheckImage(2) = 50331648
	.Background(20) = .SelBackColor
	.Background(21) = .SelForeColor
	.Background(26) = .BackColor
	.Background(27) = .ForeColor
	.Background(32) = -1
	.Background(0) = &H4000000
	.Background(41) = &H4010101
	.Background(1) = &H40000ff
	.HeaderAppearance = 4
	.GridLineStyle = 512
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "12,0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "/sum"
	.DataColumns.Item(0).FormatImage = "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
	.EndUpdate 
End With
145
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

With Pivot1
	.BeginUpdate 
	.ImageSize = 16
	.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	With .VisualAppearance
		.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
	End With
	.BackColorHeader = &H4c6c6c6
	.SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.Background(20) = .SelBackColor
	.Background(21) = .SelForeColor
	.Background(26) = .BackColor
	.Background(27) = .ForeColor
	.Background(32) = -1
	.Background(0) = &H4000000
	.Background(41) = &H4010101
	.Background(1) = &H40000ff
	.HeaderAppearance = 4
	.GridLineStyle = 512
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "12,0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "/sum"
	.DataColumns.Item(0).FormatImage = "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
	.EndUpdate 
End With
144
Is it possible to view all events the control fires
' Event event - Notifies the application once the control fires an event.
Private Sub Pivot1_Event(ByVal EventID As Long)
	With Pivot1
		Debug.Print( .EventParam(-2) )
	End With
End Sub

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotBarVisible = 16780763 ' PivotBarVisibleEnum.exPivotBarAllowFormatConditionalAppearance Or PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAllowFormatContent Or PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
	.EndUpdate 
End With
143
Does your control support images

With Pivot1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.DataColumns.Item(0).FormatImage = "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
	.EndUpdate 
End With
142
Is it possible to rename the generated-columns

With Pivot1
	.BeginUpdate 
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.Import "Item;1;2;3#A;10;20;30#A;20;40;50#A;20;30;20#B;10;10;10#B;20;50;30","str=`'` eor='#' eof=';' hdr=1"
	.PivotRows = 0
	.PivotColumns = "sum(1),sum(2),sum(3)"
	.FormatPivotHeader = "(iaggregate ? (proper(aggregate) + ` <off -4>` + (caption case (default:`None`; 1:`Sunday`; 2:`Monday`; 3:`Tuesday`; 4:`Wednesd" & _
"ay`; 5:`Thursday`; 6:`Friday`; 7:`Saturday`))  + `</b>`) : caption)"
	.EndUpdate 
End With
141
Is it possible to rename the columns

With Pivot1
	.BeginUpdate 
	.AppendData "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.DataColumns.Item(0).Caption = "<b>Nation"
	.Refresh 
	.EndUpdate 
End With
140
The pivot's rows and columns arer lost once I call the AppendData. Can I add/append data in the background so the layout of the pivot is not lost

With Pivot1
	.BeginUpdate 
	.AppendData "Def"
	.AppendData "A"
	.AppendData "A"
	.AppendData "A"
	.PivotRows = 0
	.PivotColumns = "count(0)"
	s = .Layout
	.AppendData "B"
	.AppendData "B"
	.Layout = s
	.EndUpdate 
End With
139
Is it possible to add data without clearing the previously data

With Pivot1
	.BeginUpdate 
	.AppendData "Column"
	.AppendData "1"
	.AppendData "2"
	.AppendData "3"
	.EndUpdate 
End With
138
How can I change the visual appearance of the Total button

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 2,"gBFLBCJwBAEHhEJAAEhABAoCg6AADACAxRDgMQBQKAAzQFAcDBvBgABoGEZIJhUAIIRZGMIjFDcEwxC6NIpjeIBSDUJYkSZEAyjBI8ExXFqMQCkGKocgONYgQLHcgxe" & _
"A0XRYFoYRinWA5PoAMoyTYMdIAnTOM4eU6AATwTSccw0fisAAfeq4Wh+HwIQiUBomGahajkMqDYRVagyCI2a4ZDZCIoVJalLAxCw8KDqGJnMr1R5/MDgOBYogXBqHYhi" & _
"OAsdhjSYdBK/WLeHI6Y1GS7MMxzLK8cxVaqfMpoMI4FjuS5NU7TMC0PAXdy3LqvbBsOxbHqma5nVSBcC2ba9cz3PK4ABuW7bM6TRKNYbkOA4LiNQaxVSrNKmIwPI5DJ5" & _
"Ml2co1h0d5vBWDJQEkCI7mIJpykyTZblqdhYDyR5TlmX5RBgeI+D4BxLDkO5nlieh5g2FQ5DOZAiDkDASAmYh7l0RxZncPxfhadZkBmH5jvKLhamMcItBYXgoC4B4CBg" & _
"FoskEP4hkgdgegcD4zlycA1goAJ5mIc4KjgfJ+D0ToTFGbx4h8Qh2CqDJjEeJg0gyT4DkCYg5kyAhCDeBxjkIQgDHSIgTkIP4NGGFplgGEZkkifhFgSIRHgCXwtAYeQ2" & _
"B+DYlGkZgqgsIpnEoJxzmWGRiFqGJhmkBhDAwJBZDIYoZCYSQ+BOFAmBkJZBhKZpJlYHIXCYR4lFuHpnkmdh+h+aAKAaAogF6FhWgOIZogoJh/GuHoTl6DojmkChGhKJ" & _
"JpEoVoWiUHAGDCTg6CmSheh6J5qAoTJriiWQUCSb4ploEwpgq4BKjWBomhmc4pAkOpRAQJQBICA=="
		.Add 1,"CP:2 -10 -6 8 8"
	End With
	.Background(185) = &H1000000
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.EndUpdate 
End With
137
Is it possible to highlight the column's header once a filter is applied

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add 1,"CP:2 -8 -4 2 4"
	End With
	.HeaderHeight = 28
	.Background(0) = &H1fefefe
	.Background(41) = &H1010101
	.Background(32) = -1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 2583 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
136
How can I change the format the column displays (for instance, displaying no 0:00:00)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatContents.Add "notime","value replace `0:00:00` with ``"
	.PivotRows = "9[content=notime]"
	.EndUpdate 
End With
135
Is it possible to show the filterbar on top of the rows

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 8705 ' FilterBarVisibleEnum.exFilterBarTop Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
134
How can I uses the control in window-less mode (with no user interface, option 3)

With Pivot1
	With CreateObject("Exontrol.Pivot")
		.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
		.PivotRows = "0"
		.PivotColumns = "avg(5)"
		Debug.Print( .Export() )
	End With
End With
133
How can I uses the control in window-less mode (with no user interface, option 2)

With Pivot1
	With CreateObject("Exontrol.Pivot")
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Data","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb",3,3
		End With
		.DataSource = rs
		.PivotRows = "0"
		.PivotColumns = "max(5)"
		Debug.Print( .Export() )
	End With
End With
132
How can I uses the control in window-less mode (with no user interface, option 1)

With Pivot1
	With CreateObject("Exontrol.Pivot")
		.LoadXML "http://www.exontrol.net/testing.xml"
		.PivotRows = "1"
		.PivotColumns = "max(6)"
		Debug.Print( .Export() )
	End With
End With
131
How can I connect to a DBF file

With Pivot1
	.BeginUpdate 
	Set rs = CreateObject("ADODB.Recordset")
	With rs
		.Open "Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3
	End With
	.DataSource = rs
	.PivotRows = "0"
	.PivotColumns = "count(0)[content=numeric],avg(7)[negative,content=numeric]"
	.EndUpdate 
End With
130
Export Data in HTML format

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 2583 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .FormatConditionalAppearances
		.Add("G1000","> 1000","value > 1000").ForeColor = RGB(0,0,255)
		.Add("L1000","< 1000","value < 1000").ForeColor = RGB(255,0,0)
		.Add("Zero","zero","value = 0").BackColor = RGB(224,224,224)
	End With
	With .FormatAppearances
		.Add("grayed").ForeColor = RGB(128,128,128)
		.Add("red").ForeColor = RGB(255,0,0)
		.Add("green").ForeColor = RGB(0,255,0)
		.Add("blue").ForeColor = RGB(0,0,255)
		.Add("bgrayed").BackColor = RGB(128,128,128)
		.Add("bred").BackColor = RGB(255,0,0)
		.Add("bgreen").BackColor = RGB(0,255,0)
		.Add("bblue").BackColor = RGB(0,0,255)
	End With
	.PivotRows = "0[bold],2[grayed]"
	.PivotColumns = "sum(5)[L1000],sum(5)[G1000]/12:A"
	.PivotTotals = "sum[bold,content=currency,bgrayed]"
	.AutoDrag = 16
	.BackColorAlternate = RGB(240,240,240)
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "France Germany"
	.EndUpdate 
	Debug.Print( .Export("htm") )
End With
129
Export Data in HTML format (IE)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 2583 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .FormatConditionalAppearances
		.Add("G1000","> 1000","value > 1000").ForeColor = RGB(0,0,255)
		.Add("L1000","< 1000","value < 1000").ForeColor = RGB(255,0,0)
		.Add("Zero","zero","value = 0").BackColor = RGB(224,224,224)
	End With
	With .FormatAppearances
		.Add("grayed").ForeColor = RGB(128,128,128)
		.Add("red").ForeColor = RGB(255,0,0)
		.Add("green").ForeColor = RGB(0,255,0)
		.Add("blue").ForeColor = RGB(0,0,255)
		.Add("bgrayed").BackColor = RGB(128,128,128)
		.Add("bred").BackColor = RGB(255,0,0)
		.Add("bgreen").BackColor = RGB(0,255,0)
		.Add("bblue").BackColor = RGB(0,0,255)
	End With
	.ShowBranchRows = 33 ' ShowBranchRowsEnum.exBranchIncludeAggregate Or ShowBranchRowsEnum.exBranchTree
	.PivotRows = "0[bold],2[grayed]"
	.PivotColumns = "sum(5)[L1000],sum(5)[G1000]/12:A"
	.PivotTotals = "/sum[bold,content=currency,bgrayed]"
	.AutoDrag = 16
	.BackColorAlternate = RGB(240,240,240)
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "France Germany"
	.EndUpdate 
	sFile = "c:/temp/export.htm"
	.Export sFile,"vis"
	With CreateObject("InternetExplorer.Application")
	End With
End With
128
Export Data in CSV format

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5),sum(5)/12:A"
	.PivotTotals = "sum[bold,content=currency]"
	.AutoDrag = 16
	.BackColorAlternate = RGB(240,240,240)
	.EndUpdate 
	Debug.Print( .Export() )
End With
127
Is it possible to change the visual appearance of the update / reload button being displayed in the control's pivot bar

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwCgkBYJDSMAiiaLETwHFKVRwkWBBWjMAAxDZFcggA" & _
"77fwxHaOAghGgobjaPY+UbGERAAKQahLJamablCSqLjCS4kSLHEbQHTcRSzLKQZBBCCSQKkYx0HScRiwPBIbQkIQmbajOaYDCiQ53QLCAYRXS9PwvI7AMBwLA8EwXBo9" & _
"DZiIy4WyuGj3R4WchAbIwIxUK6XHhmLjZXg+Bz9T6LQZ0JStEx2SYjAJqOiKU62W9xbAUOxQTpIBJXW7Oc7GTa8dQfPoJaIDLicHgoZ6NLIcOR0abSO42CRrdByfRYMw" & _
"visCQKnYOh9i4LwbBINpBHeBxeC6X4TAIEpzkIWgei8L4Qk2boEhWPg9C4SJijIOZ7mEXA/iAX5yBKDx/lmVhEC0Z5ZlKHgGAAYIHkGcQxiCQ5eA4PghAKNgSG0VYXEi" & _
"JYFl+QAtiCBpdjcDJkB0IgAiYIgBmIQAWCYCoigYZB4DQYpAjoLh3h6SJFgcOpXlAAQBICA=="
	End With
	.Background(184) = &H1000000
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotBarVisible = 16780763 ' PivotBarVisibleEnum.exPivotBarAllowFormatConditionalAppearance Or PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAllowFormatContent Or PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
	.EndUpdate 
End With
126
Is it possible to change the visual appearance of the plus/add new button being displayed in the control's pivot bar

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
	End With
	.Background(183) = &H1000000
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.EndUpdate 
End With
125
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

With Pivot1
	.BeginUpdate 
	.HeaderAppearance = 4
	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
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.EndUpdate 
End With
124
FilterBarCaption ALL Keyword ( sample 2, result )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 2583 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
123
FilterBarCaption ALL Keyword ( sample 1 )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
122
FilterBarCaption ALLUI Keyword ( sample 2, result )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
121
FilterBarCaption ALLUI Keyword ( sample 1 )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
120
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
119
FilterBarCaption AVAILABLE Keyword ( sample 1 )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
118
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
	.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate 
End With
117
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate 
End With
116
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate 
End With
115
Is it possible to automatically displays the control's filter label to the right

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = 1280 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle
	.EndUpdate 
End With
114
How can I get the number of results/items being shown in the control's filter bar (sample 4)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = 3591 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
113
How can I get the number of results being shown in the control's filter bar (sample 3)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
	.FilterBarPromptVisible = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
112
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = 2071 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
111
How can I get the number of results being shown in the control's filter bar (sample 1)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
110
FilterBarCaption Predefined Keywords

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.LinesAtRoot = -1
	.FilterInclude = 1
	.FilterBarFont = .Font
	.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
109
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
108
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 1281 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate 
End With
107
How can I change the visual appearance of the filter bar's close button (EBN)

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"
	End With
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.Background(1) = &H1000000
	.EndUpdate 
End With
106
How can I change the visual appearance of the filter bar's close button (solid)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 1
	.Background(1) = RGB(255,0,0)
	.EndUpdate 
End With
105
Is it possible to prevent definitely showing the filter bar's close button

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 1
	.Background(1) = -1
	.EndUpdate 
End With
104
Is it possible to show the close button only if there is a filter applied

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 513 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
103
The control's filter bar is not closed once I click the close button (toggle)
With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 2323 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
102
How can I display the control's filter on a single line

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = 18 ' FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible
	.EndUpdate 
End With
101
How can I display the control's filter on a single line (prompt-combined)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
100
How can I programmatically clear the control's filter
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Pivot1_Click()
	With Pivot1
		.ClearFilter 
	End With
End Sub

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 1
	.FilterBarPromptPattern = "USA"
	.EndUpdate 
End With
99
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
98
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarPromptVisible = 1
	.FilterBarPromptPattern = "USA"
	.EndUpdate 
End With
97
Is it possible to prevent closing the control's filter bar, so it is always shown

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = 2
	.EndUpdate 
End With
96
How can I find if the control is running in DPI mode
With Pivot1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
95
If I connect it to a datasource, all works perfectly but the records that I see in the control is a little number of total of the recordset. I need to show all 60.000 rows of the recordset without click on the [...] button. It’s possible to setting up this parameters
With Pivot1
	.DisplayPivotData = -1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
End With
94
How do I change the drop down filter icon/button (white)

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add 1,"CP:2 -6 -4 2 4"
	End With
	.Background(0) = &H1000000
	.Background(32) = .BackColor
	.HeaderVisible = True
	.HeaderHeight = 24
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.DisplayFilterList = 288 ' FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	.PivotBarVisible = 1
	.EndUpdate 
End With
93
How do I change the drop down filter icon/button (black)

With Pivot1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
	End With
	.Background(0) = &H1000000
	.Background(32) = -1
	.BackColorHeader = RGB(0,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.HeaderVisible = True
	.HeaderHeight = 22
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.DisplayFilterList = 288 ' FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	.EndUpdate 
End With
92
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

With Pivot1
	.BeginUpdate 
	.BackColorAlternate = &H7ff0f0f0
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "12"
	.PivotColumns = "sum(5)"
	.EndUpdate 
End With
91
How can I find out if the user clicks the grid's header
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Pivot1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Pivot1
		Debug.Print( "Type of ColumnFromPoint: " )
		Debug.Print( .ColumnFromPoint(-1,-1) )
		Debug.Print( " should not be VT_NULL" )
		Debug.Print( "Type of ValueFromPoint: " )
		Debug.Print( .ValueFromPoint(-1,-1) )
		Debug.Print( " should be VT_NULL" )
	End With
End Sub

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
End With
90
What should I set FormatPivotHeader to, to show it on the columns header only

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.FormatPivotHeader = "(iaggregate ? ( caption + ` <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + ( ( display=1 ? `<c>Date: " & _
"<b><upline><dotline>` + date(`now`) : `` ) + `</dotline> </b>` )"
	.EndUpdate 
End With
89
What should I set FormatPivotHeader to, to show "Report Generated on 7/9/2016 14:20" etc when the report is executed (ie the date and time will change)

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.FormatPivotHeader = "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + `<r>ReportDate:" & _
" ` + date(`now`)"
	.EndUpdate 
End With
88
Is it possible to display aggregate result on parent rows as well

With Pivot1
	.BeginUpdate 
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "12[bold],0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = 1
	.DrawGridLines = 0
	.ShowBranchRows = 33 ' ShowBranchRowsEnum.exBranchIncludeAggregate Or ShowBranchRowsEnum.exBranchTree
	.EndUpdate 
End With
87
How do I show expanded/collapsed rows

With Pivot1
	.BeginUpdate 
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "12[bold],0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = 1
	.DrawGridLines = 0
	.EndUpdate 
End With
86
How do I show expanded/collapsed columns

With Pivot1
	.BeginUpdate 
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)"
	.IncludeExpandColumn = 1
	.EndUpdate 
End With
85
Where you have say "Sum of ...." as the first row heading of the pivot are there and options to be able to change this text as a whole

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ' )') : caption)"
	.EndUpdate 
End With
84
How can I get the data column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Pivot1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Pivot1
		Debug.Print( "DataColumn" )
		Debug.Print( .DataColumnFromPoint(-1,-1) )
	End With
End Sub

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh 
End With
83
Is there any way for the user to change the alignment at runtime (using excontextmenu)

' RClick event - Occurs once the user right clicks the control.
Private Sub Pivot1_RClick()
	' FlatImageWidth = 0
	' ToString = "Alignment[align=1][dis],[group=0x71](Left[typ=2][grp=100][close=0][id=0],Center[typ=2][grp=100][close=0][id=1],Right[typ=2][grp=100][close=0][id=2])"
	' item(h).Checked = True
	' h = Select()
	With Pivot1
		h = .DataColumns.Item(5).Alignment ' .DataColumns.Item(5).Alignment
		With c
		End With
		With .DataColumns.Item(5)
			.Alignment = h ' h
			.HeaderAlignment = h ' h
		End With
		.Refresh 
	End With
End Sub

With Pivot1
	.PivotBarVisible = 3609 ' PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarVisible
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .DataColumns.Item(5)
		.Alignment = 2
		.HeaderAlignment = 2
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh 
End With
82
Is there any way for the user to change the alignment at runtime

' RClick event - Occurs once the user right clicks the control.
Private Sub Pivot1_RClick()
	With Pivot1
		Debug.Print( "The column gets aligned to the center" )
		With .DataColumns.Item(5)
			.Alignment = 1
			.HeaderAlignment = 1
		End With
		.Refresh 
	End With
End Sub

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .DataColumns.Item(5)
		.Alignment = 2
		.HeaderAlignment = 2
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh 
End With
81
How can I align a column to the right

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .DataColumns.Item(5)
		.Alignment = 2
		.HeaderAlignment = 2
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh 
End With
80
How can I display the control's content on an single A3 paper size, when using PDF format
With Pivot1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("positive").BackColor = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll 
	var_CopyTo = .CopyTo("C:\Temp\Preview.pdf|11.69 in x 16.53 in||single")
	Debug.Print( "Look for C:\Temp\Preview.pd file." )
	.EndUpdate 
End With
79
How can I display the control's content on an A3 paper size, when using PDF format
With Pivot1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("positive").BackColor = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll 
	var_CopyTo = .CopyTo("C:\Temp\Preview.pdf|11.69 in x 16.53 in")
	Debug.Print( "Look for C:\Temp\Preview.pd file." )
	.EndUpdate 
End With
78
How can I export the control's content to a PDF document (method 1)
With Pivot1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("positive").BackColor = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll 
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.PrintExt = Pivot1.Object
		.CopyTo "c:/temp/xtest.pdf"
	End With
	Debug.Print( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate 
End With
77
How can I export the control's content to a PDF document (method 2)
With Pivot1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("positive").BackColor = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll 
	var_CopyTo = .CopyTo("c:/temp/xtest.pdf")
	Debug.Print( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate 
End With
76
Does / could the control have a read-only mode by where I could load the data and layout and just use the control to display it and allow the user to scroll around it / print it but not change it
With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.DisplayFilterList = 2
	.PivotBarVisible = 268435977 ' PivotBarVisibleEnum.exPivotBarReadOnly Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarVisible
	.Refresh 
End With
75
Is it possible to edit the conditional-expression at runtime

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .FormatConditionalAppearances.Add("custom","custom","")
		.Bold = True
		.FontSize = 12
		.Expression = "value > 2000"
		.ContextEditExpression = True
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[custom]/12"
	.EndUpdate 
End With
74
How can I highlight values using EBN colors

With Pivot1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("positive").BackColor = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.EndUpdate 
End With
73
How do I mark not-empty values in the chart

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.EndUpdate 
End With
72
How can I highlight negative and positive values in the same chart

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,positive]/12"
	.EndUpdate 
End With
71
How can I highlight values that starts with a letter

With Pivot1
	.BeginUpdate 
	With .FormatConditionalAppearances.Add("f","starts with f","lower(value) startwith `f`")
		.Expression = "lower(value) startwith `f`"
		.Shadow = RGB(1,0,0)
		.ShadowOffset = 0
	End With
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0[f]"
	.EndUpdate 
End With
70
How can I mark values greater than a value, 100 for instance

With Pivot1
	.BeginUpdate 
	With .FormatConditionalAppearances.Add("greater100",">100","value > 100")
		.Expression = "( dbl(value) != 0 ) ? (value > 100) : 0"
		.ForeColor = RGB(255,0,0)
	End With
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[greater100,content=numeric]"
	.EndUpdate 
End With
69
How can I remove the Conditional context-menu

With Pivot1
	.BeginUpdate 
	.PivotBarVisible = 4059 ' PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarAllowFormatContent Or PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.EndUpdate 
End With
68
How do change the way the negative/positive numbers show when using conditional-format

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .FormatConditionalAppearances.Item("negative")
		.BackColor = RGB(0,0,0)
		.ForeColor = RGB(128,128,128)
		.FontSize = 8
	End With
	With .FormatConditionalAppearances.Item("positive")
		.BackColor = RGB(0,0,0)
		.ForeColor = RGB(1,0,0)
		.FontSize = 11
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,positive,content=numeric]"
	.EndUpdate 
End With
67
How do I highlight the negative values with white color or black

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .FormatConditionalAppearances.Item("negative")
		.BackColor = RGB(1,0,0)
		.ForeColor = RGB(255,255,255)
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,content=numeric]"
	.EndUpdate 
End With
66
Does your control support conditional-format, so I can highlight certain values

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,content=numeric]"
	.EndUpdate 
End With
65
How do I add a computed column/field, like VAT for instance (method 2)

With Pivot1
	.BeginUpdate 
	With .Aggregates
		.Add("vat19","sum","VAT 19%","VAT 19%").FormatValue = "value * 0.19"
		.Add("vat24","sum","VAT 24%","VAT 24%").FormatValue = "value * 0.24"
	End With
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric],vat19(5)[bold,content=numeric],vat24(5)[bold,content=numeric]"
	.EndUpdate 
End With
64
How do I add a computed column/field, like VAT for instance (method 1)

With Pivot1
	.BeginUpdate 
	With .FormatContents.Add("vat19","VAT 19%")
		.Expression = "len(value) ? ((value * 1.19) format '') : ''"
	End With
	With .FormatContents.Add("vat24","VAT 24%")
		.Expression = "len(value) ? ((value * 1.24) format '') : ''"
	End With
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric],sum(5)[bold,content=vat19],sum(5)[bold,content=vat24]"
	.EndUpdate 
End With
63
How can I hide some values for instance negative values

With Pivot1
	.BeginUpdate 
	With .FormatContents.Add("hiden","hide negative")
		.Expression = "value < 0 ? `` : value"
	End With
	With .FormatContents.Add("hidep","hide positive")
		.Expression = "value > 0 ? `` : value"
	End With
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[bold],sum(5)[content=hiden],sum(5)[content=hidep]"
	.EndUpdate 
End With
62
How can I decode the Layout property

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	With CreateObject("Exontrol.Print")
		Debug.Print( .Decode64TextW(Pivot1.Layout) )
	End With
	.EndUpdate 
End With
61
How can I specify the sorting type, so the column gets sorted as numeric for instance

With Pivot1
	.Import "1,1#11,11#101,101","eor='#' eof=',' hdr=0"
	With .DataColumns.Item(0)
		.Caption = "Numeric"
		.SortType = 1
	End With
	.DataColumns.Item(1).Caption = "String (default)"
	.PivotRows = "0"
	.Refresh 
End With
60
How can I disable the control's context menu
With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotBarVisible = 3675 ' PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
End With
59
How do I get the captions of the columns
With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	Debug.Print( .DataColumns.Count )
	Debug.Print( .DataColumns.Item(0).PivotCaption )
	Debug.Print( .DataColumns.Item(0).Caption )
	Debug.Print( .DataColumns.Item(1).PivotCaption )
	Debug.Print( .DataColumns.Item(1).Caption )
End With
58
How can I specify the default-format for a specified column, so it always shows as numeric for instance
With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	With .DataColumns.Item("Freight")
		.DefaultFormatContent = "numeric"
		.DefaultFormatAppearances = "bold"
		.SortOrder = 1
		.SortType = 1
	End With
	.PivotTotalDefaultFormatContent = "currency"
	.PivotTotalDefaultFormatAppearances = "strikeout,bold"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[bold,content=numeric]"
	.PivotTotals = "sum[strikeout,bold,content=currency]"
	.PivotColumnsFloatBarVisible = True
	.Refresh 
End With
57
How can I display the percentage column

With Pivot1
	.FormatContents.Add "percent","value + `%`"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "5[content=percent]"
	.Refresh 
End With
56
How do I change the name for months in the drop-down filter window (localization)

With Pivot1
	Debug.Print( .Description(17) )
	.Description(17) = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
	.Description(0) = "(Toate)"
	.Description(1) = "(Gol)"
	.Description(2) = "(Plin)"
	.Description(3) = "Filtreaza:"
	.Description(16) = "Azi"
	.Description(18) = "D L Ma Mi J V S"
	.Description(25) = "Exclud"
	.Description(26) = "Coloane"
	.Description(11) = "si"
	.Description(12) = "Data:"
	.Description(15) = "Data"
	.Description(13) = "la"
	.Description(24) = "nu"
	.Description(23) = "sau"
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.DataColumns.Item("OrderDate").SortType = 2
	.PivotRows = "9"
	.Refresh 
End With
55
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageHeight but infinite width etc
With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = x 5"
		.PrintExts = Pivot1
		.Preview 
	End With
End With
54
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageWidth but infinite height etc
With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh 
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = 5 x"
		.PrintExts = Pivot1
		.Preview 
	End With
End With
53
How can I get the column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Pivot1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Pivot1
		Debug.Print( .ColumnFromPoint(-1,-1) )
	End With
End Sub

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.Refresh 
End With
52
How can I get the value from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Pivot1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Pivot1
		Debug.Print( .ValueFromPoint(-1,-1) )
	End With
End Sub

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.Refresh 
End With
51
How can I specify a column to display HTML format

With Pivot1
	.Import "Bold <b>1,Bold <b>2#Bold <b>3,Bold <b>4#Bold <b>5,Bold <b>6","eor='#' eof=',' hdr=0"
	.DataColumns.Item(0).HTML = True
	.DataColumns.Item(1).HTML = True
	.PivotRows = "0"
	.Refresh 
End With
50
Does your control supports scrolling by touching the screen

With Pivot1
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Data","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb",3,3
	End With
	.DataSource = rs
	.AutoDrag = 4112 ' AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
End With
49
How can I specify programatically the width of the pivot column ( first column )

With Pivot1
	.BeginUpdate 
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	.EndUpdate 
End With
48
How can I show the total of each row, when columns are shown as expanded

With Pivot1
	.BeginUpdate 
	.IncludeExpandColumn = 1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.EndUpdate 
End With