>The line
>

>#IF VERSION( 2 )<900
>

>
>should read
>
>

>#IF VERSION( 5 )<900
>

Thanks. In my final code I removed it at all. Here is the code as it is right now:

WITH this
	IF .Width > 100	AND EMPTY(.ColumnWidths)
		.ColumnCount = MAX(.ColumnCount,2)
		.ColumnWidths = LTRIM(STR(.Width-IIF(.ListCount > EVL(.DisplayCount,7),40,40-SYSMETRIC(5)))) ;
			+ REPLICATE(',0',.ColumnCount-1)
	ENDIF
ENDWITH

100 and 40 are some arbitrary numbers. However, this code doesn't work in cases, where the listindex is close to the bottom of the list.

I'm not sure, if you want to help me with this problem, but if you can, I appreciate it.