If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) EditorGadget(1,10,10,480,230,0) For a=1 To 50 AddGadgetItem(1,-1,"Teststring",0,0) Next GetScrollRange_(GadgetID(1),#SB_VERT,@min,@max) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 1 If GetScrollPos_(GadgetID(1),#SB_VERT) >= max-GadgetHeight(1) MessageRequester("","Scrollende erreicht.",0) End EndIf EndSelect EndIf If EventID=#PB_Event_CloseWindow Quit=1 EndIf Until Quit=1 EndIf