Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 128 dwState As Long dwStateMask As Long szInfo As String * 256 uTimeoutOrVersion As Long szInfoTitle As String * 64 dwInfoFlags As Long End Type Private mtypIcon As NOTIFYICONDATA DestroyIcon mtypIcon.hIcon