If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateMenu(1,WindowID(0))
    MenuTitle("Menü")
      For a=1 To 8
        MenuItem(a,"Menuitem "+Str(a),0)
      Next
  EndIf
  
  ModifyMenu_(MenuID(1),5,#MF_MENUBARBREAK,5,@"Menuitem 5")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf