>LOCAL lcControl >lcControl = IIF(UPPER(LEFT(Object.ControlSource,2)) == [M.],SUSBTR(Object.ControlSource,3),Object.ControlSource) >DO CASE > CASE TYPE([m.]+lcControl) == [U] AND; && Not a memory variable > TYPE(lcControl) # [U] > REPLACE (lcControl) WITH WITH ltNewDateTime > CASE TYPE(lcControl) == [C] && Memory variable > STORE ltNewDateTime TO (lcControl) >OTHERWISE > *** something wrong >ENDCASE >>(not tested for all occasions)