请问如何 在.dll应用timer控件

Question

Option Explicit
'    Purpose:
'     Author:吴文智
'       Date:2001-11-09
'Description:要试用本例请在窗体中填加一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!Private Sub Command1_Click()
    Dim PauseTime, Start, Finish, TotalTime
    MsgBox "按确定后程序延迟3秒", vbInformation
       Start = Timer   ' 设置开始暂停的时刻。
       Do While Timer < Start + 3 '对时间进行比较
          DoEvents
       Loop
       MsgBox "延迟结束", vbInformation
End Sub

Answer 1

http://www.vbaccelerator.com/codelib/ssubtmr/ssubtmr6.zip中有一个定时器类模块

Answer 2

楼上的那位兄弟，他要的不是延时程序吧？:-)在DLL里用timer控件，一定要新建一个窗体，在这个窗体里加入timer控件。然后写入程序，在你的DLL的类模块里调用刚新建的那个窗体里你写的函数。这样就实现了。你说的这个，我写过这样的DLL。还有什么问题请问。:-）