static ptime As Date = NothingDim sp As TimeSpan = Date.now - ptimeptime = Date.nowIf sp.TotalMilliseconds < 500 Then '间隔500毫秒点击才有效 ReturnEnd If
原来的点击代码