怕是不行啊
Timer对象无法直接在Class中创建实例,也就是说NEW对它不起作用

解决方案 »

  1.   

    有两种方法:
    1)在你的工程中添加一个窗体Form1,窗体上放一个Timer控件Timer1,窗体Visible属性为False
       在类中声明  Dim WithEvents mTimer as Timer
       加入以下代码到Class_Initialize中
            Set mTimer=Form1.Timer1
       加入以下代码到  Class_Terminate中
            Set mTimer=Nothing
            Unload Form1
       在类的代码窗口的对象中就有了事件   mTimer_Timer
      

  2.   

    2) MSDN中有一个例子Coffee的目录下有一个XTimer的工程,是一个非控件的定时器的例子,有参考价值。