EnableExplicit

Define EventID
Define a

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
  ListIconGadget(1,0,0,0,0,"Spalte",200,0)
  For a=1 To 100
    AddGadgetItem(1,-1,"Eintrag "+Str(a),0,0)
  Next
  
  ExplorerListGadget(2,0,0,0,0,"C:\",0)
  
  SplitterGadget(3,0,0,WindowWidth(0),WindowHeight(0),1,2,0)
  
  SetWindowLongPtr_(WindowID(0), #GWL_STYLE, GetWindowLongPtr_(WindowID(0), #GWL_STYLE) | #WS_CLIPCHILDREN | #WS_CLIPSIBLINGS)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID=#PB_Event_SizeWindow
      ResizeGadget(3,#PB_Ignore,#PB_Ignore,WindowWidth(0),WindowHeight(0))
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf