Enumeration;- Windows 
  #MainWindow 
EndEnumeration 
Enumeration;- Gadgets 
  #ListIcon01 
  #ListIcon02 
  #Splitter01 
EndEnumeration 

Procedure WindowCallBack(Window, message, wParam, lParam);- Window Callback 
  Shared ListIconGadget_1
  ReturnValue = #PB_ProcessPureBasicEvents 
  If message = #WM_NOTIFY 
    *nmHEADER.HD_NOTIFY = lParam 
    If *nmHEADER\hdr\hwndFrom = ListIconGadget_1
      If  *nmHEADER\hdr\code = #LVN_COLUMNCLICK
          *pnmv.NM_LISTVIEW = lParam 
          AktColumn  = *pnmv\iSubItem 
          Debug AktColumn
          Beep_(600,50) 
      EndIf
    EndIf
  EndIf
  ProcedureReturn ReturnValue 
EndProcedure 

OpenWindow(#MainWindow,0,0,640,480,"fixed & hidden columns / auto resize",#PB_Window_SystemMenu|#PB_Window_WindowCentered|#PB_Window_SizeGadget) 
  ListIconGadget_1=ListIconGadget(#ListIcon01,10,10, WindowWidth(#MainWindow)-20, WindowHeight(#MainWindow)-20, "click" ,70,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect) 
    AddGadgetColumn(#ListIcon01,1,"fixed",50) 
    AddGadgetColumn(#ListIcon01,2,"click",50) 
    AddGadgetItem(#ListIcon01,-1,"a long text ... a long text"+Chr(10)+"BB"+Chr(10)+"CC"+Chr(10)+"DD"+Chr(10)) 
    AddGadgetItem(#ListIcon01,-1,"AA"+Chr(10)+"BB"+Chr(10)+"a long text ... a long text"+Chr(10)+"DD"+Chr(10)) 
    SetWindowCallback(@WindowCallBack())
  Repeat 
    EventID.l = WaitWindowEvent()    
  Until EventID = #PB_Event_CloseWindow

Case #ListIcon_3
        If type=#PB_EventType_LeftDoubleClick
          NewWindow()
        EndIf