一个托盘显示图标，不会自动清除的问题！

Question

我用了下面这个代码，让软件打开后，在托盘显示了一个小图标！
但是问题是，当你点击软件关闭的按钮后，托盘的图标还在，需要鼠标划过去才消失！请高手帮忙看，得如何解决？关闭软件的时候，托盘图标也能自动消失！'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hwnd = Me.hwnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = "汕头电台" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
Me.Hide
'=============================================================System Tray End

Answer 1

不太清楚，用我的托盘控件吧，调试封装好的，只需要在VB的部件对话框中打开SysTray.OCX就可以了，有例子代码。地址：http://download.csdn.net/source/3010884

Answer 2

VBtray系统托盘图标动态绘制VB源码
http://download.csdn.net/source/570264

Answer 3

Private Sub Form_Unload(Cancel As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub