; Невидимое окно, в котором просто есть системный трей
OpenWindow(0, 0, 0, 10, 10, "", #PB_Window_Invisible)

UsePNGImageDecoder()
AddSysTrayIcon(0, WindowID(0), LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/world.png"))

; Создайте всплывающее меню, которое будет отображаться в трее
CreatePopupImageMenu(0, #PB_Menu_SysTrayLook)
MenuItem(0, "О PureBasic...")
MenuBar()
MenuItem(1, "Выход")

; Назначьте меню иконке в трее
SysTrayIconMenu(0, MenuID(0))

Repeat
	Select WaitWindowEvent()
		Case #PB_Event_Menu
			Select EventMenu()
				Case 1 ; Выход
					RemoveSysTrayIcon(0)
					End
			EndSelect
	EndSelect
ForEver