vb中通过Command往列表框添加文本，并使添加的文本位于列表框首项，谢谢

Private Sub Command1_Click()

Static a

a = a + 1

List1.AddItem a, 0

End Sub

就要用楼上的答案的。list1.listindex的意思是选中项是第几项（索引号），list1.list(n)的意思是第n项的内容（选中项的文本内容）。AddItem是添加新项目，List1.AddItem str, 0这句话就是把选中项添加到第一项的意思，用0是因为列表框的第一项是从0开始的，List1.RemoveItem n + 1的意思是向下移动一项，为新加入的腾地方，最后一句是更新。

---