EnableExplicit Define EventID If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ScrollAreaGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), WindowWidth(0)-25, 1000, 50, 0) CloseGadgetList() SetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE) | #WS_EX_LEFTSCROLLBAR) SendMessage_(GadgetID(1), #WM_NCPAINT, 1, 0) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf