If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateMenu(1,WindowID(0))
    MenuTitle("Menü 1")
      MenuItem(1,"Menuitem",0)
    MenuTitle("Menü 2")
      MenuItem(1,"Menuitem",0)
    MenuTitle("Menü 3")
      MenuItem(1,"Menuitem",0)  
  EndIf
  
  MessageRequester("","Anzahl der Menü-Titel: "+Str(GetMenuItemCount_(MenuID(1))),0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf