EnableExplicit

Define EventID
Define String$=Space(255)
Define TC_ITEM.TC_ITEM
Define ItemTotal
Define a

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  PanelGadget(1,0,0,500,400)
  AddGadgetItem(1,-1,"123 Test ABC",0,0)
  AddGadgetItem(1,-1,"ABC 123",0,0)
  AddGadgetItem(1,-1,"ABC Test 123",0,0)
  AddGadgetItem(1,-1,"Test",0,0)
  
  CloseGadgetList()
  
  ItemTotal = SendMessage_(GadgetID(1),#TCM_GETITEMCOUNT,0,0)
  
  TC_ITEM.TC_ITEM
  TC_ITEM\Mask=#TCIF_TEXT
  TC_ITEM\pszText=@String$
  TC_ITEM\cchTextMax=255
  
  For a=1 To ItemTotal
    SendMessage_(GadgetID(1),#TCM_GETITEM,a-1,@TC_ITEM)
    Debug String$
    
  Next
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf