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

[lmhcs]

我用Shell_NotifyIcon实现了托盘图标，并弹出气泡提示，但气泡自动关闭的时间很难控制，查过一些资料，说是最少10秒最大30秒才会自动关闭，我想自己控制气泡关闭时间 ，我用下面代码关闭了气泡，但是，再调用重新弹出气泡时，就只听见弹出气泡"仆"的一声，但不见气泡显示，经过测试，发现只要重新启动explorer进程，则气泡才能正常显示。
要关闭气泡不知道要用什么函数？或者下面的函数，还需要做什么设置才能让气泡正常显示呢。？

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

[东方之珠]

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

[东方之珠]

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

[lmhcs]

奇怪，我的代码怎么没有显示出来？我重新贴出我关闭气泡的代码
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 兄弟 提供下载的代码，遇到的情况跟我一样，只要用上述代码已结束气泡，则再点击也不会弹出来的， 在枕善居下载的代码运行不了，说明说能够实现倒计时，正是我现在要的功能，我研究夏。

[lmhcs]

再经过调试发现，经过上面代码关闭气泡窗体后，所有程序不能再也不会显示气泡了，有谁知道解决的方法吗，或者更合适关闭气泡的函数。

[lanyork]

UP！！帮顶！！

[lmhcs]

呵呵，自己解决了。谢谢各位的热心