EnableExplicit Define EventID Define a If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ExplorerListGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "C:\", 0) ButtonGadget(2, WindowWidth(0)-480, WindowHeight(0)-30, 230, 20, "Zwischenlinien-Flag aktivieren", 0) ButtonGadget(3, WindowWidth(0)-240, WindowHeight(0)-30, 230, 20, "Zwischenlinien-Flag deaktivieren", 0) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_Gadget Select EventGadget() Case 2 SendMessage_(GadgetID(1), #LVM_ENSUREVISIBLE, 0, 0) SendMessage_(GadgetID(1), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, #LVS_EX_GRIDLINES) Case 3 SendMessage_(GadgetID(1), #LVM_ENSUREVISIBLE, 0, 0) SendMessage_(GadgetID(1), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, 0) EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf