[VB6] Muovere uno slider in un determinato tempo

[m.alverman]

Teoricamente sarebbe semplice:

Private Sub cmdFadeUp_Click()
For fade = 0 To 1000
Fader1.Value = fade
wait 10 secondi / 1000
Next
End Sub

Ma non so come farlo