procedure mylistview.itemcheck lparameters item For i = 1 TO This.listitems.count If item.index=This.listitems(i).index && if we don't want to use the actual choice Loop Endif If This.listitems(i).checked This.listitems(i).checked=.f. Endif wait window "Searching.."+this.SelectedItem.text nowait && just to show the items Endfor endprocHTH