>LOCAL lnFor >thisform.text42.Value = thisform.list1.value >CLOSE all >SELECT 0 >USE dnc >lnFor = VAL(SUBSTR(thisform.text42.Value,2)) >LOCATE FOR flag1 = m.lnFor >ThisForm.Label1.Caption = q1 >ThisForm.Label2.Caption = q11 >CLOSE all >USE answers >