>>>>*** To calculate value and let you have 6 CheckBoxes in the forms: >>>>lnValue = 0 >>>>FOR lnFor = 1 TO 6 >>>> WITH EVALUATE("thisform.Check"+TRANSFORM(lnFor)) >>>> lnValue = IIF(.Value, BITSET(lnValue, m.lnFor-1)) >>>> ENDWITH >>>>NEXT >>>>? lnValue >>>> >>>>*** To Get it back: >>>>lnValue = FieldWhereYouSave >>>>FOR lnFor = 1 TO 6 >>>> WITH EVALUATE("thisform.Check"+TRANSFORM(lnFor)) >>>> .Value = BITTEST(lnValue, m.lnFor-1) >>>> ENDWITH >>>>NEXT >>>>>>