主题：按钮禁止后的提示语

timertick事件

http://www.foxtable.com/webhelp/scr/1301.htm

Dim cs() As String = {"button1", "button2", "button3"}
Dim p = System.Windows.Forms.Cursor.Current.Position
For Each c As String In cs
    Dim obj = e.form.controls(c).basecontrol
    Dim rc = obj.RectangleToScreen(obj.ClientRectangle)
    output.show(obj.name & rc.tostring & p.tostring)
    If rc.contains(p) Then
        msgbox(obj.name)
        Exit For
    End If
Next