Download... the project. (30 kb)

Yes, there are a zillion examples on how to do tray icons (including another one on this web site). What makes Brian's component different? Several reasons:

1. It supports Windows XP style baloon tooltips, as evidenced by the screen shot below
2. It doesn't rely on forms or other half-baked solutions - it is all API based.
3. It provides a clean object-based design and an event-based notification system.
4. The component comes with the source code

Below is an example of how easy it is to create a baloon tooltip with this component. Start a new standard project and paste this into the form. Oh, btw baloon tooltips only work on Windows XP or higher.

Option Explicit
Private WithEvents sysTray As SystemTray.Application

Private Sub Form_Load()
    Set sysTray = New SystemTray.Application
    Call sysTray.CreateIcon(App.Path & "\Trffc10c.ico", "My Icon")
    Call sysTray.ShowBalloon("Hello", &H1, "www.braxtel.com")
End Sub

In addition to the tray functionality, the component includes a really useful TaskBar class, which returns information on what the TaskBar is aligned to (top, bottom, wherever), whether AutoHide is on, whether AlwaysOnTop is on, its Height, Width, etc...

Download... the project. (30 kb).

To get in touch with the author of this example, email Brian Yule at byule at PembrokeTechnology.com