>well the listbox already exists as such:
>WITH THISFORM.mylISTbox1
>.ROWSOURCE = ''
>.ROWSOURCETYPE = 0
>.ROWSOURCETYPE = 3
>.ROWSOURCE = "Select bar_code,report__,office,acct,cond,serial__,noun from d:\adpe INTO CURS PTEMP"

>Would your idea still work?

No, you must go into ROWSOURCETYPE = 9 schema.

Select bar_code,report__,office,acct,cond,serial__,noun from d:\adpe INTO CURS PTEMP
define popup PTEMP RELATIVE
define bar RECNO() ON PTEMP prompt TRANS(bar_code)+TRANS(report__)+... COLOR FIRSTROW
SKIP
scan REST
   define bar RECNO() ON PTEMP prompt TRANS(bar_code)+TRANS(report__)+... COLOR otherrows
endscan
....

Fabio