[ItemFocusChanged event]
CHOOSE CASE this.Describe(dwo.name + '.editmask.mask')
    CASE '?' , '!'
    CASE ELSE
       this.SelectText(1,999)
END CHOOSE
END IF

RETURN 0