Hi Dale,

This example will give you an idea for implementing you logic with VFP.

*-- Column Headers
THISFORM.ListView.ColumnHeaders.Add(,,"Description", 200 )
THISFORM.ListView.ColumnHeaders.Add(,,"Amount", 85, 1 ) && Right justified

*-- Adding ListItems
oItem = THISFORM.ListView.ListItems.Add(,,"Test")
WITH oItem
.SubItems(1) = "VFP 6.0"
.SubItems(2) = TRANS( 200.00, "$ 99,999,999.99" )
ENDWITH