[RESOLVED] Listbox - Take first item in list?

[Bruce Fox]

Just a point. You may want to check that there is something in the ListBox first:

Option Explicit
 
Private Sub Command1_Click()
 
    If List1.ListIndex > -1 Then List1.ListIndex = 0
 
End Sub