EnableExplicit Define Handle If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) WebGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "C:\") Repeat Select WaitWindowEvent() Case #PB_Event_Gadget Select EventGadget() Case 1 Select EventType() Case #PB_EventType_DownloadEnd Handle = FindWindowEx_(GadgetID(1), 0, "Shell Embedding", 0) Handle = FindWindowEx_(Handle, 0, "SHELLDLL_DefView", 0) Handle = FindWindowEx_(Handle, 0, "SysListView32", 0) SendMessage_(Handle, #LVM_SETVIEW, #LV_VIEW_ICON, 0) SetWindowLongPtr_(Handle, #GWL_STYLE, GetWindowLongPtr_(Handle, #GWL_STYLE) | #LVS_NOCOLUMNHEADER) EndSelect EndSelect Case #PB_Event_CloseWindow End EndSelect ForEver EndIf