看了某人蛋疼的文章，本人彻底晕倒：http://hi.baidu.com/cfan%5F/blog/item/2c1d685c68117f4efbf2c00a.html
我晕，这么简单的问题，还需要搞得这么复杂？？？还单独窗口，编译dll？？
Timer按分钟延时:
Dim T As Integer
Timer1.Interval = 60000 '一分钟
Private Sub Timer1_Timer()
If T < 30 Then T = T + 1: Exit Sub Else T = 0 '如果小于30分钟:计数器+1,大于等于30分钟,计数器清零
'代码
End Sub
服了这位了，看来是基础没学好。