Public Module SysTray
    Dim WithEvents SysTray As NotifyIcon
    Dim ContextMenu As ContextMenu
    Dim WithEvents MenuItemExit As MenuItem
 
    Public Sub Main()
        InitSystray()
    End Sub
 
    Private Sub InitSystray()        
        MenuItemExit = New MenuItem
        With MenuItemExit
            .Text = "Beenden"
            AddHandler .Click, AddressOf Exit_Click
        End With
 
        SysTray = New NotifyIcon()
        ContextMenu = New ContextMenu()
 
        ContextMenu.MenuItems.AddRange(New MenuItem() _
            {MenuItemExit})
 
        With SysTray
            .Icon = New Icon("tray_icon.ico")            
            .Text = "SysTray-Test"
            .ContextMenu = ContextMenu
            .Visible = True
        End With
    End Sub
 
    Private Sub Systray_DoubleClick(ByVal sender As Object, _
                ByVal e As System.EventArgs) Handles SysTray.DoubleClick
        MessageBox.Show("Doppelklick")
    End Sub
 
    Private Sub Exit_Click(ByVal sender As Object, _
             ByVal e As System.EventArgs) Handles MenuItemExit.Click
        Application.Exit()
        SysTray.Dispose()
    End Sub
End Module

- "Computers are like air conditioners. They stop working properly when you open Windows"