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

我用了下面这个代码，让软件打开后，在托盘显示了一个小图标！
但是问题是，当你点击软件关闭的按钮后，托盘的图标还在，需要鼠标划过去才消失！请高手帮忙看，得如何解决？关闭软件的时候，托盘图标也能自动消失！

'以下把程序放入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

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