Я например могу сделать так:
- Код: Выделить всё
Private Sub UserForm_Click()
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
For i = 0 To 3
ListBox1.AddItem
Next i
For i = 0 To 3
ListBox1.Column(i, i) = i
Next i
End Sub
Из этого следует, что свойство Column(Column,Index) позволяет изменять значения колонок, свойство ColumnCount - отвечает за их число. А чтобы не было проблем с числом рядов используем метод AddItem.
Непонятно в чём проблема.