;Добавим к иконке меню
CreatePopupImageMenu(26, #PB_Menu_ModernLook) 
MenuItem(1, "Развернуть") 
MenuItem(2, "Свернуть") 
MenuBar() 
MenuItem(300, "Выход")

Repeat
  Event =  WaitWindowEvent() 
  Window = EventWindow() 
  Gadget = EventGadget()

  If Event = #PB_Event_SysTray 
    If EventType() = #PB_EventType_RightClick ; Обработка правой кнопки мышки 
      DisplayPopupMenu(26, WindowID(0)) ; показ вспывающего меню 
    EndIf 
  EndIf

If Event = #PB_Event_Menu 
    Menu=EventMenu()
    Select Menu 
      Case 1 ;"Развернуть"  
        HideWindow(0, 0)
        SetWindowState(0, #PB_Window_Normal)     
      Case 2 ;"Свернуть" 
        HideWindow(0, 1)
      Case 300 ;"Выход"
        Break
    EndSelect
  EndIf

If Event = #PB_Event_SysTray 
If EventType() = #PB_EventType_RightClick ; Обработка правой кнопки мышки 
HideWindow(0, 1); Свернуть
EndIf 
If EventType() = #PB_EventType_LeftClick; Обработка левой кнопки мышки
HideWindow(0, 0); Развернуть
SetWindowState(0, #PB_Window_Normal) 
EndIf
EndIf