系统托盘程序设计教程：使用VB与API函数Shell_NotifyIcon

托盘程序详解
    很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标，它作为程序运行的一个标志，我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序，我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标；而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。 
为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：
'====================================================================================================
'====================================================================================================
'---------------------------------------------
'           使用系统托盘程序演示
'程序说明：
'   这是一个比较完整的使用系统托盘的程序实例，包括
'了：添加托盘图标，删除托盘图标，动态改变托盘图标，
'为托盘图标添加浮动提示信息，实现托盘图标的鼠标右键
'菜单等内容。
'-------名称-------------------作用------------
'       Form1                   主窗体
'       mnuFile,mnuFileExit     文件菜单，菜单项
'       mnuTray,mnuTrayClose... 托盘区右键菜单，菜单项
'---------------------------------------------

Option Explicit

'LastState变量的作用是标示主窗体原有状态
Public LastState As Integer

'【VB声明】
'  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'【说明】
'  调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum，
'  SendMessageByString是该函数的“类型安全”声明形式
'【返回值】

'  Long，由具体的消息决定

'【参数表】
'  hwnd -----------  Long，要接收消息的那个窗口的句柄

'  wMsg -----------  Long，消息的标识符

'  wParam ---------  Long，具体取决于消息

'  lParam ---------  Any，具体取决于消息
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'表示发送的是系统命令
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&

'当主窗体加载时
Private Sub Form_Load()
    
    '窗体的WindowState属性，返回或设置一个值，该值用来指定在运行时窗体窗口的可视状态
    'vbNormal    0   （缺省值）正常 。
    'VbMinimized 1   最小化（最小化为一个图标）
    'VbMaximized 2   最大化（扩大到最大尺寸）
    If WindowState = vbMinimized Then
        LastState = vbNormal
    Else
        LastState = WindowState
    End If