*Open your database as a table, note the ".dbc" is required use your_dbc_name.dbc shared alias db select a.objectname as tableName ; from db a, db b ; where b.objecttype="Index" and a.objectid=b.parentid ; into cursor indexed_tables use in "db" *The "indexed_tables" cursor now has all *the database's indexed table namesThen you could bind this cursor to the control source of your list box and perform the following when the user selects one of the list's entries:
lctable=alltrim(your_listbox_name.value) use &lctable exclusive in 0 select &lctable reindexNote that you will not be able to "use" your database if it has been already been opened with the OPEN DATABASE command.