很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标，它作为程序运行的一个标志，我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序，我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标；而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。
    
    程序(附后)用到了Shell_NotifyIcon、SendMessage、CallWindowProc、SetWindowLong等API函数，其中Shell_NotifyIcon是主要的函数，它用来添加、删除、更改系统托盘区(taskbar status area)的图标，所以我们先来看看这个函数的声明和参数：
    
    使用API函数之前必须先在程序中声明如下：
    
    Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    
    
    其中各参数的意义如下表:
    
    参数： 意义
    dwMessage 为消息设置值，它可以是以下的几个常数值：0、1、2
    NIM_ADD = 0   加入图标到系统状态栏中
    NIM_MODIFY = 1 修改系统状态栏中的图标
    NIM_DELETE = 2 删除系统状态栏中的图标
    
    LpData 用以传入NOTIFYICONDATA数据结构变量，其结构如下所示：
    
    Type NOTIFYICONDATA
    
    cbSize As Long               需填入NOTIFYICONDATA数据结构的长度
    HWnd As Long                 设置成窗口的句柄
    Uid As Long                  为图标所设置的ID值
    UFlags As Long               设置uCallbackMessage,hIcon,szTip是否有效
    UCallbackMessage As Long     消息编号
    HIcon As Long                显示在状态栏上的图标
    SzTip As String * 64         提示信息
    End Type
    
    返回值 Long，非零表示成功，零表示失败
    
    在使用这个API函数之前我们应该先定义结构类型NOTIFYICONDATA：
    
    Public 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
    
    然后定义一个NOTIFYICONDATA的变量TheData来记录设置托盘图标的数据
    
    Private TheData As NOTIFYICONDATA
    
    
    
    这时我们就可以使用这个函数来设置系统托盘图标了，具体方法如下：
    
    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，设置为“修改模式”
    
    
    通过以上几段代码我们就能根据自己需要添加、删除、更改系统托盘图标，并能添加系统图标上的浮动提示信息。但这时的托盘图标是孤立的，我们并不能利用它来控制应用程序的行为，怎么办呢？别急，请往下看……
    
    以上我们就取得并处理了来自托盘图标的消息，现在的问题是在鼠标右键菜单弹出后，怎么控制程序主窗体的状态，这时我们需要用到SendMessage函数来向主窗体发送最大化、最小化、关闭、移动等消息，具体的代码实现如下，其中HWnd是主窗体的句柄，WM_SYSCOMMAND表示发送的是系统控制类的消息，SC_MOVE、SC_SIZE、SC_RESTORE便是要发送的消息了：
    
    '托盘图标右键菜单上的“移动”项被点击时
    Private Sub mnuTrayMove_Click()
    SendMessage HWnd, WM_SYSCOMMAND, SC_MOVE, 0&
    End Sub
    '托盘图标右键菜单上的“恢复”项被点击时
    Private Sub mnuTrayRestore_Click()
    SendMessage HWnd, WM_SYSCOMMAND, SC_RESTORE, 0&
    End Sub
    '托盘图标右键菜单上的“退出”项被点击时
    Private Sub mnuTraySize_Click()
    SendMessage HWnd, WM_SYSCOMMAND, SC_SIZE, 0&
    End Sub
    
    最后要提醒你，在程序退出时一定要把窗口过程的地址恢复为默认值，同时把托盘图标移去哦