EnableExplicit

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateMenu(0,WindowID(0))
    MenuTitle("Menü 1")
      MenuItem(1,"Item",0)
    MenuTitle("Menü 2")
      MenuItem(2,"Item",0)
  EndIf
  
  EnableMenuItem_(GetMenu_(WindowID(0)),0,#MF_BYPOSITION | #MF_GRAYED)
  DrawMenuBar_(WindowID(0))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf