Attribute VB_Name = "ModSysTray"
'*********************************************************
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_SYSCOMMAND = &H112
Public Const SC_RESTORE = &HF120&

Public LastState As Integer '保留原窗口狀態(tài)

'---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 標(biāo)識符之一----------
Public Const NIM_ADD = &H0 '在任務(wù)欄中增加一個圖標(biāo)
Public Const NIM_DELETE = &H2 '刪除任務(wù)欄中的一個圖標(biāo)
Public Const NIM_MODIFY = &H1 '修改任務(wù)欄中個圖標(biāo)信息

Public Const NIF_MESSAGE = &H1 'NOTIFYICONDATA結(jié)構(gòu)中uFlags的控制信息
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

Public Const WM_MOUSEMOVE = &H200 '當(dāng)鼠標(biāo)指針移至圖標(biāo)上

Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONUP = &H205

Public Type NOTIFYICONDATA
  cbSize As Long '該數(shù)據(jù)結(jié)構(gòu)的大小
  hWnd As Long '處理任務(wù)欄中圖標(biāo)的窗口句柄
  uID As Long '定義的任務(wù)欄中圖標(biāo)的標(biāo)識
  uFlags As Long '任務(wù)欄圖標(biāo)功能控制，可以是以下值的組合（一般全包括）
  'NIF_MESSAGE 表示發(fā)送控制消息；
  'NIF_ICON表示顯示控制欄中的圖標(biāo)；
  'NIF_TIP表示任務(wù)欄中的圖標(biāo)有動態(tài)提示。
  uCallbackMessage As Long '任務(wù)欄圖標(biāo)通過它與用戶程序交換消息，處理該消息的窗口由hWnd決定
  hIcon As Long '任務(wù)欄中的圖標(biāo)的控制句柄
  szTip As String * 64 '圖標(biāo)的提示信息
  szInfoTitle As String * 64
End Type