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)