frmStat.lstStatList - это ЛистБокс
В frmStat.txtStatWor.Text хранится число строк ListBox'a
P.P.S. А как узнать кол-во элементов ListBox, а то я вычисляю их по другим данным?
- Код: Выделить всё
Open "c:\zzz.html" For Output As #1
Print #1, "<html><head><title>Ля-Ля-Ля</title></head>"
Dim i As Long
For i = 0 To Val((frmStat.txtStatWor.Text)) - 1
Print #1, "<p>" & frmStat.lstStatList.List(i) & "</p>"
Next i
Print #1, "</html>"
Close #1