... cList, aFlds, aHdrs local nChoice, uDataSource local cAlias,oWndChild cList := "First,Last,Street,State,HireDate" cAlias = cGetNewAlias( cFileNoExt("CUSTOMER.DBF" ) ) USE CUSTOMER SHARED NEW ALIAS (cAlias) SET ORDER TO TAG FIRST GO TOP DEFINE FONT oFont NAME "TAHOMA" ...