强制关闭气泡后，想再次显示气泡则不能正常显示，寻求高手指点。

Question

       我用Shell_NotifyIcon实现了托盘图标，并弹出气泡提示，但气泡自动关闭的时间很难控制，查过一些资料，说是最少10秒最大30秒才会自动关闭，我想自己控制气泡关闭时间 ，我用下面代码关闭了气泡，但是，再调用重新弹出气泡时，就只听见弹出气泡"仆"的一声，但不见气泡显示，经过测试，发现只要重新启动explorer进程，则气泡才能正常显示。
     要关闭气泡不知道要用什么函数？或者下面的函数，还需要做什么设置才能让气泡正常显示呢。？
[code]
Public Function test()
'查找气泡并关闭
Dim hwnd&, ret&
    hwnd = FindWindow("tooltips_class32", vbNullString)
    Debug.Print "气泡句柄", hwnd
    ret = SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
End Function
[/code]

Answer 1

http://www.m5home.com/blog2/blogview.asp?logID=217&cateID=2

Answer 2

http://www.mndsoft.com/blog/article.asp?id=1099

Answer 3

      奇怪，我的代码怎么没有显示出来？我重新贴出我关闭气泡的代码
Public Function test()
'查找气泡并关闭
Dim hwnd&, ret&
    hwnd = FindWindow("tooltips_class32", vbNullString)
    Debug.Print "气泡句柄", hwnd
    ret = SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
End Function经过测试，chenjl1031 兄弟 提供下载的代码，遇到的情况跟我一样，只要用上述代码已结束气泡，则再点击也不会弹出来的， 在枕善居下载的代码运行不了，说明说能够实现倒计时，正是我现在要的功能，我研究夏。