Использование API - помогите...

[Yuri_S]

Никогда не имел с этим дела, поэтому и вопрос тупой:
есть модуль с содержащейся API, для роботы с иконкой программы в трее.

Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As _ Long, lpData As NOTIFYICONDATA) As Integer
Public Const NIM_ADD = 0
Public Const NIM_MODIFY = 1
Public Const NIM_DELETE = 2
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4
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

Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long,_ tip As String) As Long
Dim nidTemp As NOTIFYICONDATA
nidTemp.cbSize = Len(nidTemp)
nidTemp.hWnd = hWnd
nidTemp.uID = 0&
nidTemp.uFlags = NIF_ICON Or NIF_TIP
nidTemp.uCallbackMessage = 0&
nidTemp.hIcon = Icon
nidTemp.szTip = tip & Chr$(0)
SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp)
End Function

Вопрос:каким образом используя все это, можно вывести менюшку Popup, при щелчке на иконку в трее?

[MEMBER]

Поиск - он рулит...
Писал приладу по другому случаю, но там есть работа с меню.