Attribute VB_Name = "Mission"
Option Explicit

Public Const WM_LBUTTONDOWN = &H201     '鼠標左鍵按下消息的代碼

Public Const WM_RBUTTONUP = &H205       '鼠標右鍵松開消息的代碼

Private Const NIM_ADD = &H0            '表示要往任務欄中加入圖標

Private Const NIM_DELETE = &H2         '刪除圖標

Private Const NIF_ICON = &H2           '允許圖標顯示

Private Const NIF_MESSAGE = &H1        '允許圖標消息轉發

Private Const NIF_TIP = &H4            '允許圖標顯示圖標提示字符串

Private Type NOTIFYICONDATA            '通知任務欄圖標狀態
        
  cbSize As Long                       '本結構的長度
        
  hWnd As Long                         '往任務欄安裝圖標的應用程序的窗體句柄,系統根據此發送消息給相應的應用程序
        
  uid As Long                          '圖標的唯一標識,由安裝圖標的應用程序確定
        
  uFlags As Long                       '圖標將接受或表示什么樣的行為
         
  uCallbackMessage As Long             '發給應用程序的回調消息,應當避免同系統預定義的消息相同,應大于WM_USER
        
  hIcon As Long                        '圖標句柄,即欲在任務欄中顯示的圖標
        
  szTip As String * 64                '如果圖標被允許顯示TIP的話,那么當鼠標停留在任務欄圖標上一段時間,將顯示該串
        
End Type

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long '圖標操作

Public Function Icon_Add(iHwnd As Long, stips As String, hIcon As Long, IconId As Long) As Long

  Dim IconVa As NOTIFYICONDATA
  
  With IconVa
  
    .hWnd = iHwnd
    
    .szTip = stips + Chr$(0)
    
    .hIcon = hIcon
    
    .uid = IconId
    
    .uCallbackMessage = WM_LBUTTONDOWN
    
    .cbSize = Len(IconVa)
    
    .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
 
  End With
  
  Icon_Add = Shell_NotifyIcon(NIM_ADD, IconVa)

End Function

Public Function Icon_Del(iHwnd As Long, lIndex As Long) As Long

 Dim IconVa As NOTIFYICONDATA
 
 Dim l As Long
 
 With IconVa
 
  .hWnd = iHwnd
  
  .uid = lIndex
  
  .cbSize = Len(IconVa)
  
 End With
 
 Icon_Del = Shell_NotifyIcon(NIM_DELETE, IconVa)
 
End Function