EVENT事件不是过程，要处理事件要用到HANDLES 或ADDHANDLER 将事件处理过程关联起来：
勐海ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
PUBLIC EVENT USERNAME()
SUB DOENENT() HANDLES ME.USERNAME
触发事件用RAISEEVENT USERNAME
所以WITHEVENTS是声明该类有事件过程而已
RaiseEvent只能在类的定义中用 不能通过实例引用 也就是说Event是由类的开发者封装好的，不允许使用者自己在代码中来引发事件，用户只能编写处理事件的代码（也就是你程序中的Sub EventHandler()和Sub EventHandler1()）
Public Sub Delay(Second As Bouble)
Dim tempTime As DateTime = DateTime.Now
While (tempTime.AddSeconds(second).CompareTo(DateTime.Now) 0)
Application.DoEvents()
End While
End Sub
放在模块里，使用时 Delay(1) 即可。