EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateMenu(1,WindowID(0))
    MenuTitle("Datei")
    MenuTitle("Bearbeiten")
    MenuTitle("Hilfe")
    
  EndIf
  
  SetMenuDefaultItem_(MenuID(1),1,1)
  ModifyMenu_(MenuID(1),1,#MF_BYPOSITION,1,"Bearbeiten")
  DrawMenuBar_(WindowID(0))
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf