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