These two lists looks both the same. I guess this web didn't formated them well, so I don't now, what do you want to do with them exactly, but if you just want to make the lists aligned into nice columns, then try:
1) Right click on listbox and choose properties
2) Check gridlines (optionally, you'll see the cells then)
3) Set the view combo on value 3 - Report (thats necessary)
4) Set label edit on Manual (optionally, in the other case the first cell is editable by user as I remember)
5) Click on the "Column headers" tab and click four times on Insert column (necessary if you want to use my code below)
6) You can also name your columns, set their width, ...
then, for filling the list, use this:
Dim itmLIST3 As ListItem
Set itmLIST3 = List3.AddItem(txtName)
itmLIST3.SubItems(1) = txtamount
itmLIST3.SubItems(2) = txtqan
itmLIST3.SubItems(3) = Format$(ans, "Currency")
This should work...
Marked Solved 
