们在用列表框时，经常会用到多栏列表。

但怎样取得多栏列表框第N栏的数据，请看下面代码：

　　Dim I As Integer '定义变量存储被选中行的序号

For I = 0 To 列表1.ListCount - 1
If 列表1.Selected(I) Then
　　　　Exit For
End If
Next I
'报出第一栏与第二栏的值

msgbox 列表1.Column(0, I) & " " & 列表1.Column(1, I)