KeyDown事件
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptimeIf sp.TotalMilliseconds < 500 Then msgbox("双击了") End Ifptime = Date.nowe.cancel = True