Where i can find a exemple of systemtray

[mags]

i hope this time they work

Private Sub AddIconToTray() 'Adds an icon to the taskbar notification area 

With mtIconData 
.cbSize = Len(mtIconData) 
.hWnd = Me.hWnd 'Use the form to receive callback messages. 
.uCallbackMessage = WM_MOUSEMOVE 'Tell icon to send MouseMove messages. 
.uID = 1& 'Application defined identifier 
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE 
.hIcon = imgTrayIcon(0).Picture 'Initial icon 
.szTip = "ToolTipText" & Chr$(0) 'Initial tooltip for icon 
If Shell_NotifyIcon(NIM_ADD, mtIconData) = 0 Then 'Create icon in tray 
MsgBox "Unable to add icon to system tray!" 
End If 
End With 

End Sub