Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 *  64 
    End Type
 Private Const NIM_DELETE = &H2
Private NID As NOTIFYICONDATA
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

 Private g_nidSysTray As NOTIFYICONDATA 'Sys tray user defined data type

Private Sub Form_Load()
NID.hwnd = FindWindow(vbNullString, "Form1")
Shell_NotifyIcon NIM_DELETE, NID
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByRef lParam As Any) _
    As Long
Private Sub Form_Load()
Dim ret As Long
    ret = FindWindow("Shell_TrayWnd", "")
    ret = FindWindowEx(ret,  0 , "TrayNotifyWnd", vbNullString)
    ret = FindWindowEx(ret,  0 , "SysPager", vbNullString)
    ret = FindWindowEx(ret,  0 , "ToolbarWindow32", vbNullString)
    ret = SendMessage(ret, TB_BUTTONCOUNT,  0 ,  0 )
    Text1.Text = ret
End Sub