EnableExplicit Define a If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "Spalte", WindowWidth(0)-50, 0) For a=1 To 100 AddGadgetItem(1, -1, "Item", 0, 0) Next ButtonGadget(2, WindowWidth(0)-160, WindowHeight(0)-30, 150, 20, "Scrollposition ermitteln", 0) Repeat Select WaitWindowEvent() Case #PB_Event_Gadget Select EventGadget() Case 2 Debug GetScrollPos_(GadgetID(1), #SB_VERT) EndSelect Case #PB_Event_CloseWindow End EndSelect ForEver EndIf