If CreatePopupMenu(0)      ; creation of the pop-up menu begins...
  MenuItem(1, "Open")      ; You can use all commands for creating a menu
  MenuItem(2, "Save")      ; just like in a normal menu...
  MenuItem(3, "Save as")
  MenuItem(4, "Quit")
  MenuBar()
  OpenSubMenu("Recent files")
  MenuItem(5, "PureBasic.exe")
  MenuItem(6, "Test.txt")
  CloseSubMenu()
EndIf

If OpenWindow(0, 200, 200, 200, 120, "Popup-Menu Example")
  
  ButtonGadget(1,20,20,100,24,"Кнопка")
  
  Repeat
    Select WaitWindowEvent()     ; check for window events
      Case #PB_Event_Gadget
        If EventGadget() = 1
          DisplayPopupMenu(0, WindowID(0))  ; now display the popup-menu
        EndIf
      Case #PB_Event_Menu        ; an item of the popup-menu was clicked
        Select EventMenu()     ; get the clicked menu item...
          Case 1 : Debug "Menu: Open"
          Case 2 : Debug "Menu: Save"
          Case 3 : Debug "Menu: Save as"
          Case 4 : Quit = 1
          Case 5 : Debug "Menu: PureBasic.exe"
          Case 6 : Debug "Menu: Text.txt"
        EndSelect
      Case #PB_Event_CloseWindow
        Break
    EndSelect
  ForEver
EndIf

Structure LVBKIMAGE
  ulFlags.l
  hbm.l
  pszImage.l
  cchImageMax.l
  xOffsetPercent.l
  yOffsetPercent.l
EndStructure

#LVBKIF_STYLE_NORMAL = 0
#LVBKIF_SOURCE_URL = 2
OleInitialize_(0)
If OpenWindow(0, 100, 100, 800, 600, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Invisible)
   ListIconGadget(0, 0, 0, 800, 600, "Name", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
   SetGadgetAttribute(0, #PB_ListIcon_DisplayMode, #PB_ListIcon_LargeIcon)
   SetGadgetColor(0,#PB_Gadget_FrontColor,$FFFFFF)
   For i=1 To 70
     AddGadgetItem(0, i, "Иконка "+Str(i), ExtractIcon_(0,"shell32.dll",i))
   Next i
   
   Image.s=GetPathPart(ProgramFilename())+"Image.jpg"
   lbk.LVBKIMAGE
   lbk\ulFlags = #LVBKIF_STYLE_NORMAL|#LVBKIF_SOURCE_URL
   lbk\pszImage = @Image
   SendMessage_(GadgetID(0), #LVM_SETBKIMAGE, 0, lbk)
   
   HideWindow(0,0)
   
   Repeat
     Event = WaitWindowEvent()
   Until Event = #PB_Event_CloseWindow
   
 EndIf