高分求一段VB代码

求一段VB语言代码，要求当程序最小化之后不会在任务栏出现而是像千千静听之类的软件最小化到系统托盘，同时点击或鼠标靠近时能出现选择菜单。
请高手详细说明代码，最好在给代码时能加上不少的注释！谢谢！

要用到一个API，Shell_NotifyIcon来显示托盘图标，还要定义一个Type NOTIFYICONDATA，我把主体结构给你，菜单你自己去设计一个。

先建个模块，把以下代码放进去：

Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1

Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4

Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_MOUSEMOVE = &H200
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205

Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long