如果是连续点击的问题,可以限制事件触发的间隔时间
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptimeptime = Date.nowIf sp.TotalMilliseconds < 500 Then '间隔500毫秒 returnEnd If
msgbox("编写执行代码")