mostar(托盘如何制作？）

Question

看看一段例子：
Private Sub Icon_Add()
        Dim lon As Long
        Dim ano As NOTIFYICONDATA
        Const NIM_ADD = 0
        Const NIM_MODIFY = 1
        Const NIM_DELETE = 2
        Const NIF_MESSAGE = 1
        Const NIF_ICON = 2
        Const NIF_TIP = 4
        Const WM_LBUTTONDOWN = &H201
        
   '为图标添加提示行
        ano.szTip = "添加托盘图标" + Chr(0)
        ano.hwnd = Me.hwnd
        ano.uID = 0
        ano.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        ano.hIcon = Me.Icon
        ano.cbSize = Len(ano)
    '将鼠标右键的消息作为回调消息
        ano.uCallbackMessage = WM_LBUTTONDOWN
        lon = Shell_NotifyIcon(NIM_ADD, ano)
End Sub