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