无窗体main模式：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Main()Sleep(60000)DoEventsShell()End Sub
加个计时器控件吧！
