主题：[求助]禁止手动输入

可以用Static变量解决，在TextChanged事件设置代码，具体自行调整：

Static dt As date

if  e.senter.text > "" Andalso e.Senter.text.Length = 1  '记录第一个字符输入时的时间

    dt = Date.Now

Elseif (Date.Now - dt).TotalSeconds > 0.5 如果超过0.5秒

    if  e.senter.text > "" Andalso e.Senter.text.Length < 5 Then '内容少于5个字符

         e.Sender.Value = ""  '清除内容

    end if

end if