在VB中建一窗体form1,内加一时间控件timer1,程序实现每5分钟发生一次事件，如提示“测试成功！”。代码如下：
                Dim i As Integer
                Private Sub Form_Load()
                       i = 0   '计数器初值

                      Timer1.Interval = 1000            '定时器timer事件的时间间隔约1秒

                      Timer1.Enabled = True           '启动定时器                   
                       Form1.WindowState = 1                           'form窗体最小化                      
                End Sub
                Private Sub Timer1_Timer()
                      i = i ＋ 1                '开始计数                 

                      If i = 300 Then        ‘约5分钟保存一次,可酌情改变
                             i = 0                 '计数器清零
                            MsgBox "测试成功!"

                 End If
               End Sub