;Autor: gnozal

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,WindowWidth(0)-20,WindowHeight(0)-20,"Spalte 1",150,#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines)
  AddGadgetColumn(1,1,"Spalte 2",150)
  AddGadgetColumn(1,2,"Spalte 3",150)
  
  SendMessage_(GadgetID(1),#LVM_SETEXTENDEDLISTVIEWSTYLE,#LVS_EX_GRIDLINES,#LVS_EX_GRIDLINES)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf