怎么让按钮禁止1小时后再次激活

如何让按钮禁止1小时后再次激活
我现在有一个按钮，我在点击他后让他禁止1小时后在次激活，请高手指点，小弟不胜感激！

------解决方案--------------------
可以设置一个Timer，Timer时间间隔（Interval属性）无法设置1小时，可以设置1分钟，每到Timer事件时将一个计数值+1，在点击后将Timer的Enabled设置为True，然后等计数值到60后（过了1小时）将按钮激活。
------解决方案--------------------
sub form1_load()

timer1.enabled=false
timer1.interval=1000
end sub


sub timer1_timer()
dim i

i=1
i=i+1
if i> 3600 then

'execute process

end sub



------解决方案--------------------
sub timer1_timer()
dim i

i=1
i=i+1
if i> 3600 then

'execute process

end sub
------解决方案--------------------
窗体上拖放一command1和timer1，并设置timer1的enabled为false，interval为60000(即1分钟)。
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
i = i + 1
If i = 1 Then
Timer1.Enabled = False
i = 60
Command1.Enabled = True
End If
End Sub

------解决方案--------------------
Timer1_Timer事件中的
dim i as
要改成
Static i As Long
否则无效
------解决方案--------------------
帮顶
------解决方案--------------------
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 6000
End Sub

Private Sub Timer1_Timer()
Static sum As Integer
sum = sum + 1
Label1 = sum
If sum > = 600 Then
Command1.Enabled = True
Timer1.Enabled = False
End If
End Sub

------解决方案--------------------
。。。。这个我不发言。。。。

但是我发个破解灰按钮的代码。。嘿嘿

VB版： http://www.m5home.com/bbs/dispbbs.asp?boardID=2&ID=20&page=1

VC++版： http://www.m5home.com/bbs/dispbbs.asp?boardID=3&ID=873&page=1