这需在窗体添加一个计时器，设置其Interval属性为60000（一分钟），再声明一个全局变量（例如 dim t1 as integer），Timer1_Timer过程的代码可以这样写：

Private Sub Timer1_Timer()
t1 = t1 + 1: If t1 < 3 Then Exit Sub '如果不到三分钟退出
t1 = 0
Shell Environ("winDir") & "\system32\calc.exe" '调用系统的计算器
Timer1.Enabled = False
End Sub