主题：关于用扫描枪扫码

处理一下

static ptime As Date = Nothing

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