额?有这么一说吗?我怎么不知道-_-你试一下,不能用嘛?Dim i As IntegerPrivate Sub Form_Load() Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() i = i + 1 If i >= 300 Then i = 0 MsgBox "五分钟了!" End IfEnd Sub