EnableExplicit Define EventID Define LV_Header Define RECT.RECT Define a If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "Spalte 1", 200, 0) AddGadgetColumn(1, 1, "Spalte 2", 200) For a=1 To 10 AddGadgetItem(1, -1, "Item " + Str(a) + Chr(10) + "Item", 0, 0) Next LV_Header = SendMessage_(GadgetID(1), #LVM_GETHEADER, 0, 0) GetWindowRect_(LV_Header, @RECT) Debug "Höhe: " + Str(RECT\Bottom-RECT\Top) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf