IF TYPE('this.ControlSource') = "C" AND TYPE(this.ControlSource) = "T" this.Format = "" && we can not use D format, because it doesn't allow to edit time portion LOCAL lcInputMask lcInputMask = CHRTRAN(TRANSFORM(DATETIME()),"1234567890","9999999999") *this.InputMask = ALLTRIM(STRTRAN(STRTRAN(m.lcInputMask,"M","A"),"P","A")) this.InputMask = "99/99/9999 99:99:99 AA" =MESSAGEBOX(this.InputMask) ENDIFIt does take it from the property sheet.