Ho visto ke c'è un sorgente simile in vb.net. Ora ve lo propongo in vb6... Questo è un codice molto semplice che permette a una progressbar di "scorrere" grazie al timer...

Prima di tutto nella form ci devono essere:

- un timer;
- 3 commandbutton;
- una progressbar.

Ecco il codice:

Nella form:

[/code]Private Sub Form_Load()
Timer1.Interval = 100 'Qui impostate che intervallo volete voi
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = 0
End Sub


Nel commandbutton per attivare il timer:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Nel commandbutton per disattivare il timer: 
[code]Private Sub Command2_Click()
Timer1.Enabled = False
MsgBox "ProgressBar bloccata!", vbExclamation,"Informazione"
End Sub


Nel timer: 

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
End If
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then Timer1.Enabled = False
If ProgressBar1.Value = 100 Then MsgBox "Progressbar completata!", vbInformation, "Informazione"
End Sub


Nel commandbutton per resettare la ProgressBar: 

Private Sub Command3_Click()
Timer1.Enabled = False
ProgressBar1.Value = 0
End Sub


Tutto qui, spero di essere stato utile. Comunque potete modificarvi il codice come volete... per esempio potrete far resettare la progressbar quando premente il commandbutton per disattivare il timer...ect...