I am using the following code to add itens to one listbox with 3 columns
SELECT despesa
GO TOP
i=0
SCAN WHILE !EOF('despesa')
i=i+1
Thisform.moverlists.lstsource.additem(despesa.ds_despesa,i,1)
Thisform.moverlists.lstsource.additem(STR(despesa.vl_despesa,8,2),i,2)
Thisform.moverlists.lstsource.additem(despesa.nr_despesa,i,3)
ENDSCAN

It is happen that the itens appear one line for each field of table 'despesa' instead one line with 3 columns.

For example if the file 'despesa' contains 10 records
I will have one list box with 30 lines.

The ColumnCount property is 3 and the ColumnWidths is defined.