;Autor: Fluid Byte

EnableExplicit

Define lrc.RECT

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Spalte",400,0)
  
  AddGadgetItem(1,-1,"Test-Item",0,0)
  
  lrc.RECT
  lrc\left = #LVIR_LABEL
  
  SendMessage_(GadgetID(1),#LVM_GETITEMRECT,0,lrc)
  
  MessageRequester("","Item-Höhe: "+Str(lrc\bottom - lrc\top),0)
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf