как по размеру содержимого определять ширину столбца в ListView?

[MrGB]

пробовал

If rec.RecordCount <> 0 Then
        Do While Not rec.EOF
          i = i + 1
            key = str(i)
            indexkey = Val(key)
            listView1.ListItems.Add indexkey, , i
            listView1.ListItems(indexkey).SubItems(1) = rec("account_num").Value
            listView1.ColumnHeaders(2).Width = TextWidth(rec("account_num").Value)
         
          rec.MoveNext
        Loop
   End If

TextWidth - не определяется(. Как можно осуществить Autoresize?

и можно ли в Listiew сделать следующую структуру столбцов:

столбец1
/ | \
ст1_1 ст1_2 ст1_3

[Teslenko_EA]

Здравствуйте MrGB.
"..определять ширину столбца .." можно попытаться подобной конструкцией:

Const g = 1 'множитель значения ширины, задавать экспериментально
Dim s$, j%
    Do Until rec.EOF
        i = i + 1
        Key = Str(i) '?
        indexkey = Val(Key) '?
        Set o = listView1.ListItems.Add(indexkey, , i)
        s = rec("account_num") & "": o.SubItems(1) = s
        j = IIf(Len(s) > j, Len(s), j)
        rec.MoveNext
    Loop
    listView1.ColumnHeaders(2).Width = j * g

но эффективна она будет только в случае применения моноширинного шрифта, иначе все усилия бесполезны.
Можно так-же ориентироваться на размер поля "account_num" используемого в рекордсете.
Но лучше установку ширины столбца "отдать на откуп" пользователю, сохраняя после окончания работы заданные пользователем размеры, и устанавливая их при загрузке, если сохраненный размер находится в пределах допустимого диапазона, иначе значение По умолчанию.

Евгений.