EnableExplicit Define EventID 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, WindowWidth(0)-320, WindowHeight(0)-30, 150, 20, "CheckBox-Flag aktivieren", 0) ButtonGadget(3, WindowWidth(0)-160, WindowHeight(0)-30, 150, 20, "CheckBox-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_CHECKBOXES) 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