If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  windowex = CreateWindowEx_(#WS_EX_CLIENTEDGE,"Button","",#WS_VISIBLE|#WS_POPUP|#BS_OWNERDRAW,100,100,100,20,WindowID(0),0,GetModuleHandle_(0),0)
  
  If CreateMenu(1,windowex)
    MenuTitle("Menü")
      MenuItem(1,"Item",0)
  EndIf
  
  SetParent_(windowex,WindowID(0))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf