If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(1,10,10,400,20,"Drücken Sie die rechte Maustaste, um das Popup-Menü zu öffnen.",0)
  
  If CreatePopupMenu(1)
    For a=1 To 5
      MenuItem(a,"Test-Item "+Str(a))
    Next
  EndIf
  
  bold.MENUITEMINFO
  bold\cbSize=SizeOf(bold)
  bold\fMask=#MIIM_STATE
  bold\fState=#MFS_HILITE
  SetMenuItemInfo_(MenuID(1),2,#True,bold)
Repeat
  If GetAsyncKeyState_(#VK_RBUTTON)<>0
    DisplayPopupMenu(1,WindowID(0))
  EndIf 
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf