VB中创建超长时间计时器对象

4．引用NewTimer.DLL
引用ActiveX DLL部件同引用其他对象一样，从“工程（P）”菜单中选择“引用（N）”命令，打开引用窗口，从引用列表中选中NewTimer对象。如果是第一次引用NewTimer，则在引用窗体上单击“游览（B）”命令按钮，将NewTimer.DLL文件添加到可引用列表框中方可使用。

5．调用NewTimer.DLL
在应用程序中加入下述程序代码，实现参NewTimer.dll的调用：
    Option Explicit
    Dim WithEvents LongTimer1 As LongTimer

    Private Sub LongTimer1_Tick()
      Print "时间到，此处添加处理程序"
    End Sub

    Private Sub Command1_Click()
      Lo

ngTimer1.Interval = 12000     ‘两分钟
      LongTimer1.Enabled = True
    End Sub

    Private Sub Form_Load()
       Set LongTimer1 = New LongTimer
    End Sub


参考文献
[2]东箭工作室.Visual Basic5.0中文版程序设计.清华大学出版社，1997
[3]Evangelos Petroutsos. Visual Basic5从入门到精通.北京：电子工业出版社，1997《VB中创建超长时间计时器对象(第2页)》