[VB6] Muovere uno slider in un determinato tempo

[m.alverman]

Ho fatto così ma:

Private Sub cmdFadeUp_Click()
strFadeSense = "UP"
fade = fade + 1
If fade > 1000 Then strFadeSense = "": Exit Sub
Timer1.Enabled = True
End Sub

Private Sub cmdFadeDwn_Click()
strFadeSense = "DOWN"
fade = fade - 1
If fade < 0 Then strFadeSense = "": Exit Sub
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lblTime.Caption = Time
Fader1.Value = fade
Timer1.Enabled = False
Select Case strFadeSense
Case "UP"
Call cmdFadeUp_Click
Case "DOWN"
Call cmdFadeDwn_Click
End Select
End Sub

Mettendo interval a 1 nel timer 1 il completamento me lo fa in 15 secondi

Come si fa ?