hWnd = OpenWindow(1,100,100,400,300,#PB_Window_SystemMenu,"ListBox Sort") CreateGadgetList(hWnd) ListViewGadget(1, 10,10,280,280,#LBS_SORT | #LBS_NOINTEGRALHEIGHT | #LBS_HASSTRINGS) StringGadget (2,300,50, 90, 20, "Type here") ButtonGadget (3,320,75, 50, 20, "Add") Repeat Select WaitWindowEvent() Case #PB_EventCloseWindow: End Case #PB_EventGadget Select EventGadgetID() Case 1 ; ListView If EventType() = #PB_EventType_LeftDoubleClick ; show the selected listview entry on doubleclick MessageRequester("INFO",GetGadgetItemText(1,GetGadgetState(1),0),0) EndIf Case 3 ; Button: Add SendMessage_( GadgetID(1), #LB_ADDSTRING, 0, GetGadgetText(2)) EndSelect EndSelect ForEver ; ExecutableFormat= ; FirstLine=1 ; EOF