进入服务事件等待
Shell.Service.DoEvents
下面演示了进行服务的初始化以后进入服务事件等待的代码:
Set service = Shell.Service service.Name = "MySrv" service.DisplayName = "My Service Application" ' Init ...... service.DoEvents