Listbox的多列显示如何实现，请帖点示例代码.thank

Question

Listbox.Columns 属性用于设置：当列表项多时是单列加垂直滚动还是多列加水平滚动。0： （缺省值）项目安排在一列中、且 ListBox 竖直滚动。 
1到 n： 项目安排在多个列中，先填第一列，再填第二列，等等。 ListBox 水平滚动并显示指定数目的列。 Columns 属性示例
这个例子说明当包含的数据相同时，两种不同的 ListBox 控件是如何工作的。要试用此例，先把代码粘贴到包含两个 ListBox 控件的窗体的声明部分。并对 List2 设置 Columns 属性为 2，然后按 F5 键并单击窗体。Private Sub Form_Load ()
   Dim I   ' 声明变量.
   List1.Move 50, 50, 2000, 1750   ' 排列列表框.
   List2.Move 2500, 50, 3000, 1750
   For I = 0 To Screen.FontCount -1   ' 使用屏幕字体.
      List1.AddItem Screen.Fonts(I)   ' 填充两个列表框
      List2.AddItem Screen.Fonts(I)
   Next I
End Sub                --部分摘自MSDN