主题：关于用扫描枪扫码

比如，keypress事件，写代码

static ptime As Date = Nothing

Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds > 50  Then
    e.Sender.text = ""
    e.Cancel = True
End If