CreateImage(1,60,30,32)
StartDrawing(ImageOutput(1))
  Box(0,0,60,30,RGB(0,0,255))
  DrawText(10,10,"Item 1",RGB(255,255,255),RGB(0,0,255))
StopDrawing()

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateMenu(0,WindowID(0))
    MenuTitle("Menü")
      MenuItem(1,"Item 1",0)
      MenuItem(2,"Item 2",0)
      MenuItem(3,"Item 3",0)
      MenuItem(4,"Item 4",0)
      MenuItem(5,"Item 5",0)
  EndIf
  
  mii.MENUITEMINFO\cbSize = SizeOf(MENUITEMINFO)
  mii\fMask = #MIIM_TYPE
  mii\fType = #MFT_BITMAP
  mii\dwTypeData = ImageID(1)
  SetMenuItemInfo_(MenuID(0),1,0,mii)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf