>

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

I guess you ment to use VARTYPE() and not TYPE(), with TYPE() you must enclose the variable names with apostrophs. (I know that you know that!)