c$ = "начало"
For i = 1 To 512
c$ = c$ + CStr(i)
Next i
Set a = Form1.ListView1.ListItems.Add(, , "ыыы")
c$ = c$ + "конец"
a.SubItems(1) = c$
Sirik писал(а):У меня есть пример, который "подгоняет" ширину столбцов под ширину текста
Сейчас этот форум просматривают: Google-бот и гости: 49