Rimozione icona programma dall'area "system tray"

[hacker_nait]

Tra i tanti script trovati sul web non sono riuscito a trovarne uno che mi togliesse l'icona della traybar all'uscita del programma. Se per esempio faccio End per terminare il programma, mi ritrovo che l'icona della tray sta ancora visualizzata, e per toglierla basta che ci passo con il mouse sopra. Non esiste un comando che la faccia sparire alla chiusura dell'applicazione?

[Boolean]

certo che è possibile eliminare l'icona.

innanzi tutto non devi mai terminare il programa con End, ma scaricando tutti i Forms in memoria facendone l'unload.

per eliminare l'icona usa questa routine, che devi ovviamente adattare al tuo programma:

Sub DeleteIcon()
    Dim Tic As NOTIFYICONDATA
    Tic.cbSize = Len(Tic)
    Tic.hwnd = picIconTray.hwnd    'picIconTray è la picturebox in cui risiede l'icona che va sulla Tray
    Tic.uID = 1&
    erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub

Boolean

[hacker_nait]

grazie mille, funziona alla grande, però non ho ancora capito come fare per terminare un programma... supponiamo avessi aperto un 3-4 forms? devo fare unload Form1...unload Form2... ecc? E se uno di questi 4 non fosse aperto quando gli mando il comando di unload?

[Boolean]

generalmente io uso una routine (posizionata in un modulo) che lancio al momento della chiusura, che si occupa di rilevare i forms aperti scaricandoli, scaricando per ultimo, il form dal quale la routine viene lanciata:

Public Sub CloseAll(ownerForm as Form)
Dim frm As Form
For Each frm in Forms
    If frm.Name <> ownerForm.Name Then
        Unload frm
    End If
    Unload ownerForm
Next frm

e va usata al momento della chiusura, così:

CloseAll Me

Boolean