VB 中listBox的多列显示用法

问题有点乱啊……小弟认为的话做一个Sub，在每次删除List和添加list过程的后面加上这个Sub

Public Sub List1Change() '先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为    List1。当发生删除List或添加List事件之后加上这个事件。
 For i = 0 To List1.ListCount - 1
  If IsNumeric(CStr(Split(Trim(List1.List(i)) & " ", " ")(0))) = True Then
    List1.List(i) = i + 1 & " " & Split(List1.List(i) & " ", " ")(1)
    '如果已有标记，更新标记
  Else
    List1.List(i) = i + 1 & " " & Trim(List1.List(i))
    '如果没有标记则添加标记
  End If
 Next
End Sub

Private Sub cmd1_Click()
List1.AddItem "今天的天气是:" & cmd1.Caption
Call List1Change
End Sub

Private Sub Cmd2_Click()
List1.AddItem "今天的天气是:" & Cmd2.Caption
Call List1Change
End Sub

完成的效果：

否则的话建议你用ListView，我比较擅长ListView，功能多，而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。

1直接在属性窗口中修改。
2.在窗体初始化事件里修改。

3.设置列数：ColumnCount；
4.设置宽度：ColumnWidths  ；