EnableExplicit Define EventID Define a Define POINT.POINT If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ExplorerListGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "C:\", 0) ;Zur 3. Zeile scrollen SendMessage_(GadgetID(1), #LVM_GETITEMPOSITION, 3-2, POINT) SendMessage_(GadgetID(1), #LVM_SCROLL, 0, POINT\y) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf