要用 Timer 做，把 Interval 属性设为 90000 (即 1 分 30 秒转化成毫秒后的数值)，再在 Timer 事件中加一句 MsgBox "警告", vbExclamation ，就可以实现简单的报警了。

是1小时30分，不是1分30秒

不，你可以换一种计时方法，将 Interval 属性设为 1000。然后声明全局变量 Hour, Minute。在 Timer 事件中写:

Minute = Minute + 1
If Minute = 60 Then
Minute = 0
Hour = Hour + 1
End If

If Hour = 1 And Minute = 30 Then '当计算到 1:30 时
'执行代码
End If

谢谢，我试试

检查一下时间差就可以了