EnableExplicit Define a If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(1, 0, 0, 500, 360, "Spalte", 400, 0) For a=1 To 25;15 AddGadgetItem(1, -1, "Item " + Str(a), 0, 0) Next ButtonGadget(2, 10, 370, 200, 20, "Ist vertikale Scrollleiste sichtbar?", 0) Repeat Select WaitWindowEvent() Case #PB_Event_Gadget Select EventGadget() Case 2 If GetWindowLongPtr_(GadgetID(1), #GWL_STYLE) & #WS_VSCROLL Debug "Ja" Else Debug "Nein" EndIf EndSelect Case #PB_Event_CloseWindow End EndSelect ForEver EndIf