Visual Basic 6 - evidenziare dati in listbox

Dim x As Integer
Private Sub Command1_Click()
avanza
x = x + 1
End Sub

Sub avanza()
If x > List1.ListCount - 1 Then
x = 0
End If
Label1.Caption = List1.List(x)
List1.Selected(x) = True
If List1.Selected(x) = False Then
  DoEvents
End If
End Sub

grazie 1000, dopo questa mi sono portato molto avanti con il mio progettino!
A.