Private tray As SystemTray 'Process_Globals
Private icon1 As TrayIcon 'Process_Globals
Private LogoImage As Image 'Process_Globals
LogoImage = fx.LoadImage(File.DirAssets, "favicon.png")
tray.Initialize
Dim MenuItems() As String = Array As String("Push Changes", "-", "Exit")
icon1.Initialize("icon1", LogoImage, MenuItems)
icon1.ToolTip = "Changes in queue: " & GetChangeCount
tray.AddTrayIcon(icon1)