EnableExplicit Define EventID If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListViewGadget(1, 10, 10, 480, 380, 0) AddGadgetItem(1, -1, "Ein Eintrag", 0, 0) AddGadgetItem(1, -1, "Und noch ein Eintrag", 0, 0) AddGadgetItem(1, -1, "Test-Eintrag", 0, 0) SetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE) | #WS_EX_LAYOUTRTL) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf