有个问题，请各位大虾进来一观

Question

Columns 属性
      返回或设置一个值，以决定 ListBox 控件是水平还是垂直滚动、以及如何显示列中的项目。如果水平滚动，则 Columns 属性决定显示多少列。语法object.Columns [= number]Columns 属性语法包含下面部分：部分 描述 
Object 对象表达式，其值是“应用于”列表中的一个对象。 
Number 一个整型值，指定控件如何滚动、以及列中的项目如何排列，“设置值”中有详细描述。 
设置值number 的设置值为：设置值 描述 
0 （缺省值）项目安排在一列中、且 ListBox 竖直滚动。 
1到 n 项目安排在多个列中，先填第一列，再填第二列，等等。 ListBox 水平滚动并显示指定数目的列。 
说明对于水平滚动的 ListBox 控件，列宽等于 ListBox 宽度除以列的个数。该属性不能设置为 0，在运行时也不能从 0 改变 －也就是说，不能在运行时，将多列 ListBox 变为单列 ListBox 或将单列 ListBox 变为多列 ListBox 。

Answer 1

先将这20个数装入一个数组中，再每次将4个数组元素连成一个字符串赋给listbox控件。
例子：
Private Sub command1_click()
Dim i As Integer
Dim j As Integer
Dim TempStr As String
Dim MyArray(0 To 19) As String
For i = 0 To 19
   MyArray(i) = Str(i)
Next i
For i = 0 To 4
   For j = i * 4 To i * 4 + 3
      TempStr = TempStr & MyArray(j) & " "
   Next j
   List1.AddItem TempStr
   TempStr = ""
Next i
End Sub