I have this code in my Add button to add items to the listbox.

THISFORM.lstSHKDisp_list.ListIndex = 1
SCAN FOR gcIncident = shocks.inc_id
THISFORM.lstSHKDisp_list.AddItem(STR(shocks.grp_id))
ENDSCAN

HTH

Hey and thanks for the signature tip (Press the computer icon). I thought I had tried doing that in the past, but for some reason the Change was not accepted. We'll see if it works tonight.