主题：禁止多次点击

方法1、限制点击时间

按钮事件

static ptime As Date = Nothing

Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds < 500  Then '间隔500毫秒
    return
End If

按钮原来的代码

2、点击后把控件设置为不可用

e.sender.enabled = false

按钮原来的代码