mouseDown事件
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptimeIf sp.TotalSeconds <= 0.2 Then msgbox("双击了")Else ptime = Date.nowEnd If