EnableExplicit If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ExplorerListGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "C:\", 0) SendMessage_(GadgetID(1), #LVM_SETBKCOLOR, 0, RGB(255, 0, 0)) SendMessage_(GadgetID(1), #LVM_SETTEXTBKCOLOR, 0, RGB(255, 0, 0)) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf