主题：有什么办法让双击事件只执行一次？

什么意思？具体一点你的问题。

static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds < 5000  Then '间隔5秒点击才有效
    Return
End If

'本来的代码