Auto-paginar ListBox

[omar_cb11]

Hola quisiera saber como auto-paginar un ListBox o sea que mientras se le va añadiendo elementos se vaya visualizando el último elemento añadido, como que fuera bajando automaticamente o se le vaya dando un Scroll automaticamente.
Gracias

[Ultra Putrefactus]

Private Sub CmdAdd_Click()
If Trim(Text1) <> "" Then

List1.AddItem Text1

List1.Selected(List1.ListCount - 1) = True

End If
End Sub

[omar_cb11]

muchas gracias