If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ListIconGadget(1,10,10,480,200,"",100,0) ButtonGadget(2,390,220,100,20,"Aktualisieren",0) SetGadgetAttribute(1,#PB_ListIcon_DisplayMode,#PB_ListIcon_LargeIcon) For a=1 To 10 AddGadgetItem(1,-1,"Item "+Str(a),0,0) Next RemoveGadgetItem(1,5) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 2 SendMessage_(GadgetID(1),#LVM_ARRANGE,#LVA_ALIGNTOP,0) EndSelect EndIf If EventID=#PB_Event_CloseWindow Quit=1 EndIf Until Quit=1 EndIf