主题：如何防止用户狂击某个按钮……

1、可以禁用

e.sender.Enabled = false

'执行代码

e.sneder.Enabled = True

2、可以延时

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

'本来的代码