Select name from listbox

[Static]

Private Sub Timer1()
Text1 = List1.List(List1.Listindex+1)
if List1.Listindex = list1.Listcount -1 then Timer1.enabled = false
End Sub