這時我們就可以使用這個函數來設置系統托盤圖標了，具體方法如下：
1、添加圖標
With TheData
.Uid = 0
.HWnd = frm.HWnd 'frm.HWnd是程序主窗體的句柄
.cbSize = Len(TheData)
.HIcon = frm.Icon.Handle 'frm.Icon.Handle指向主窗體的圖標
.UFlags = NIF_ICON
.UCallbackMessage = TRAY_CALLBACK
'作用是允許返回消息，在下一節中會有詳細解釋。
.UFlags = .UFlags Or NIF_MESSAGE
.cbSize = Len(TheData)
End With
Shell_NotifyIcon NIM_ADD, TheData
'根據前面定義NIM_ADD，設置為“添加模式”，然后添加 |
2、刪去圖標
With TheData
.UFlags = 0
End With
Shell_NotifyIcon NIM_DELETE, TheData
'根據前面定義NIM_DELETE，設置為“刪除模式” |
3、更改圖標
With TheData
.HIcon = pic.Handle
'pic是圖片狂PictureBox，存放圖標文件
.UFlags = NIF_ICON
End With
Shell_NotifyIcon NIM_MODIFY, TheData
'根據前面定義NIM_MODIFY，設置為“更改模式” |
4、為圖標添加浮動提示信息
With TheData
.SzTip = tip & vbNullChar
'tip是字符串string，存儲提示信息
.UFlags = NIF_TIP
'指明要對浮動提示進行設置
End With
Shell_NotifyIcon NIM_MODIFY, TheData
'根據前面定義NIM_MODIFY，設置為“修改模式” |
通過以上幾段代碼我們就能根據自己需要添加、刪除、更改系統托盤圖標，并能添加系統圖標上的浮動提示信息。但這時的托盤圖標是孤立的，我們并不能利用它來控制應用程序的行為，怎么辦呢？別急，請往下看……
VB托盤程序詳解(1)[轉載]VB托盤程序詳解(2)[轉載]VB托盤程序詳解(3)[轉載]VB托盤程序詳解(4)[轉載]VB托盤程序詳解(5)[轉載]