Icona nella tray bar

[hacker_nait]

Salve,
ho scaricato uno script carino che inseriva nella Traybar l'icona del programma da me fatto e cliccandoci sopra, dava le opzioni quali Esci, Apri ecc...
Il problema è che quando si usciva dal programma, l'icona rimaneva fin quando non si passava con il mouse sopra.-

Esiste uno script che rimuove questa icona alla chiusura del programma?

Allego il codice:

Option Explicit

Private Type NOTIFYICONDATA
  cbSize As Long
  hwnd As Long
  uId As Long
  uFlags As Long
  ucallbackMessage As Long
  hIcon As Long
  szTip As String * 64
End Type

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim t As NOTIFYICONDATA

Private Sub Form_Load()
  t.cbSize = Len(t)
  t.hwnd = pichook.hwnd
  t.uId = 1&
  t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  t.ucallbackMessage = WM_MOUSEMOVE
  t.hIcon = Me.Icon
  t.szTip = "Directory Lock 1.0" & Chr$(0)
  Shell_NotifyIcon NIM_ADD, t
  Me.Hide
  App.TaskVisible = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  t.cbSize = Len(t)
  t.hwnd = pichook.hwnd
  t.uId = 1&
  Shell_NotifyIcon NIM_DELETE, t
End Sub

Private Sub pichook_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static rec As Boolean, msg As Long
   msg = X / Screen.TwipsPerPixelX
If rec = False Then
   rec = True
Select Case msg
Case WM_LBUTTONDBLCLK:
Form3.Show
Case WM_LBUTTONDOWN:
Case WM_LBUTTONUP:
Case WM_RBUTTONDBLCLK:
Case WM_RBUTTONDOWN:
Case WM_RBUTTONUP:
   Me.PopupMenu mnuBar
End Select
  rec = False
End If
End Sub