Visual Basic 6 - evidenziare dati in listbox

ciao a tutti, sempre alle prese con il mio progettino.
stavo cercando di implementare una funzioncina che funzioni cosi':

ogni volta che clicco il pulsante vengano letti i dati della listbox uno ad uno e scritti in una label e soprattutto che la selezione in blu scorresse pure...
tra l'altro si puo' cambiare la linea blu con un'altro colore?

Private Sub Command1_Click()

If List1.ListCount >= List1.ListIndex Then
 Command1.Enabled = False
Else
 Label1 = List1.List(x)
 x = x + 1
End If

End Sub

grazie 1000
A.

Private Sub Command1_Click()
dim x as integer
for x = 0 to list1.listcount -1
label1.caption = list1.list(x)
list1.selected(x) = true
doevents
next x
End Sub

poi te lo devi chiaramente adattare...
comunque non penso si possa cambiare colore..

ciao, grazie per la risposta! vedro' di adattarlo e/o prendere spunto, inquanto non funziona propio.
grazie cmq, per l'idea
A.

in che senso non funziona? da errore il codice oppure non è quello ke volevi tu? se è un errore che errore da? spiega meglio e non limitarti a dire "non funziona" ....

ciao, non funziona nel senso che quando clicco il pulsante. la "linea blu" si posiziona in fondo alla listbox dove non c'e'e nessun dato e da li non si muove.
errori di runtime non ne da'....
A.

bè certo -.-
lol... il fatto è che sta sempre giù perchè in realtà già ha fatto il suo dovere, ma è stato così veloce che tu non l'hai visto... mettendo una pausa lo puoi vedere bene...

Private Sub Command1_Click()
Dim x As Integer
For x = 0 To List1.ListCount - 1
Label1.Caption = List1.List(x)
List1.Selected(x) = True
Pause 0.5
DoEvents
Next x
End Sub

Sub Pause(ByVal interval As Double)
    Dim Current As Double
    Current = Timer
    Do While Timer - Current < interval
    DoEvents
    Loop
End Sub

si, probabilmente perche' ancora una volta non mi sono spiegato bene!
ogni volta che c'e' l'vento click sul pulsante deve avanzare di 1.
ma penso di avere abbastanza materiale per riuscirci.
quando programmavo in assembler per i micro 80X51 era "piu' semplice"
A.

diciamo che adesso funziona... solo che quando arriva alla fine va in errore... pero' sono gia' al 90%

Private Sub Command1_Click()
avanza
x = x + 1
End Sub

Sub avanza()
Label1.Caption = List1.List(x)
List1.Selected(x) = True
 If List1.Selected(x) = False Then
  DoEvents
 End If
End Sub

per qualsiasi altra rettifica e' il benvenuto
grazie