147
ADOR, MDB (JET)

Dim rs
With Expivot1
	rs = New ADODB.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 Expivot1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Expivot1.Font.Size
	.ToolTipFont.Size = Expivot1.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
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_CheckImage(exontrol.EXPIVOTLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXPIVOTLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXPIVOTLib.CheckStateEnum.PartialChecked,50331648)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXPIVOTLib.AppearanceEnum.Etched
	.GridLineStyle = exontrol.EXPIVOTLib.GridLinesStyleEnum.exGridLinesGeometric
	.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 Expivot1
	.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
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXPIVOTLib.AppearanceEnum.Etched
	.GridLineStyle = exontrol.EXPIVOTLib.GridLinesStyleEnum.exGridLinesGeometric
	.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 Expivot1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Expivot1.Event
	With Expivot1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

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

With Expivot1
	.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 Expivot1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXPIVOTLib.AppearanceEnum.Etched
	.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 Expivot1
	.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

Dim s
With Expivot1
	.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 Expivot1
	.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 Expivot1
	.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
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exPivotBarTotal,&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 Expivot1
	.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
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1fefefe)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
136
How can I change the format the column displays (for instance, displaying no 0:00:00)

With Expivot1
	.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarTop Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
134
How can I uses the control in window-less mode (with no user interface, option 3)

With Expivot1
	' Add 'exontrol.expivot.dll(ExPivot.dll)' reference to your project.
	With New exontrol.EXPIVOTLib.expivot()
		.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)

Dim rs
With Expivot1
	' Add 'exontrol.expivot.dll(ExPivot.dll)' reference to your project.
	With New exontrol.EXPIVOTLib.expivot()
		rs = New ADODB.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 Expivot1
	' Add 'exontrol.expivot.dll(ExPivot.dll)' reference to your project.
	With New exontrol.EXPIVOTLib.expivot()
		.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

Dim rs
With Expivot1
	.BeginUpdate()
	rs = New 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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .FormatConditionalAppearances
		.Add("G1000","> 1000","value > 1000").ForeColor = Color.FromArgb(0,0,255)
		.Add("L1000","< 1000","value < 1000").ForeColor = Color.FromArgb(255,0,0)
		.Add("Zero","zero","value = 0").BackColor = Color.FromArgb(224,224,224)
	End With
	With .FormatAppearances
		.Add("grayed").ForeColor = Color.FromArgb(128,128,128)
		.Add("red").ForeColor = Color.FromArgb(255,0,0)
		.Add("green").ForeColor = Color.FromArgb(0,255,0)
		.Add("blue").ForeColor = Color.FromArgb(0,0,255)
		.Add("bgrayed").BackColor = Color.FromArgb(128,128,128)
		.Add("bred").BackColor = Color.FromArgb(255,0,0)
		.Add("bgreen").BackColor = Color.FromArgb(0,255,0)
		.Add("bblue").BackColor = Color.FromArgb(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 = exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScroll
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.FilterBarPromptType = exontrol.EXPIVOTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "France Germany"
	.EndUpdate()
	Debug.Print( .Export("htm") )
End With
129
Export Data in HTML format (IE)

Dim sFile
With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .FormatConditionalAppearances
		.Add("G1000","> 1000","value > 1000").ForeColor = Color.FromArgb(0,0,255)
		.Add("L1000","< 1000","value < 1000").ForeColor = Color.FromArgb(255,0,0)
		.Add("Zero","zero","value = 0").BackColor = Color.FromArgb(224,224,224)
	End With
	With .FormatAppearances
		.Add("grayed").ForeColor = Color.FromArgb(128,128,128)
		.Add("red").ForeColor = Color.FromArgb(255,0,0)
		.Add("green").ForeColor = Color.FromArgb(0,255,0)
		.Add("blue").ForeColor = Color.FromArgb(0,0,255)
		.Add("bgrayed").BackColor = Color.FromArgb(128,128,128)
		.Add("bred").BackColor = Color.FromArgb(255,0,0)
		.Add("bgreen").BackColor = Color.FromArgb(0,255,0)
		.Add("bblue").BackColor = Color.FromArgb(0,0,255)
	End With
	.ShowBranchRows = exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchIncludeAggregate Or exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchTree
	.PivotRows = "0[bold],2[grayed]"
	.PivotColumns = "sum(5)[L1000],sum(5)[G1000]/12:A"
	.PivotTotals = "/sum[bold,content=currency,bgrayed]"
	.AutoDrag = exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScroll
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.FilterBarPromptType = exontrol.EXPIVOTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "France Germany"
	.EndUpdate()
	sFile = "c:/temp/export.htm"
	.Export(sFile,"vis")
	With New SHDocVw.ShellBrowserWindow()
	End With
End With
128
Export Data in CSV format

With Expivot1
	.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 = exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScroll
	.BackColorAlternate = Color.FromArgb(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 Expivot1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwCgkBYJDSMAiiaLETwHFKVRwkWBBWjMAAxDZFcggA" & _
"77fwxHaOAghGgobjaPY+UbGERAAKQahLJamablCSqLjCS4kSLHEbQHTcRSzLKQZBBCCSQKkYx0HScRiwPBIbQkIQmbajOaYDCiQ53QLCAYRXS9PwvI7AMBwLA8EwXBo9" & _
"DZiIy4WyuGj3R4WchAbIwIxUK6XHhmLjZXg+Bz9T6LQZ0JStEx2SYjAJqOiKU62W9xbAUOxQTpIBJXW7Oc7GTa8dQfPoJaIDLicHgoZ6NLIcOR0abSO42CRrdByfRYMw" & _
"visCQKnYOh9i4LwbBINpBHeBxeC6X4TAIEpzkIWgei8L4Qk2boEhWPg9C4SJijIOZ7mEXA/iAX5yBKDx/lmVhEC0Z5ZlKHgGAAYIHkGcQxiCQ5eA4PghAKNgSG0VYXEi" & _
"JYFl+QAtiCBpdjcDJkB0IgAiYIgBmIQAWCYCoigYZB4DQYpAjoLh3h6SJFgcOpXlAAQBICA==")
	End With
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exPivotBarReload,&H1000000)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatConditionalAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.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 Expivot1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	End With
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exPivotBarAddNew,&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 Expivot1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXPIVOTLib.AppearanceEnum.Etched
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
		.Add(2,"CP:1 0 -36 0 0")
	End With
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.EndUpdate()
End With
124
FilterBarCaption ALL Keyword ( sample 2, result )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
123
FilterBarCaption ALL Keyword ( sample 1 )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
122
FilterBarCaption ALLUI Keyword ( sample 2, result )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
121
FilterBarCaption ALLUI Keyword ( sample 1 )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
120
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
119
FilterBarCaption AVAILABLE Keyword ( sample 1 )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarToggle
	.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarToggle
	.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarToggle
	.EndUpdate()
End With
115
Is it possible to automatically displays the control's filter label to the right

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXPIVOTLib.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 Expivot1
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
110
FilterBarCaption Predefined Keywords

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.LinesAtRoot = exontrol.EXPIVOTLib.LinesAtRootEnum.exLinesAtRoot
	.FilterInclude = exontrol.EXPIVOTLib.FilterIncludeEnum.exItemsWithChilds
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXPIVOTLib.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 Expivot1
	.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 = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
	.EndUpdate()
End With
106
How can I change the visual appearance of the filter bar's close button (solid)

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
	.EndUpdate()
End With
105
Is it possible to prevent definitely showing the filter bar's close button

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With
104
Is it possible to show the close button only if there is a filter applied

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

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

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.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 Expivot1_Click(ByVal sender As System.Object) Handles Expivot1.Click
	With Expivot1
		.ClearFilter()
	End With
End Sub

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
98
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

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

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible
	.EndUpdate()
End With
96
How can I find if the control is running in DPI mode
With Expivot1
	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 Expivot1
	.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 Expivot1
	.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
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
	.HeaderVisible = True
	.HeaderHeight = 24
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exShowCheckBox Or exontrol.EXPIVOTLib.FilterListEnum.exSortItemsAsc
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.EndUpdate()
End With
93
How do I change the drop down filter icon/button (black)

With Expivot1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.BackColorHeader = Color.FromArgb(0,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	.HeaderHeight = 22
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exShowCheckBox Or exontrol.EXPIVOTLib.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 Expivot1
	.BeginUpdate()
	.BackColorAlternate32 = &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 Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( "Type of ColumnFromPoint: " )
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
		Debug.Print( " should not be VT_NULL" )
		Debug.Print( "Type of ValueFromPoint: " )
		Debug.Print( .get_ValueFromPoint(-1,-1) )
		Debug.Print( " should be VT_NULL" )
	End With
End Sub

With Expivot1
	.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 Expivot1
	.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 Expivot1
	.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 Expivot1
	.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 = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.DrawGridLines = exontrol.EXPIVOTLib.GridLinesEnum.exNoLines
	.ShowBranchRows = exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchIncludeAggregate Or exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchTree
	.EndUpdate()
End With
87
How do I show expanded/collapsed rows

With Expivot1
	.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 = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.DrawGridLines = exontrol.EXPIVOTLib.GridLinesEnum.exNoLines
	.EndUpdate()
End With
86
How do I show expanded/collapsed columns

With Expivot1
	.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 = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)"
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(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 Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( "DataColumn" )
		Debug.Print( .get_DataColumnFromPoint(-1,-1) )
	End With
End Sub

With Expivot1
	.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 Expivot1_RClick(ByVal sender As System.Object) Handles Expivot1.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()
	Dim c,h
	With Expivot1
		h = .DataColumns.Item(5).Alignment
		With c
		End With
		With .DataColumns.Item(5)
			.Alignment = h
			.HeaderAlignment = h
		End With
		.Refresh()
	End With
End Sub

With Expivot1
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.Item(5)
		.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
	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 Expivot1_RClick(ByVal sender As System.Object) Handles Expivot1.RClick
	With Expivot1
		Debug.Print( "The column gets aligned to the center" )
		With .DataColumns.Item(5)
			.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.CenterAlignment
		End With
		.Refresh()
	End With
End Sub

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

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.Item(5)
		.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
	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
Dim var_CopyTo
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	var_CopyTo = .get_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
Dim var_CopyTo
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	var_CopyTo = .get_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 Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.PrintExt = Expivot1
		.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)
Dim var_CopyTo
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.Item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	var_CopyTo = .get_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 Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exNoItems
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarReadOnly Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.Refresh()
End With
75
Is it possible to edit the conditional-expression at runtime

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

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(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 Expivot1
	.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 Expivot1
	.BeginUpdate()
	With .FormatConditionalAppearances.Add("f","starts with f","lower(value) startwith `f`")
		.Expression = "lower(value) startwith `f`"
		.Shadow = Color.FromArgb(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 Expivot1
	.BeginUpdate()
	With .FormatConditionalAppearances.Add("greater100",">100","value > 100")
		.Expression = "( dbl(value) != 0 ) ? (value > 100) : 0"
		.ForeColor = Color.FromArgb(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 Expivot1
	.BeginUpdate()
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .FormatConditionalAppearances.Item("negative")
		.BackColor = Color.FromArgb(0,0,0)
		.ForeColor = Color.FromArgb(128,128,128)
		.FontSize = 8
	End With
	With .FormatConditionalAppearances.Item("positive")
		.BackColor = Color.FromArgb(0,0,0)
		.ForeColor = Color.FromArgb(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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .FormatConditionalAppearances.Item("negative")
		.BackColor = Color.FromArgb(1,0,0)
		.ForeColor = Color.FromArgb(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 Expivot1
	.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 Expivot1
	.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 Expivot1
	.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 Expivot1
	.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 Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		Debug.Print( .get_Decode64TextW(Expivot1.Layout) )
	End With
	.EndUpdate()
End With
61
How can I specify the sorting type, so the column gets sorted as numeric for instance

With Expivot1
	.Import("1,1#11,11#101,101","eor='#' eof=',' hdr=0")
	With .DataColumns.Item(0)
		.Caption = "Numeric"
		.SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortNumeric
	End With
	.DataColumns.Item(1).Caption = "String (default)"
	.PivotRows = "0"
	.Refresh()
End With
60
How can I disable the control's context menu
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
End With
59
How do I get the captions of the columns
With Expivot1
	.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 Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.Item("Freight")
		.DefaultFormatContent = "numeric"
		.DefaultFormatAppearances = "bold"
		.SortOrder = exontrol.EXPIVOTLib.SortOrderEnum.SortAscending
		.SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortNumeric
	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 Expivot1
	.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 Expivot1
	Debug.Print( .get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateMonths) )
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateMonths,"Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAll,"(Toate)")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarBlanks,"(Gol)")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarNonBlanks,"(Plin)")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarFilterForCaption,"Filtreaza:")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTodayCaption,"Azi")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateWeekDays,"D L Ma Mi J V S")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarExclude,"Exclud")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exColumnsFloatBar,"Coloane")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,"si")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDate,"Data:")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTitle,"Data")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTo,"la")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarNot,"nu")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarOr,"sau")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.Item("OrderDate").SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortDate
	.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 Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = x 5"
		.PrintExts = Expivot1
		.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 Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = 5 x"
		.PrintExts = Expivot1
		.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 Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
	End With
End Sub

With Expivot1
	.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 Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( .get_ValueFromPoint(-1,-1) )
	End With
End Sub

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

With Expivot1
	.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

Dim rs
With Expivot1
	rs = New ADODB.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 = exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScrollOnShortTouch Or exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScroll
End With
49
How can I specify programatically the width of the pivot column ( first column )

With Expivot1
	.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 Expivot1
	.BeginUpdate()
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.EndUpdate()
End With