Christian,

To get the whole column to display is to change the column widths. To get some space between the number and the text, why not use a cursor that has an empty column in it?

select seKey, space(1) as InsertBlankColumnHere, seDescript, seOrder...

You can also use the following WITH to save some time and keystrokes.

USE AccesSet
SET ORDER TO seKey
WITH THISFORM.lstKeys
   .CONTROLSOURCE = "AccesSet"
   .ROWSOURCETYPE = 6
   .ROWSOURCE = "AccesSet.seKey,InsertBlankColumnHere,seDescript,seOrder"
   .VALUE = AccesSet.seKey
   .COLUMNWIDTHS = "70,5,170,35"
   .COLUMNCOUNT = 4
ENDWITH

>The problem is the display of the numeric values: First I cannot enforce a space between the first two columns. The first column is right justified (numeric value) and the second column is left justified, which actually concatenates both columns together. The using of column lines is not the very best and I would prefer to display a space between them if that is possible.
>
>Also the numeric values are cut at the right so you see only the half of the right most numbers. This happens in all columns which hold numeric values. I did not find a property that could change this.