Scroll Listbox

I see a lot of questions on how to have the listbox automatically scroll to the last item when adding items to the listbox. Well the code below will allow you to do this.

So start a new project and add a listbox and command button, keep the default names. Then cut and paste the code below. Then start adding items, once you get enough items the scroll bar will appear and the move to the last item entered.

Private Sub Command1_Click()
List1.AddItem Text1
List1.TopIndex = List1.ListCount - 1
End Sub
Private Sub form_load()
List1.AddItem "This is item 1"
List1.AddItem "This is item 2"
List1.AddItem "This is item 3"
List1.AddItem "This is item 4"
List1.AddItem "This is item 5"
List1.AddItem "This is item 6"
List1.AddItem "This is item 7"
List1.AddItem "This is item 8"
End Sub