If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListViewGadget(1,10,10,0,0,#LBS_DISABLENOSCROLL)
  
  SetWindowLongPtr_(GadgetID(1),#GWL_STYLE,#WS_CHILD|#WS_VISIBLE|#WS_VSCROLL)
  ResizeGadget(1,#PB_Ignore,#PB_Ignore,480,230)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf