Visual Basic - Mover barra de una LISTBOX

Hola alguien me podría ayudar para saber como puedo hacer para que conforme voy llenando de datos una LISTBOX la barra de desplazamiento vaya bajando mostrando el ultimo elemento . Gracias

Un saludo a todos , sois los mejores .

Aquí te mando un ejemplo de código:

Private Sub Command1_Click()
Static k As Long
k = k + 1
With List1
.AddItem "Elemento " & k
.ListIndex = .NewIndex
End With
End Sub

En lugar de NewIndex podrías utilizar ListCount - 1, pero si la lista está ordenada no funciona, en cambio .NewIndex hace referencia al ´ltimo elemento que se agregó, esté o no esté ordenada la misma.

Saludos Ruri

Muchíiiiiiiiiisimas gracías Ruri eres ¡fenómeno! , por fin pude resolver el problema gracias a tu ayuda . Yo por más que intenté averiguarlo siempre daba con la misma pared .
Muchisimas gracias

Saludooooos¡¡¡