Listbox滚动条如何自动滚动

Question

我用timer控件给listbox控件每1毫秒增加一个数，当增加的数超过listbox控件的长度就会出现滚动条
    但是滚动条不会自动向下滚动，而是一直停着不动的。。
       怎么实现：
      每增加一个数，滚动条就会自动滚动，让我看到最后一个数？
   （可能题目有些表达不清楚，大家尽量帮忙``）

Answer 1

参考：
        List1.AddItem i
        List1.ListIndex = List1.ListCount - 1

Answer 2

不选的话试试
TopIndex 

Answer 3

Private Sub Command1_Click()
    For i = 0 To 100
        List1.AddItem i
        ' 下面这两个属性用哪个都可以的
        'List1.TopIndex = List1.NewIndex
        [code=VB]List1.ListIndex = List1.NewIndex
    Next
End Sub[/code]

Answer 4

Private Sub Command1_Click()
    For i = 0 To 100
        List1.AddItem i
       ' 下面这两个属性用哪个都可以的
        'List1.TopIndex = List1.NewIndex
        List1.ListIndex = List1.NewIndex
    Next
End Sub

Answer 5

这样可以消除反选：        List1.AddItem i
        List1.ListIndex = List1.NewIndex
        List1.ListIndex = -1

Answer 6

这个问题我也很烦，别说添加，就是设置一个selected属性都要滚动
在特殊场合下，我都不用它做列表框，实在太不理想换种方式，用报表的ListView也可以，不过得控制列宽
最好的是带TVS_FULLROWSELECT的TreeView，效果最理想
想办法不显示横滚动条，两种方法效果都很好

Answer 7

我以前都是让最新插入的项放在第一列。
List1.AddItem i, 0

Answer 8

List1.ListIndex = List1.ListCount - 1