Как поместить иконку на панель задач Windows?

Как паместить иконку на панель задач, туда, где регулятор громкости, и присвоить ему простенькую менюшку типа 'завершить работу' 'приостановить работу' 'об авторе'?
Спасибо

Доброго времени суток.

Вот Вам код. Делал когдато я это. Доработайте если нужно, хотя и так работает вполне.
Просто создайте новый UserControl и скопируйте в него этот код.

Желаю удачи.

===========
[code]
Option Explicit

Public Event LeftBtnUp()
Public Event DblClick()
Public Event Click()
Public Event RightBtnUp()

'Default Property Values:
Const m_def_ToolTipText = ''
'Property Variables:
Dim m_ToolTipText As String

'user defined type required by Shell_NotifyIcon API call
Private 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

'constants required by Shell_NotifyIcon API call:
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201 'Button down
Private Const WM_LBUTTONUP = &H202 'Button up
Private Const WM_LBUTTONDBLCLK = &H203 'Double-click
Private Const WM_RBUTTONDOWN = &H204 'Button down
Private Const WM_RBUTTONUP = &H205 'Button up
Private Const WM_RBUTTONDBLCLK = &H206 'Double-click

Private Declare Function SetForegroundWindow Lib 'user32' (ByVal hwnd As Long) As Long
Private Declare Function Shell_NotifyIcon Lib 'shell32' Alias 'Shell_NotifyIconA' (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private nid As NOTIFYICONDATA

Public Sub HideTrayIcon()
'this removes the icon from the system tray
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Public Sub UpdateTrayIcon()
'this removes the icon from the system tray
With nid
.cbSize = Len(nid)
.hwnd = UserControl.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = UserControl.Picture
.szTip = m_ToolTipText & vbNullChar
End With
Shell_NotifyIcon NIM_MODIFY, nid
End Sub

Public Property Get Icon() As Picture
Set Icon = UserControl.Picture
End Property

Public Property Set Icon(ByVal New_Icon As Picture)
Set UserControl.Picture = New_Icon
PropertyChanged 'Icon'
End Property

Public Sub ShowTrayIcon()
UserControl.Refresh
With nid
.cbSize = Len(nid)
.hwnd = UserControl.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = UserControl.Picture
.szTip = m_ToolTipText & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid

End Sub

Public Property Get ToolTipText() As String
ToolTipText = m_ToolTipText
End Property

Public Property Let ToolTipText(ByVal New_ToolTipText As String)
m_ToolTipText = New_ToolTipText
PropertyChanged 'ToolTipText'
End Property

'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
m_ToolTipText = m_def_ToolTipText
Set Me.Icon = LoadPicture('')
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'this procedure receives the callbacks from the System Tray icon.
Dim msg As Long

'the value of X will vary depending upon the scalemode setting
If UserControl.ScaleMode = v

0