>>>>Thank you very much! Now I just need to copy your code and paste it into mine <g>.
>>>>
>>>>>Based on Tore' suggestion:
>>>>>
>>>>>

>>>>>*** 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
>>>>>

>>>
>>>And test it :-)
>>
>>Test it? Are you chicken?
>
>Testing is for sissies.

Design as well. Do as I do -- just start coding.