在托盘上显示Balloon Tooltip

在托盘上显示Balloon Tooltip(2)  
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

Public Const NIF_STATE = &H8
Public Const NIF_INFO = &H10
 
Public Const NIS_HIDDEN = &H1
Public Const NIS_SHAREDICON = &H2
 

Public Const NIIF_NONE = &H0
Public Const NIIF_WARNING = &H2
Public Const NIIF_ERROR = &H3
Public Const NIIF_INFO = &H1

Public nfIconData As NOTIFYICONDATA

2.Form1的代码：
Option Explicit

Private Sub Form_Load()
    With nfIconData
        .cbSize = Len(nfIconData)
        .hwnd = Me.hwnd
        .uId = vbNull
        .uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .hIcon = Me.Icon
        .szTip = "你的小消息可以放在此..." & vbNullChar
        .dwState = 0
        .dwStateMask = 0
        .szInfo = "这是一个Balloon Style Tool-tip！又一个小技巧可以应用了       " & Chr(13) & "：）" & vbNullChar
        .uTimeoutOrVersion = 15000
        .szInfoTitle = "哈哈，看到了么" & vbNullChar
        .dwInfoFlags = NIIF_INFO
    End With

     Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub

Private Sub Form_Unload(Cancel As Integer)
     Call Shell_NotifyIcon(NIM_DELETE, nfIconData)