EnableExplicit Define a If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ExplorerListGadget(1, 0, 0, 500, 360, "C:\", 0) 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